วิธีทำให้ sub คำสั่ง vba ทำงานต่อกันอัตโลมัต
Posted: Mon Aug 11, 2014 3:33 am
ถ้าสมมุติเรามี 2 คำสั่ง เช่น
กับ
ในความจริงผมต้องสร้างปุ่มให้กด 2 ปุ่มแล้วนั่งกด ปุ่มที่1 (sub 1)ก่อนปุ่มที่ 2 (sub2)แต่ผมอย่างจะให้มันทำงาน sub1 เสร็จแล้วมาทำงานsub2 ต่อเลยโดยไม่ต้องนั่งกดปุ่ม
ข้อจำกัดต้องไม่เอาคำสั่งมาต่อกัน เช่น
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 subCode: 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ข้อจำกัดต้องไม่เอาคำสั่งมาต่อกัน เช่น
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
ก่อน End Sub ของ Sub1 ให้ระบุ 
รู้สึกจะพลาดบ่อยนะครับ
กรณีที่ผมเตือนบ่อย ๆ มีโอกาสที่จะโดนลบ username ทิ้งครับ