วิธีทำให้ sub คำสั่ง vba ทำงานต่อกันอัตโลมัต

[nutpochan]

ถ้าสมมุติเรามี 2 คำสั่ง เช่น

Code: Select all

Sub Macro3()
ActiveSheet.Range("$A$3:$N$3").AutoFilter Field:=3, Criteria1:="12"
    Range("D4:L4").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=0
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
end sub

กับ

Code: Select all

Sub Macro4()
Selection.Copy
    Sheets("12").Select
    Range("B4").Select
    ActiveSheet.Paste
    Range("C4:E4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
end sub

ในความจริงผมต้องสร้างปุ่มให้กด 2 ปุ่มแล้วนั่งกด ปุ่มที่1 (sub 1)ก่อนปุ่มที่ 2 (sub2)แต่ผมอย่างจะให้มันทำงาน sub1 เสร็จแล้วมาทำงานsub2 ต่อเลยโดยไม่ต้องนั่งกดปุ่ม

ข้อจำกัดต้องไม่เอาคำสั่งมาต่อกัน เช่น

Code: Select all

ActiveSheet.Range("$A$3:$N$3").AutoFilter Field:=3, Criteria1:="12"
    Range("D4:L4").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=0
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets("12").Select
    Range("B4").Select
    ActiveSheet.Paste
    Range("C4:E4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft

[snasui]

ก่อน End Sub ของ Sub1 ให้ระบุ Call Sub2 เพื่อเรียกใช้ Sub2 จาก Sub1 แทนการกดปุ่ม

อย่าลืมแจ้งผลการใช้งานในกระทู้นี้ด้วยครับ viewtopic.php?f=3&t=7255

[nutpochan]

ใช้ได้ผลดีขอบคุนครับ

[snasui]

ใช้ได้ผลดีขอบคุนครับ

รู้สึกจะพลาดบ่อยนะครับ

ช่วยให้ความสำคัญกับสิ่งที่ผมเตือน คำที่คุณใช้ผิดกฎข้อ 1 ด้านบน กรณีที่ผมเตือนบ่อย ๆ มีโอกาสที่จะโดนลบ username ทิ้งครับ

[nutpochan]

ขอบคุณครับ

[nutpochan]

ใช้ได้ผลดีขอบคุณครับ