VBA แนวทางเขียน Code เพื่อการประมวลผลเร็วขึ้น

[Jirawat namrach]

จากตัวอย่าง ชีท Production Order L12 เลือก Spec แล้วกด Create (Code ใน Module2) เลข 1 จะถูกใส่ตามช่อง Spec ที่ต้องการ (ช่องสีดำ) จากนั้นใน Code ในชีท Production Order จะ Run ด้วย

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)

เพื่อตรวจสอบเลข 1 แต่ละช่อง แล้วไปนำข้อมูลใน ชีท data bom มาวางในช่อง P17 โดยกำหนดรายการไว้ที่ ชีท LIST คำถามครับ
1. หลังจาก Run แล้ว ประมวลผลช้า มีแนวทางเขียน Code อื่นที่สามารถลดการประมวลผลมั้ยครับ
2. Array ที่อยู่ใน ชีท Production Order สามารถกำหนดได้มากกว่านี้มั้ยครับ ลองใส่ทั้งหมดแล้วไม่ได้ เพราะงานจริงจะมีมากกว่านี้
3. Target.Address หากเราใส่เลข 1 ในช่อง F18 ช่อง C18 จะถูกลบ แต่ในไฟล์มีการใช้ Code นี้เยอะ มีแนวทางอื่นบ้างมั้ยครับ
ขอบคุณล่วงหน้าครับ

[snasui]

การทำงานกับ Change Events จะต้องพิจารณาปิดการทำงาน Events เสียก่อนและเปิดขึ้นมาใช้ในภายหลัง ไม่เช่นนั้น Code แต่ละบรรทัดที่เขียนไว้จะทำให้ Events นั้นทำงานด้วยเสมอ ทำให้ Code ทำงานช้าลงอย่างมาก

ตัวอย่างการเปิดและการปิด Events ดูในภาพครับ

[Jirawat namrach]

ในส่วนของ EnableEvents ได้ใส่ Code ไว้แล้วครับแต่ยังช้าอยู่ แล้ว Array หล่ะครับอาจารย์ ถ้าต้องการกำหนดให้มากกว่ากว่านี้ ต้องแก้ตรงไหนครับ รู้สึกว่าจะได้แค่ 150 เองครับ มีทางที่จะกำหนดให้ได้มากกว่านี้มั้ยครับ

[snasui]

Array ที่กล่าวถึงคืออันไหนครับ

Array ทำงานได้เร็วมาก ปกติจะกำหนดค่าใน Range ไปเป็น Array เพื่อการทำงานที่เร็วขึ้น ไม่เคยพบว่าช้าที่ Array ครับ

[Jirawat namrach]

เรื่อง Array เข้าใจแล้วครับ ส่วน EnableEvents ลองใส่ตามที่อาจารย์บอกแล้ว Private Sub Worksheet_Change(ByVal Target As Range) ไม่ทำงานเลยครับ เพราะถ้าปิด EnableEvents ไว้เลยตรวจจับการเปลี่ยนของ Worksheet ไม่ได้

[snasui]

ไม่ทราบว่ามีขั้นตอนการทำงานอย่างไรถึงพบว่า Event ไม่ทำงาน กรุณาอธิบายลำดับขั้นตอน ชี้ให้เห็นว่าเมื่อใดถึงให้ Code ทำงาน

ที่เขียนไว้เดิมนั้น Code ทำงานทุกการเปลี่ยนค่าในเซลล์ใด ๆ เป็นการทำงานที่มากเกินความจำเป็น ควรเลือกให้ทำงานเฉพาะเหตุการณ์ใด ๆ ที่เกี่ยวข้องเท่านั้น

การปิดและเปิด Event จะต้องปิดที่หัวและท้ายของ Procedure ปิดแล้วต้องเปิด ไม่เช่นนั้นจะพบว่า Event ไม่ทำงานเกิดขึ้นได้

[Jirawat namrach]

จากที่ทดลองใช้ Event เปิด-ปิดที่หัวและท้ายของ Procedure ใน Module2 ปรากฎว่า Code ในชีท Production Order ซึ่งเป็นการตรวจจับการเปลี่ยนแปลงของชีท ไม่ทำงานครับ ผมเข้าใจว่า เมื่อใช้ Event ใน Module2 ทำให้ตรวจจับการทำงานไม่ได้ครับ ไม่แน่ใจความคิดถูกหรือเปล่าแต่ลองแล้วไม่ทำงานครับ

[snasui]

ต้องทราบลำดับขั้นตอนการทำงานถึงจะบอกได้ว่าควรกำหนดอย่างไรครับ

เช่นเมื่อค่าใน A1 เปลี่ยนไปแล้วให้ทำ 10 งาน หากใน 10 งานนั้นทำให้เกิดการเปลี่ยนแปลงค่าในเซลล์ใด ๆ เช่นลบให้เป็นค่าว่างซึ่งกระทบกับ Change Event เราจึงต้องปิด Event เอาไว้กอนเสมอ ในทุก ๆ งาน เมื่อทำงานแต่ละงานเสร็จแล้วค่อยเปิด ในแต่ละงานสามารถเกี่ยวข้องได้กับหลาย ๆ Module ซึ่งถือเป็นเรื่องปกติ

จะเห็นว่าเราต้องให้ Event ทำงานเมื่อค่าใน A1 เปลี่ยนแปลงเท่านั้น เซลล์อื่นใดนอกจากนั้นไม่ต้องตรวจจับการเปลี่ยนแปลง ไม่เช่นนั้นจะทำงานช้าเพราะต้องทำงานซ้ำๆ อย่างที่เป็นอยู่นี้ครับ

[Jirawat namrach]

จะลองไปปรับใช้ดูครับ ขอบคุณมากครับอาจารย์