suzuki tadayoshi
Thành viên chính thức
- Tham gia
- 16/12/16
- Bài viết
- 52
- Được thích
- 1
Em muốn in nhiếu sheet cùng lúc (theo ý mình chứ ko phải toàn bộ sheet), cụ thể ở file ví dụ là bảng chấm công từng tháng, bảng lương từng tháng..... Em thấy hướng dẫn ở link:http://kysucauduong.blogspot.com/2014/02/tu-ong-in-cac-sheets-trong-workbook.html khá hay và làm theo...
em xin tóm tắt các bước cho anh chị không có thời gian đọc bài ở link: bước 1: dùng macro lấy tên các sheet xuất ra 2 cột; bước 2: nhập vào cột bên cạnh những sheet nào muốn in (số 1), không in (số 0); bước 3: dùng macro in các sheet đã được đánh dấu ở trên. Và em đang vướng ở bước 3 (dù đã chỉnh sửa đúng như chủ bài) em xin post đoạn code (báo lỗi ở chỗ màu đỏ):
Private Sub CommandButton2_Click()
Dim A As Range
Set A = Range("C2
100")
For i = 1 To A.Rows.Count
For j = 1 To ActiveWorkbook.Sheets.Count
If ActiveWorkbook.Sheets(j).Name = A(i, 1).Text And A(i, 2) = 1 Then
ActiveWorkbook.Sheets(j).Select
On Error Resume Next ActiveWorkbook.Sheets(j).PrintOut
End If
Next j
Next i
End Sub
Mong các anh chị trong diễn đàn giúp đỡ sửa đoạn code trên hoặc cho em giải pháp thông minh hơn. Trân trọng cám ơn!
em xin tóm tắt các bước cho anh chị không có thời gian đọc bài ở link: bước 1: dùng macro lấy tên các sheet xuất ra 2 cột; bước 2: nhập vào cột bên cạnh những sheet nào muốn in (số 1), không in (số 0); bước 3: dùng macro in các sheet đã được đánh dấu ở trên. Và em đang vướng ở bước 3 (dù đã chỉnh sửa đúng như chủ bài) em xin post đoạn code (báo lỗi ở chỗ màu đỏ):
Private Sub CommandButton2_Click()
Dim A As Range
Set A = Range("C2
100")For i = 1 To A.Rows.Count
For j = 1 To ActiveWorkbook.Sheets.Count
If ActiveWorkbook.Sheets(j).Name = A(i, 1).Text And A(i, 2) = 1 Then
ActiveWorkbook.Sheets(j).Select
On Error Resume Next ActiveWorkbook.Sheets(j).PrintOut
End If
Next j
Next i
End Sub
Mong các anh chị trong diễn đàn giúp đỡ sửa đoạn code trên hoặc cho em giải pháp thông minh hơn. Trân trọng cám ơn!
Lần chỉnh sửa cuối:
