Em có đoạn Code VBA in tự động như sau: ( dùng để in các biên bản của sheet "NB" "PYC" [ " XD" hoặc "PKT" ])
Private Sub CommandButton1_Click()
Dim i, A, B As Integer
Sheets("NB").Select
A = InputBox("In bien ban tu so:")
B = InputBox("den so:")
For i = A To B
Range("o2").Value = i
'ActiveSheet.PrintOut preview:=False 'in
Sheets("NB").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Sheets("PYC").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True
Sheets("XD").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True
Next
Sheets("NB").Select
End Sub
Hiện tại em muốn sửa code này để có thêm tùy biến như sau:
Trong file Excel có 1 sheet là "ListBB"
Nếu ô M(i) - i là biến chạy ở trên thuộc sheet ListBB có chữ "XD" thì in sheet "XD"
Nếu ô M(i) - i là biến chạy ở trên thuộc sheet ListBB có chữ "PKT" thì in sheet "PKT"
Các cao thủ sửa giúp em đoạn code này với ạ !
Em xin chân thành cảm ơn ạ !
đây là link file Excel: http://www.mediafire.com/file/1pf8z1o5yamdbd7/Bien ban NT -giang.xls
Đoạn code nằm ở sheet "NB" command button tên là "IN GIANG"
Private Sub CommandButton1_Click()
Dim i, A, B As Integer
Sheets("NB").Select
A = InputBox("In bien ban tu so:")
B = InputBox("den so:")
For i = A To B
Range("o2").Value = i
'ActiveSheet.PrintOut preview:=False 'in
Sheets("NB").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Sheets("PYC").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True
Sheets("XD").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True
Next
Sheets("NB").Select
End Sub
Hiện tại em muốn sửa code này để có thêm tùy biến như sau:
Trong file Excel có 1 sheet là "ListBB"
Nếu ô M(i) - i là biến chạy ở trên thuộc sheet ListBB có chữ "XD" thì in sheet "XD"
Nếu ô M(i) - i là biến chạy ở trên thuộc sheet ListBB có chữ "PKT" thì in sheet "PKT"
Các cao thủ sửa giúp em đoạn code này với ạ !
Em xin chân thành cảm ơn ạ !
đây là link file Excel: http://www.mediafire.com/file/1pf8z1o5yamdbd7/Bien ban NT -giang.xls
Đoạn code nằm ở sheet "NB" command button tên là "IN GIANG"
Lần chỉnh sửa cuối: