:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

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

Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่

Post a reply


This question is a means of preventing automated form submissions by spambots.
Smilies
:D :thup: :cp: :flw: :rz: :sg: :tt: :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :ard: :arl: :aru: :| :mrgreen: :geek: :ugeek:
BBCode is ON
[img] is ON
[url] is ON
Smilies are ON
Topic review
   

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

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

#9

by Jirawat namrach » Tue Feb 20, 2024 3:51 pm

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

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

#8

by snasui » Tue Feb 20, 2024 1:24 pm

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

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

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

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

#7

by Jirawat namrach » Tue Feb 20, 2024 10:39 am

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

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

#6

by snasui » Mon Feb 19, 2024 6:38 pm

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

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

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

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

#5

by Jirawat namrach » Mon Feb 19, 2024 2:21 pm

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

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

#4

by snasui » Mon Feb 19, 2024 1:13 pm

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

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

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

#3

by Jirawat namrach » Mon Feb 19, 2024 8:20 am

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

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

#2

by snasui » Sat Feb 17, 2024 7:15 am

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

ตัวอย่างการเปิดและการปิด Events ดูในภาพครับ
Attachments
Enable_Disable_Events.jpg
Enable_Disable_Events.jpg (42.46 KiB) Viewed 118 times

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

#1

by Jirawat namrach » Fri Feb 16, 2024 9:19 am

จากตัวอย่าง ชีท 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 นี้เยอะ มีแนวทางอื่นบ้างมั้ยครับ
ขอบคุณล่วงหน้าครับ
Attachments
ERP-SX3000II.xlsm
(140.01 KiB) Downloaded 8 times

Top