VBA รัน module1 และ module2

[hs6nfg@gmail.com]

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

[snasui]

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

[hs6nfg@gmail.com]

ตัวอย่างที่รันแยกครับอยากรันครั้งเดียวได้ไหม

401.7z

ครัย

[snasui]

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

Code: Select all

Sub Main()
    Call BY_ID
    Call BY_MDL
End Sub

[hs6nfg@gmail.com]

ลองรันแล้วติดขัดครับอาจาร์ย

[hs6nfg@gmail.com]

ซูมใกล้ๆครับ

[hs6nfg@gmail.com]

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

[snasui]

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

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

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

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

Code: Select all

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

[hs6nfg@gmail.com]

ได้แล้วครับ

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

ขอบคุณมากๆครับ