การลิ้งค์ข้อมูลโดย VBA

[sutham]

ผมต้องการ copy ข้อมูลจากชีทนึงไปยังอีกชิทนึง โดยที่เอาเฉพาะค่าอย่างเดียว เนื่องจากมีความรู้เรื่องโค้ด VBA ยังไม่มาก เลยใช้โค้ดดังข้างล่างนี้ครับ
โดยชีทที่เป็นฐานข้อมูล คือ fdata ส่วนชีทที่จะนำข้อมูลไปใส่ คือ data1

Code: Select all

Worksheets("data1").Range("d4").Value = Worksheets("fdata").Range("d4")
    Worksheets("data1").Range("f4").Value = Worksheets("fdata").Range("f4")
    Worksheets("data1").Range("d5").Value = Worksheets("fdata").Range("d5")
    Worksheets("data1").Range("d6").Value = Worksheets("fdata").Range("d6")
    Worksheets("data1").Range("d7").Value = Worksheets("fdata").Range("d7")
    Worksheets("data1").Range("f6").Value = Worksheets("fdata").Range("f6")
    Worksheets("data1").Range("f7").Value = Worksheets("fdata").Range("f7")
    Worksheets("data1").Range("d8").Value = Worksheets("fdata").Range("d8")
      Worksheets("data1").Range("d10").Value = Worksheets("fdata").Range("d10")
      Worksheets("data1").Range("d11").Value = Worksheets("fdata").Range("d11")
    Worksheets("data1").Range("d12").Value = Worksheets("fdata").Range("d12")
    Worksheets("data1").Range("f10").Value = Worksheets("fdata").Range("f10")
    Worksheets("data1").Range("f11").Value = Worksheets("fdata").Range("f11")
    Worksheets("data1").Range("f12").Value = Worksheets("fdata").Range("f12")
    Worksheets("data1").Range("h10").Value = Worksheets("fdata").Range("h10")
    Worksheets("data1").Range("h11").Value = Worksheets("fdata").Range("h11")
   Worksheets("data1").Range("h12").Value = Worksheets("fdata").Range("h12")
    Worksheets("data1").Range("d14").Value = Worksheets("fdata").Range("d14")
    Worksheets("data1").Range("d15").Value = Worksheets("fdata").Range("d15")
    Worksheets("data1").Range("f14").Value = Worksheets("fdata").Range("f14")
   Worksheets("data1").Range("f15").Value = Worksheets("fdata").Range("f15")
    Worksheets("data1").Range("h14").Value = Worksheets("fdata").Range("h14")
    Worksheets("data1").Range("h15").Value = Worksheets("fdata").Range("h15")
    Worksheets("data1").Range("d19").Value = Worksheets("fdata").Range("d19")
    Worksheets("data1").Range("i16").Value = Worksheets("fdata").Range("i16")
    Worksheets("data1").Range("j16").Value = Worksheets("fdata").Range("j16")
    Worksheets("data1").Range("i19").Value = Worksheets("fdata").Range("i19")

ซึ่งข้อมูลจริงเยอะกว่านี้ โค้ดนี้ก็ใช้งานได้ครับ แต่การทำงานจะช้าต้องรอเวลาค่อนข้างนาน เลยอยากขอข้อเสนอแนะในการการปรับโค้ดหรือทำให้การคำนวณเร็วขึ้น
ขอบคุณมากครับ

[snasui]

Code นั้นก็ใช้ได้ครับ

หากต้องการให้เร็วก็ต้องปิดการคำนวณให้เป็น Manual เสียก่อน เมื่อดำเนินการเสร็จแล้วค่อยเปิดการคำนวณเป็น Automatic โดย Code จะอยู่ใน Form ด้านล่าง

Code: Select all

Application.Calculation = xlCalculationManual
'Your code
Application.Calculation = xlCalculationAutomatic

[sutham]

โดยการนำ code ที่อาจารย์แนะนำไปต่อหลัง code เดิมใช่หรือไม่ครับ
จะลองทำดูครับ
ขอบคุณครับ

[snasui]

ไปนำหน้าและต่อท้ายครับ คำว่า 'Your codeคือ Code เดิมทั้งหมดครับ

[sutham]

ขอบคุณครับ

[sutham]

Code นั้นก็ใช้ได้ครับ

หากต้องการให้เร็วก็ต้องปิดการคำนวณให้เป็น Manual เสียก่อน เมื่อดำเนินการเสร็จแล้วค่อยเปิดการคำนวณเป็น Automatic โดย Code จะอยู่ใน Form ด้านล่าง

Code: Select all

Application.Calculation = xlCalculationManual
'Your code
Application.Calculation = xlCalculationAutomatic

ขอถามเพิ่มเติมอีกนิดครับ
หากนำ code ที่ อาจารย์ปรับให้มาทดสอบแล้ว ถ้าการประมวลผลยังช้าอยู่ เนื่องจากฐานข้อมูลเยอะ และสูตรมาก จะมีวิธีอื่นอีหรือไม่ครับ เช่น ผมลองใช้ code ในกรณีนี้

Code: Select all

Sub go_print1()
    Sheets("print1").Select
Application.Calculation = xlCalculationManual
     Range("12:12,16:16,21:21").Select
    Selection.RowHeight = 112.5
    With ActiveSheet.PageSetup
        .BlackAndWhite = False 
        .Zoom = False
    End With
    Application.Calculation = xlCalculationAutomatic
ActiveWindow.SelectedSheets.PrintPreview
Range("A1").Select
End Sub

ซึ่งยังช้าบ้าง ผมคิดว่าที่ code นี้ช้า ตรงที่ VBA ต้อง run

Code: Select all

	Range("12:12,16:16,21:21").Select
    	Selection.RowHeight = 112.5

ให้เรียบร้อยก่อน ซึ่่งการเขียน code ในการเลือกแถวที่ห่างกันแบบนี้ หากต้องการให้กระชับลงได้อีกหรือไม่ครับ เพื่อให้การประมวลผลเร็วขึ้น หรือว่าจะไม่เกี่ยวกัน
ขอคำชี้แนะเพื่อเป็นแนวทางครับ
ขอบคุณครับ

[snasui]

ลอง Mark บรรทัดที่สงสัยว่าทำให้ช้าให้เป็น Comment เสียก่อนแล้วทดสอบดูใหม่ว่าช้าอีกหรือไม่ครับ

ปกติโปรแกรมที่ทำงานกับข้อมูลจำนวนมาก การเลือกโดยใช้ Select จะทำให้ช้า หากต้องการความกระชับจะไม่ใช้ Select แต่หากเป็นโปรแกรมขนาดเล็ก ๆ ไม่ส่งผลกระทบมากมายครับ

Code ด้านบนสามารถปรับเป็น Range("12:12,16:16,21:21").RowHeight = 112.5 เพื่อไม่ต้องให้ Cursor ไปคลุมข้อมูลก่อนปรับความสูงของบรรทัดครับ

[sutham]

ขอบคุณครับ ผมจะลองกระชับ code ก่อนครับ เผื่อจะช่วยได้

[sutham]

ขอถามเพิ่มเติมอีกครับ
ใน worksheet ถ้ามีสูตรแบบปกติมาก กับ ใช้ code vba เยอะ แบบไหนที่ทำให้การประมวลผลช้ากว่ากันครับ

[snasui]

สูตรที่ไม่ซับซ้อนหากมีมากก็ทำให้ไฟล์ทำงานช้าครับ ปกติเราจะใช้สูตรเท่าที่จำเป็น เช่นการทำรายงาน

การใช้ VBA จะช่วยลดขนาดไฟล์ ลดภาระการคำนวณให้กับไฟล์ เมื่อเทียบการใช้สูตรธรรมดาๆ จำนวนมากกับ VBA ที่เขียนอย่างกระชับ การใช้ VBA ย่อมดีกว่าครับ

[sutham]

ขอบคุณสำหรับข้อชี้แนะครับ