|
Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!
Bạn phải đăng nhập để xem được nội dung, nếu bạn chưa có tài khoản? hãy Đăng ký mới
x
Ngày mai cần hồ sơ gấp để ký TVGS thanh toán lấy tiền nhưng không biết in thế nào cho nhanh
Hồ sơ hoàn công 1500 tờ, mình quản lý phai in trong 1 bảng tính, mình dùng hàm index lấy giá trị qua số thứ tự 1,2,3,.....,1500
hiện tại mình phải đánh số 1 và in , số 2 và in,.............,số 1500 và in rất mất thời gian. mình biết trong maxcro có cánh in nhanh nhờ các bạn, các anh và anh Phu Bi chỉ giúp thuật toán trong macro.
d.x.hieu2010 trong 18/4/2014 16:26 đã trả lời thêm:
Nhờ anh fubi giúp, em đã tự làm được một macro KTHH,KL ẩn cột lỗi và dòng ẩn nhưng không biết thủ thuật in nhanh, nhờ bác Phú Bị hướng dẫn để em làm tiếp macro in, nếu có thể gộp được với macro KTHH,KL thì càng tốt.Thứ tự in của em như sau:
1.đánh số thứ tự in
2.chạy macro KTHH,KL
3.in
4. lặp lại các bước 1,2,3 nhiều lần
d.x.hieu2010 trong 18/4/2014 16:37 đã trả lời thêm:
Gửi bác Phu Bi, em đã sửa lại bài viết kèm theo phai nhờ bác Phu Bi giúp
em đã gộp được bước 1, bước 2, bước 3 vào thành 1 macro (ở sheet MUCLUC lập ô CA1 = BZ1+1) nhờ bác Phu Bi xem có cách khác nhanh hơn được không chẳng hạn thực hiện 1 macro có thể in được tất cả các lần lặp hoặc chọn số thứ tự mong muốn (chẳng hạn số thứ tự từ 10 - 50)?
Sub inan()
'
' inan Macro
' Macro recorded 19/4/2014 by Microsoft
'
' Keyboard Shortcut: Ctrl+q
'.......................................................................................................................................
Range("CA1").Select (ở sheet MUCLUC)
Selection.Copy
Range("BZ1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.......................................................................................................................................
Sheets("KTHH").Select
Range("B23:Z129").Select
Selection.EntireRow.Hidden = False
Selection.EntireColumn.Hidden = False
Range("AA25:AA128").Select
Selection.SpecialCells(xlCellTypeFormulas, 2).Select
Selection.EntireRow.Hidden = True
Columns("H:Y").Select
Selection.SpecialCells(xlCellTypeFormulas, 4).Select
Selection.EntireColumn.Hidden = True
.........................................................................................................................................
Sheets("KL").Select
Range("A13:M118").Select
Selection.EntireRow.Hidden = False
Selection.EntireColumn.Hidden = False
Range("N14:N116").Select
Selection.SpecialCells(xlCellTypeFormulas, 2).Select
Selection.EntireRow.Hidden = True
Columns("E").Select
Selection.SpecialCells(xlCellTypeFormulas, 4).Select
Selection.EntireColumn.Hidden = True
.......................................................................................................................................
Sheets(Array("NTCV -NB", "YC", "NTCV", "KTHH", "KL")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
|
|