การใช้ VBA ในการดึงข้อมูล
Posted: Sat Jan 09, 2016 9:42 am
เนื่องจากผมได้ทำการเขียน code VBA เพื่อใช้ในการดึงมาใส่ในเซลล์ต่างๆ โดย code ที่ผมใช้ ดังนี้
ในไฟล์แนบเป็นตัวอย่าง ซึ่งข้อมูลจริงมีเซลล์ที่ดึงข้อมูลอีกมากครับ ปัญหาคือ เมื่อกดปุ่ม "ค้นข้อมูล" ในชีท data ต้องใช้เวลารอนานประมาณ 2-3 นาที กว่าที่โปรแกรมจะประมวลผลเสร็จ จึงรบกวนขอคำแนะนำว่าผมควรจะต้องการปรับอะไร อย่างไรบ้าง เพื่อให้การประมวลผลเร็วขึ้น หรือต้องปรับปรุง code ใหม่ 
Code: Select all
Sub Edit_Project()
Sheets("data").Range("e9").Value = Sheets("fdata").Range("b2").Value
Sheets("data").Range("g9").Value = Sheets("fdata").Range("b3").Value
Sheets("data").Range("e10").Value = Sheets("fdata").Range("b4").Value
Sheets("data").Range("e11").Value = Sheets("fdata").Range("b5").Value
Sheets("data").Range("g11").Value = Sheets("fdata").Range("b6").Value
Sheets("data").Range("e12").Value = Sheets("fdata").Range("b7").Value
Sheets("data").Range("I12").Value = Sheets("fdata").Range("b8").Value
Sheets("data").Range("e13").Value = Sheets("fdata").Range("b9").Value
Sheets("data").Range("e14").Value = Sheets("fdata").Range("b10").Value
Sheets("data").Range("e16").Value = Sheets("fdata").Range("b11").Value
Sheets("data").Range("g16").Value = Sheets("fdata").Range("b12").Value
Sheets("data").Range("e17").Value = Sheets("fdata").Range("b13").Value
Sheets("data").Range("g17").Value = Sheets("fdata").Range("b14").Value
Sheets("data").Range("e18").Value = Sheets("fdata").Range("b15").Value
Sheets("data").Range("g18").Value = Sheets("fdata").Range("b16").Value
Sheets("data").Range("e20").Value = Sheets("fdata").Range("b17").Value
Sheets("data").Range("g20").Value = Sheets("fdata").Range("b18").Value
Sheets("data").Range("e21").Value = Sheets("fdata").Range("b19").Value
Sheets("data").Range("g21").Value = Sheets("fdata").Range("b20").Value
End Sub
Code แบบนั้นเป็นการดึงค่ามาตรง ๆ ไม่มีอะไรที่ผิดปกติและต้องปรับ สิ่งที่ต้องพิจารณาคือ มีสูตรอื่นใดในการดึงข้อมูลเข้ามาในชีต fdata หรือไม่ จำเป็นต้องแจ้งมาอย่างละเอียดครับ