In tự động biên bản nghiệm thu công việc xây dựng

[ngocdao11764]

Cái khái niệm VBA nó quá mới đối với mình.mình mới về làm hồ sơ xây dựng nghiệm thu. mình có 1 file mẫu của cty . khi cột STT cột A8 trong sheet "list" thay đổi thì một số dữ liệu đổ về các sheet " lấy mẫu biên bản vL, BBNTVL,BBNT,NTHM" sẽ thay đổi. ai giúp mình tạo 1 đoạn code để in liên tục các biên bản khi List A8 thay đổi từ 1-13. cảm ơn..

 

[befaint]

Tôi làm nhanh như vầy.
Nếu cần có lựa chọn STT thì tối về tôi mới làm cho bạn được.
Bạn tải file về, mở file rồi nhần alt + F11 rồi sửa số 2 thành 13 là đúng yêu cầu của bạn
(Tôi để 2 để chạy thử)

Sub prev()
Dim i&
For i = 1 To 2 'Thay =13

 

[ngocdao11764]

cảm ơn..đã hiểu hiểu chút chút...nếu áp dụng cho những file có số lượng đầu việc lớn mình muốn in từ số 5-10 chẳng hạn thì làm sao. do mình tải file về sửa lại thì nó mặc định in từ 1 hay sao á...

 

[ngocdao11764]

Bạn thử chạy code sau. Chưa test nha

Sub In_GPE()
Dim I&, J&
I = Sheets("LIST").Range("B10").End(4).Offset(, -1).Value
For J = 1 To I
    Sheets("LIST").Range("A8").Value = J
    Sheets("Bien ban NT").PrintOut
    Sheets("NT HTHMCT").PrintOut
    Sheets("lay mau VL").PrintOut
    Sheets("BBNT VL").PrintOut
Next J
End Sub

bạn làm dể hiểu thiệt..bạn thêm cho vài dòng để có thể in from...to.. ( từ 2-10 chẳng hạn) . chứ mình chạy lệnh này nó mặt định là in từ 1.

 

[ngocdao11764]

vậy khi muốn in như vậy phải alt+F11 lên rồi sửa lại For J = 5 to 10 có các nào cho chọn từ bên ngoài lun hông .

 

[ngocdao11764]

vậy khi muốn in như vậy phải alt+F11 lên rồi sửa lại For J = 5 to 10 có các nào cho chọn từ bên ngoài

 

[befaint]

Dường như chủ topic không đọc các bài và... không tiếp thu gì.
Với tình hình này chắc chỉ còn "trùm" hpkhuong là nhẫn lại trả lời tiếp.
Chứ mình xin chạy...

 

[sanosuke_1211]

Hình như bạn ngocdao11764 có việc cần nhờ thì mới tạo nick để hỏi. Còn việc nhấn nút cảm ơn thì còn khá lạ lẫm.