XD360 KÍNH CHÚC CHO MỌI NHÀ VẠN SỰ AN LÀNH!

Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng

 Quên mật khẩu
 Đăng ký mới
Anh Trần HòeBùi Quốc Hưng
Xem: 1038|Trả lời: 0
Thu gọn cột thông tin

Help help về macro

[Lấy địa chỉ]
d.x.hieu2010 Đăng lúc 18/4/2014 15:42 | Xem tất |Chế độ đọc

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


BBNT 3.2.xls

924.5 KB, Lượt tải về: 194

Đánh giá

Bạn gửi file lên đây mình mới giúp được.  Đăng lúc 18/4/2014 15:45

www.xaydung360.vn XÂY TÂM, DỰNG TẦM CHUYÊN NGHIỆP

Phiên bản Mobile|Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng  

Phần mềm dự toán xây dựng excel | Hướng dẫn lập dự toán xây dựng | Phần mềm tư vấn giám sát | Phần mềm quản lý chất lượng xây dựng |

Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng

Phần mềm ôn thi sát hạch chứng chỉ hành nghề Kiến Trúc sư

Phần mềm ôn thi sát hạch chứng chỉ hành nghề Đấu thầu

GMT+7, 29/3/2024 21:00 , Processed in 0.097862 second(s), 30 queries .

Powered by Discuz! X3.2

© 2001-2013 Kiso Comsenz Inc.