: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 รัน module1 และ module2

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 รัน module1 และ module2

Re: VBA รัน module1 และ module2

#9

by hs6nfg@gmail.com » Sun Oct 24, 2021 7:42 pm

ได้แล้วครับ

Code: Select all

        ActiveSheet.UsedRange.Copy
        formBook.Activate
        Sheets("BY MDL").Range("A1").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        wb.Close False
        Application.Calculation = xlCalculationAutomati
        Application.ScreenUpdating = True
End Sub
แก้ไข

Code: Select all

ActiveSheet.UsedRange.Copy
        formBook.Activate
         Sheets("BY MDL").Select 
        Range("A1").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        wb.Close False
        Application.Calculation = xlCalculationAutomati
        Application.ScreenUpdating = True
End Sub
ขอบคุณมากๆครับ
Attachments
Eror-B.jpg
Eror-B.jpg (32.74 KiB) Viewed 68 times

Re: VBA รัน module1 และ module2

#8

by snasui » Sun Oct 24, 2021 6:44 pm

:D สิ่งที่ผมแนะนำไปไม่ได้มีผลที่จะทำให้ Code เดิมมีพฤติกรรมที่เปลี่ยนไปแต่อย่างใด เป็นการสร้าง Procedure เพิ่มเพื่อเรียกใช้ Code ให้ทำงานได้พร้อมกันทุกงานตามที่ได้กำหนดลำดับไว้ด้วยการเรียกเพียงครั้งเดียว

สามารถที่จะใช้ Procedure แรกไปเรียก Procedure ที่สอง และ Procedure ที่สองไปเรียก Procedure ที่สาม ฯลฯ เช่นนี้ก็ทำได้เช่นกัน

Error ที่แจ้งมานั้นต้องจับ Description มาแจ้งด้วยว่าโปรแกรมฟ้องว่าอะไรจึงจะพอตอบได้ครับ

เบื้องต้นลองแยก Code ที่ Error ออกเป็น 2 บรรทัดแล้วสังเกตว่า Error กลายเป็นแบบไหนครับ

Code: Select all

Sheets("BY MDL").Select
Range("A1").Select

Re: VBA รัน module1 และ module2

#7

by hs6nfg@gmail.com » Sun Oct 24, 2021 6:07 pm

ถ้าปิดแล้วเปิดใหม่ แล้วรันแยก ยัง รัน ได้เหมือนเดิมครับ

Re: VBA รัน module1 และ module2

#6

by hs6nfg@gmail.com » Sun Oct 24, 2021 6:01 pm

ซูมใกล้ๆครับ
Attachments
Eror-A.jpg
Eror-A.jpg (44.97 KiB) Viewed 86 times

Re: VBA รัน module1 และ module2

#5

by hs6nfg@gmail.com » Sun Oct 24, 2021 5:43 pm

ลองรันแล้วติดขัดครับอาจาร์ย
Attachments
Eror.jpg
Eror.jpg (43.71 KiB) Viewed 90 times

Re: VBA รัน module1 และ module2

#4

by snasui » Sun Oct 24, 2021 5:14 pm

:D สร้าง Procedure ขึ้นมาใหม่เพื่อ Call Procedure ที่ต้องการแล้วค่อย Assign ให้กับปุ่มดังตัวอย่าง Code และไฟล์แนบด้านล่างครับ

Code: Select all

Sub Main()
    Call BY_ID
    Call BY_MDL
End Sub
Attachments
Ans_LOAD_OF FORM.xlsm
(332.72 KiB) Downloaded 4 times

Re: VBA รัน module1 และ module2

#3

by hs6nfg@gmail.com » Sun Oct 24, 2021 4:49 pm

ตัวอย่างที่รันแยกครับอยากรันครั้งเดียวได้ไหม
401.7z
ตัวอย่างที่รันแยกครับอยากรันครั้งเดียวได้ไหม
(243.87 KiB) Downloaded 5 times
ครัย

Re: VBA รัน module1 และ module2

#2

by snasui » Sun Oct 24, 2021 3:22 pm

:D กรุณาแนบไฟล์ตัวอย่างที่ลองทำมาเองแล้ว จะได้ตอบต่อไปจากนั้นครับ

VBA รัน module1 และ module2

#1

by hs6nfg@gmail.com » Sun Oct 24, 2021 1:58 pm

VBA รัน module1 และ module2 ต่อกันเขียนโค๊ดแบบไหนครับ

Top