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

[sinhthanh1984]

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à)

 

[dhn46]

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]

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]

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.

 

[sinhthanh1984]

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.

Cảm ơn bạn mình sẽ thử luôn. Nếu vướng mắc chỗ nào sẽ lại hỏi tiếp.

 

[dhn46]

Cảm ơn bạn mình sẽ thử luôn. Nếu vướng mắc chỗ nào sẽ lại hỏi tiếp.

Làm luôn cho bạn, bạn xem và áp dụng.

 

[sinhthanh1984]

Làm luôn cho bạn, bạn xem và áp dụ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?

 

[dhn46]

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]

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]

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]

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:

 

[subasatran]

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]

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 ạ

 

[sense1986]

Chào ace!
Nhờ anh em tạo giúp tôi 1 file tự động điền, in thông tin hàng loạt cho từng nhân viên với format form gửi kèm ạ.
Xin cám ơn!

 

[Maika8008]

Chào ace!
Nhờ anh em tạo giúp tôi 1 file tự động điền, in thông tin hàng loạt cho từng nhân viên với format form gửi kèm ạ.
Xin cám ơn!

Mở 1 thớt mới đi bạn. Làm chủ căn nhà sướng hơn ở nhờ chứ

 

[BuiQuangThuan]

Chào ace!
Nhờ anh em tạo giúp tôi 1 file tự động điền, in thông tin hàng loạt cho từng nhân viên với format form gửi kèm ạ.
Xin cám ơn!

Cái này dùng Mailings có khi nhanh hơn viết code ấy nếu như có đủ các trường trong excel à