In tự động và điền thông tin vào Form có săn bằng VBA.

sinhthanh1984

Thành viên hoạt động
Tham gia ngày
15 Tháng bảy 2011
Bài viết
130
Được thích
58
Điểm
0
Tuổi
37
Mình có một Form mẫu giấy mời và 2 sheet( DSHS và Dữ_liệu). Mình muốn nhờ các cao thủ hộ viết đoạn code để có thể:
Một là: In tự động tùy chọn một số hoặc toàn bộ giấy mời.
Hai là: cứ mỗi lần in 1 giấy mời sẽ lấy các thông tin của học sinh trong 2 sheet ( DSHS và Dữ_liệu) để điền vao Form mẫu.
(lưu ý: Điền vào cả 2 mẫu giấy mời ở trên Form để tiết kiệm giấy đó mà)
 

File đính kèm

  • GIAY_MOI.rar
    5.5 KB · Đọc: 134
Lần chỉnh sửa cuối:

dhn46

Hướng tới tương lai
Tham gia ngày
1 Tháng ba 2011
Bài viết
3,250
Được thích
3,841
Điểm
1,868
Nơi ở
Hải Phòng
Bạn có thể tham khảo tiện ích in From hàng loạt, link tại chữ ký của mình. Hình như bạn đã ứng dụng cái này vào 1 công việc rồi và việc làm giấy mời này còn đơn giản hơn việc trước của bạn nữa.
Chúc thành công
 

sinhthanh1984

Thành viên hoạt động
Tham gia ngày
15 Tháng bảy 2011
Bài viết
130
Được thích
58
Điểm
0
Tuổi
37
Bạn có thể tham khảo tiện ích in From hàng loạt, link tại chữ ký của mình. Hình như bạn đã ứng dụng cái này vào 1 công việc rồi và việc làm giấy mời này còn đơn giản hơn việc trước của bạn nữa.
Chúc thành công

Lần trước bạn cũng cho mình tiện ích này rồi. Nhưng mình muốn in trên 1 mặt giấy A4 ra 2 tờ giấy mời cơ.(tiết kiệm giấy đó mà). Lần trước mình làm theo như hướng dẫn của bạn nhưng trên mặt giấy A4 chỉ ra một giấy mời thôi. Bạn suy nghĩ giúp mình với.
 

dhn46

Hướng tới tương lai
Tham gia ngày
1 Tháng ba 2011
Bài viết
3,250
Được thích
3,841
Điểm
1,868
Nơi ở
Hải Phòng
Lần trước bạn cũng cho mình tiện ích này rồi. Nhưng mình muốn in trên 1 mặt giấy A4 ra 2 tờ giấy mời cơ.(tiết kiệm giấy đó mà). Lần trước mình làm theo như hướng dẫn của bạn nhưng trên mặt giấy A4 chỉ ra một giấy mời thôi. Bạn suy nghĩ giúp mình với.
Nếu bạn sử dụng in Form có lặp lại thì nó cho ra 1 loạt giấy mời, bạn chỉ cần chỉnh trang in cho vừa 2 tờ là được.
 

dhn46

Hướng tới tương lai
Tham gia ngày
1 Tháng ba 2011
Bài viết
3,250
Được thích
3,841
Điểm
1,868
Nơi ở
Hải Phòng
Cám ơn bạn. Nhưng tại sao tất cả các mẫu giấy mời đều là tên của 1 em học sinh vậy bạn?
Thì bạn khai báo thêm trường tên nữa, tôi đã sửa lại fiel tại bài #9 bạn tải về xem thử. Híc giáo viên mà không chịu đọc hướng dẫn, mày mò các công cụ.
Chào bạn!
 

baby123baby

Thành viên mới
Tham gia ngày
28 Tháng năm 2009
Bài viết
2
Được thích
0
Điểm
601
Nơi ở
Hà nội
Giấy mời làm trên excel phải viết code khó quá, sử dụng trên word với chức năng mail mergi đơn giản hơn.
 

subasatran

Thành viên chính thức
Tham gia ngày
17 Tháng ba 2013
Bài viết
89
Được thích
3
Điểm
308
các code in form ở trên rất hay, nhưng hình như nếu sử dụng in form để ra file pdf(để gởi mail) thì phải save as từng file một.
Có cách nào in ra file pdf (qua máy in CutePDF Writer) mà tự động Save as theo một danh sách tên có sẵn không nhỉ.
Search trên diễn đàn ko thấy nói về trường hợp này. Thanks
 

NguyenNgocThuHien

Cute Black Cat
Tham gia ngày
11 Tháng mười một 2016
Bài viết
596
Được thích
422
Điểm
268
các code in form ở trên rất hay, nhưng hình như nếu sử dụng in form để ra file pdf(để gởi mail) thì phải save as từng file một.
Có cách nào in ra file pdf (qua máy in CutePDF Writer) mà tự động Save as theo một danh sách tên có sẵn không nhỉ.
Search trên diễn đàn ko thấy nói về trường hợp này. Thanks
Mình có một Form mẫu giấy mời và 2 sheet( DSHS và Dữ_liệu). Mình muốn nhờ các cao thủ hộ viết đoạn code để có thể:
Một là: In tự động tùy chọn một số hoặc toàn bộ giấy mời.
Hai là: cứ mỗi lần in 1 giấy mời sẽ lấy các thông tin của học sinh trong 2 sheet ( DSHS và Dữ_liệu) để điền vao Form mẫu.
(lưu ý: Điền vào cả 2 mẫu giấy mời ở trên Form để tiết kiệm giấy đó mà)


Bạn làm như trong file hướng dẫn, nếu muốn mở rộng ra thì thay đổi công thức cho phù hợp.
Có gì không hiểu thì xem video sau:
 

File đính kèm

  • GIAY_MOI.xls
    79 KB · Đọc: 39

subasatran

Thành viên chính thức
Tham gia ngày
17 Tháng ba 2013
Bài viết
89
Được thích
3
Điểm
308
Mã:
Option Explicit

Private Sub Cmd1_Click()
Dim Arr, I As Long
Dim stFileName As String
Dim stPath As String
Arr = Sheets("Data").Range("A2:T2", Sheets("Data").Range("A2:T2").End(4)).Value
stPath = Sheets("Form").Range("H3").Value
For I = 1 To UBound(Arr)
    Sheets("Form").Range("H2").Value = Arr(I, 1)
    'Sheets("Form").Range("A1:C26").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Arr(I, 1) & ".pdf"
    Sheets("Form").Range("A1:C26").PrintOut Filename:=ThisWorkbook.Path & "\" & Arr(I, 1) & ".pdf"
Next I
Unload Me
End Sub

Phương thức PrintOut có thể ghi như trên ko vậy mọi người ?
Mình muốn In ra file pdf và tự động đặt tên file in theo tên cho sẵn ?.
Bạn làm như trong file hướng dẫn, nếu muốn mở rộng ra thì thay đổi công thức cho phù hợp.
Có gì không hiểu thì xem video sau:
Do không rành về VBA nên nhìn code đọc không hiểu được :(
 

ubndpdx

Thành viên mới
Tham gia ngày
19 Tháng tư 2016
Bài viết
5
Được thích
3
Điểm
303
Bạn có thể tham khảo tiện ích in From hàng loạt, link tại chữ ký của mình. Hình như bạn đã ứng dụng cái này vào 1 công việc rồi và việc làm giấy mời này còn đơn giản hơn việc trước của bạn nữa.
Chúc thành công
Bạn có thể tham khảo tiện ích in From hàng loạt, link tại chữ ký của mình. Hình như bạn đã ứng dụng cái này vào 1 công việc rồi và việc làm giấy mời này còn đơn giản hơn việc trước của bạn nữa.
Chúc thành công
B ơi giúp mình với. Mình làm form in thẻ cử tri. Nhưng bị lỗi mất thông tin tại phần kqua. Form đã nhập đầy đủ nhưng kq k giống form. Sửa giúp mình với ạ
 
Top Bottom