Phần mềm in giấy khen hàng loạt cho trường THCS và THPT (1 người xem)

[vtkmoduc1000]

bạn nào cần thì liên hệ số điện thoại 0914027169 để gởi cho

 

[giaiphap]

Theo tôi thấy nếu dùng Excel để in thì nó không nhanh đâu, trước kia tôi cũng từng in giấy khen bằng excel nhưng in rất chậm (lý do là in được từng tờ một tốc độ hơi bị chậm), nên tôi thấy sử dụng Word (Dùng chức năng Mail Merge) để in là nhanh nhất. Còn muốn dùng Excel thì tôi nghĩ cách này sẽ nhanh hơn của bạn là từ sheet GK bạn sẽ tạo ra một sheet mới và tạo mỗi một học sinh là một trang trên sheet đó thì khi in tốc độ sẽ nhanh hơn nhiều, còn cái mẫu giấy khen tôi nghĩ không nên khóa sheet để mọi người tùy chỉnh độ rộng cột hay độ cao của hàng vì mẫu giấy khen mỗi đợt mỗi khác. Một vấn đề góp ý về code của bạn là trong code của bạn không hề sử dụng cái bẩy lỗi nào cả, chính vì vậy khi chạy sẽ phát sinh một số lỗi không lường trước được. Cái nửa bạn đặt mật khẩu khóa sheet là số ĐT của chính bạn sẽ dễ bị đoán lắm nghe

 

[befaint]

Một vấn đề góp ý về code của bạn là trong code của bạn không hề sử dụng cái bẩy lỗi nào cả,

Anh ơi, chủ thớt oánh dấu bản quyền rồi mà anh xem code?

Bản quyền thuộc thầy Phan Thế Vinh - GV: Toán Trường THPT Phạm Văn Đồng

@Chủ thớt: Nếu in trên phôi đã có sẵn hoa văn, mẫu đầy đủ thì Form in chỉ để nội dung cần in (Text) để giảm tối đa dung lượng cần in --> Tốc độ nhanh.

 

[Mutants Men]

bạn nào cần thì liên hệ số điện thoại 0914027169 để gởi cho

gửi bạn
tạo 1 sheet điền như hình nhé

cho code này vào module
nội dung code sẽ xử lý số thứ tự như in trang lúc in vậy, như thế sẽ tiện hơn cách ban đầu, không cần làm nhiều lần

Sub xTest()
    T1 = ActiveCell.Value
    Dim Arr1 As Variant, Arr2 As Variant
    Dim i As Long, j As Long, k As Long
    If InStr(T1, ";") > 0 Then Arr1 = Split(T1, ";") Else Arr1 = Array(T1)
    For i = LBound(Arr1) To UBound(Arr1)
        If InStr(Arr1(i), "-") > 0 Then Arr2 = Split(Arr1(i), "-") Else Arr2 = Array(Arr1(i))
        k = 0
        If Not IsNumeric(Arr2(0)) Then GoTo Nex
        For j = Arr2(LBound(Arr2)) To Arr2(UBound(Arr2))
            MsgBox Arr2(0) + k '<= STT cho nay
            k = k + 1
        Next j
Nex:
    Next i
End Sub

tạo 1 nút rồi gán code đó vào nút đó như hình
đặt chuột lần lượt tại ô
A1 rồi nhấn nút
A2 rồi nhấn nút
A3 rồi nhấn nút
nếu chấp nhận cách đó thì nên thêm 1 bước bẫy lỗi nếu không nhập gì thì sẽ in tất cả
do file của bạn nên không can thiệp nhiều.
tại sao lại không dùng hàm đặt vô ngay vùng in luôn mà phải dùng thông qua textbox thế bạn.
chắc mẫu giấy khen có sẵn hoa văn nên chắc không cần phải dùng nền như thế
còn nếu mẫu sẵn không có ảnh nền mà bắt buộc chèn ảnh vào excel làm nền thì làm các bước sau để làm ảnh nền
B1: vào tab "INSERT" chọn " Header & Footer"
B2: tab "DESIGN" chọn "Picture" rồi chọn hình cần chèn
xong bước trên rồi tại các ô trên cell chỉ cần làm công thức link qua là xong, không cần dùng textbox cầu kỳ như thế

 

[be_09]

Chủ thớt đã nêu rõ nội dung rồi nhưng các bạn không chú ý:

bạn nào cần thì liên hệ số điện thoại 0914027169 để gởi cho

Có nghĩa là File bài 1 chỉ là bản mẫu, bạn nào muốn dùng File thật thì liên hệ số điện thoại (ở bài 1).

Tôi thấy File trên chẳng cần cái Logo trống đồng làm cái gì, vì cái phôi giấy khen đã có sẳn, vì vậy chỉ cần thiết kế trên Excel cho phù hợp với phôi giấy là đủ.

 

[dhn46]

In giấy khen hàng loạt trên Excel thì bạn tham khảo Topic sau:


http://www.giaiphapexcel.com/dienda...àng-loạt-với-dữ-liệu-có-sẵn-trên-excel.78843/

 

[thuyyeu99]

Trời in giấy khen mà cũng làm trên Excel chi cho cực vậy, sao không in bên Word cho lẹ, mình mới in trên 300 em một loán là xong, quan trong la chinh cai mau cho khớp thôi

 

[befaint]

Trời in giấy khen mà cũng làm trên Excel chi cho cực vậy, sao không in bên Word cho lẹ, mình mới in trên 300 em một loán là xong, quan trong la chinh cai mau cho khớp thôi

Chưa biết cực tới mức nào nhưng ở đây toàn những người làm được cái việc: Click vào 1 cái nút 1 cái duy nhất. Đi chơi về là xong việc.

 

[thuyyeu99]

Hihi thay vì em ngồi em chỉnh mẫu, rồi viết cái macro lấy dữ liệu từng dòng rồi đặt lệnh in cu lap di lap lai...., em dùng Word megre xong nhan lệnh in em thấy lẹ hơn nhiều.
Nói chung là tùy ý thích mỗi người thôi, có người thì thấy tiện, có người thì thấy bất tiện...