Snasui Excel Forum

เรียนทุกท่าน และอาจารย์ค่ะ

ดิฉันมีปัญหากับการประมวลผลข้อมูลค่ะ คือ โค๊ด VBA ที่ใช้ ประมวลผลนามมากค่ะ ถ้าเป็น โน้ตบุ๊ค ด้วยแล้ว ใช้เวลาเกือบครึ่งชั่วโมงเลยค่ะ จึงอยากขอคำแนะนำสูตรที่ประมวลผลได้เร็วกว่านี้ค่ะ (ดิฉันไม่มีพื้นฐานการเขียน VBA ค่ะ)

ไม่สามารถส่ง File ให้ได้ค่ะ เพราะ File ใหญ่มากค่ะ

Sub insert()
Sheets("DATA030").Range("A3:A60003").Copy Destination:=Sheets("DM").Range("B3:B60003")
Sheets("DATA030").Range("A3:L60003").Copy Destination:=Sheets("REPORT").Range("A4:L60004")
Sheets("DATA030").Range("G3:G60003").Copy Destination:=Sheets("DM").Range("A3:A60003")
Sheets("DATA030").Range("A3:L60003").Copy Destination:=Sheets("DATA").Range("A4:L60004")
Sheets("DATA015").Range("D8:D60003").Copy Destination:=Sheets("WMS").Range("A2:A60003")
Sheets("DATA015").Range("I8:I60003").Copy Destination:=Sheets("WMS").Range("B2:B60003")

End Sub

ไฟล์แนบควรทำมาเป็นตัวอย่างโดยมีข้อมูลที่เป็นตัวแทนของข้อมูลจริงและไม่ควรมีขนาดใหญ่ครับ

ควรโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกต่อการ Copy และการอ่าน ดูตัวอย่างที่นี่ครับ viewtopic.php?style=3&f=3&t=1187

ตัวอย่างการปรับ Code เพื่อลดการวูบวาบของหน้าจอและปรับการคำนวณให้เป็น Manual เสียก่อนที่จะทำการ Copy เพื่อลดการคำนวณ จากนั้นค่อยปรับกลับมาเหมือนเดิมครับ

ขอบคุณสำหรับคำแนะนำคะ่ ตอนนี้ทดลองกลับเครื่อง PC เวลาลดลงเหลือประมาณ 10 นาทีค่ะ แต่เครื่องโน๊ดบุคยังไม่ได้ทดลองค่ะ ในการรันข้อมูลช้ามันจะเกี่ยวกับ ฐานข้อมูลที่ Copy ด้วยหรือเปล่า เพราะ ฐานข้อมูลมีสูตร vlookup อยู่ด้วยค่ะ แต่ละชีตประมาณ 60000 บรรทัด (กำลังฝึกเขียน VBA vlookup อยู่ค่ะ แต่ยังไม่สำเร็จเพราะตัวแปรเยอะมาก) ถ้าติดปัญหาตรงไหนขอรบกวนอาจารย์อีกครั้งน่ะค่ะ

yupradee_sk wrote: ในการรันข้อมูลช้ามันจะเกี่ยวกับ ฐานข้อมูลที่ Copy ด้วยหรือเปล่า เพราะ ฐานข้อมูลมีสูตร vlookup อยู่ด้วยค่ะ แต่ละชีตประมาณ 60000 บรรทัด

เกี่ยวข้องอย่างแน่นอนครับ

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

ขออนุญาตนะคะ

อาจารย์คะ สามารถนำโค๊ดนี้ไปใช้เพื่อกันการทำงานช้าไว้ก่อนได้ไหมคะ

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

และ

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

ต้องทราบว่าเสียก่อนครับว่าช้าเพราะเหตุใด ซึ่งผมอธิบายไว้แล้วว่าเขียน Code นั้นไว้เพื่อการใดครับ

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

ทดสอบเครื่อง PC ที่ทำงาน เวลาลดลงเหลือเพียง 3 นาทีค่ะ ขอบคุณสำหรับคำแนะนำอีกครั้งค่ะ

ขอบคุณค่ะอาจารย์

เรียนถามอาจารย์

Application.Calculation = xlCalculationManual

code...FormulaArray = ...

Application.Calculation = xlCalculationAutomatic

หากข้อมูลมีจำนวนมากเขียน code บน vba ประมวลผลจะเร็วกว่า การใช้ FormulaArray บน cell ใน excel ไหมครับ หากเร็วกว่าเพราะเหตุใดครับ ขอบคุณครับ

การเขียน Code ให้เป็นสูตร Array จะช้ากว่าการเขียนสูตรลงบน Excel โดยตรง และไม่เฉพาะสูตร Array เท่านั้น สูตรใดก็ตามที่เขียนขึ้นมาเองโดย VBA ให้ทำหน้าที่เดียวกันกับสูตรใด ๆ บน Excel ย่อมช้ากว่าสูตรบน Excel ตัวผมเองยังไม่เคยพบว่ามีสูตรใดที่เขียนขึ้นเองแล้วเร็วเท่าสูตรบน Excel (โดยเทียบในทุกความสามารถของสูตรนั้น ๆ)

สูตรที่ Add-on มากับโปรแกรมได้ถูกพัฒนาให้มีประสิทธิภาพดีขึ้นอย่างต่อเนื่องในโปรแกรมแต่ละรุ่นครับ