: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 ให้ประมวลได้เร็วขึ้นค่ะ

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 ให้ประมวลได้เร็วขึ้นค่ะ

Re: รบกวบแนะนำการเขียน VBA ให้ประมวลได้เร็วขึ้นค่ะ

#10

by snasui » Sat Jan 17, 2015 3:50 pm

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

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

Re: รบกวบแนะนำการเขียน VBA ให้ประมวลได้เร็วขึ้นค่ะ

#9

by Totem » Sat Jan 17, 2015 11:22 am

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

Application.Calculation = xlCalculationManual

code...FormulaArray = ...

Application.Calculation = xlCalculationAutomatic

หากข้อมูลมีจำนวนมากเขียน code

Code: Select all

Application.Calculation = xlCalculationManual

Code: Select all

Application.Calculation = xlCalculationAutomatic
บน vba ประมวลผลจะเร็วกว่า การใช้ FormulaArray บน cell ใน excel ไหมครับ หากเร็วกว่าเพราะเหตุใดครับ ขอบคุณครับ

Re: รบกวบแนะนำการเขียน VBA ให้ประมวลได้เร็วขึ้นค่ะ

#8

by suka » Sat Nov 22, 2014 9:53 am

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

Re: รบกวบแนะนำการเขียน VBA ให้ประมวลได้เร็วขึ้นค่ะ

#7

by yupradee_sk » Sat Nov 22, 2014 9:53 am

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

Re: รบกวบแนะนำการเขียน VBA ให้ประมวลได้เร็วขึ้นค่ะ

#6

by snasui » Sat Nov 22, 2014 9:50 am

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

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

Re: รบกวบแนะนำการเขียน VBA ให้ประมวลได้เร็วขึ้นค่ะ

#5

by suka » Sat Nov 22, 2014 9:45 am

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

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

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

และ

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

Re: รบกวบแนะนำการเขียน VBA ให้ประมวลได้เร็วขึ้นค่ะ

#4

by snasui » Sat Nov 22, 2014 9:01 am

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

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

Re: รบกวบแนะนำการเขียน VBA ให้ประมวลได้เร็วขึ้นค่ะ

#3

by yupradee_sk » Sat Nov 22, 2014 8:51 am

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

Re: รบกวบแนะนำการเขียน VBA ให้ประมวลได้เร็วขึ้นค่ะ

#2

by snasui » Sat Nov 22, 2014 6:42 am

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

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

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

Code: Select all

Sub insert()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    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")
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

รบกวบแนะนำการเขียน VBA ให้ประมวลได้เร็วขึ้นค่ะ

#1

by yupradee_sk » Fri Nov 21, 2014 10:46 pm

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

ดิฉันมีปัญหากับการประมวลผลข้อมูลค่ะ คือ โค๊ด 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

Top