Làm nhãn vở học sinh trên Excel

Tôi thấy thằng con tôi cứ lui cui với mấy cái nhãn vở, lúc thì mua mẫu có sẳn, lúc thì tự vẽ lấy mà thấy nó vẫn không mấy hài lòng
Tôi chợt nghĩ tại sao mình không dùng Excel để thiết kế nhỉ? Mẫu thì cứ lên Google down về, chèn các trường vào là xong!
1> Nhập liệu
Ta nhập liệu đầy đủ vào sheet Data như hình:

1980

2> In nhãn
Bên sheet Print đã thiết kế sẳn mẫu với 10 nhãn trong 1 trang in, chỉ việc bấm nút là toàn bộ các record bên Data sẽ tự chèn vao

1979

Tôi đã thiết sẳn 3 file với 3 loại font thông dụng: TCVN, VNI và Unicode —> Download tại đây: https://www.mediafire.com/?bumgdrjxe7kbmr3
Riêng Unicode, vì không có mẫu font đẹp nên các bạn cần down thêm font để hổ trợ —> Download tại đây: https://www.mediafire.com/?uuzop9ckz1xudkv
————————————————————
Các bạn có thể dùng loại giấy có keo dán sẳn ở mặt dưới để in. In xong, chỉ việc lọt lớp giấy bọc keo là có thể dán vào vở
Vì tôi không có khiếu lắm về mấy vụ thiết kế này nên mong các bạn download về dùng và góp ý cho hoàn thiện thêm
Cảm ơn

Không ngờ Anh cũng có nhã hứng với mấy cái vụ này, hi hi

Khi mở file lên, mỗi lần lật trang nó refresh lại màn hình (do có nhiều Frame hoa văn), màn hình chớp giật liên tục muốn treo Excel luôn anh à.

Xin nói thêm loại giấy Decal có loại in không ăn mực kể cả in Laser. Nên hỏi kỹ người bán trước khi mua, hình như loai giấy Decal mặt sau có màu xanh nhạt mới in được.

TDN

Hết mình vì con cái thôi… Làm Excel lâu nay mà chẳng ứng dụng để giúp con mình thì thật.. quá tệ
Ẹc.. Ẹc…

Tôi cũng không biết nữa, trên máy tôi thì in bình thường, có giật nhưng chẳng đến nỗi nào
Tuy nhiên, tôi đề xuất giải pháp chuyển mẫu nhãn vở thành Picture (nó sẽ là 1 "khối" thống nhất), chỉ chừa lại các textbox thôi —> Tôi làm 1 file, gữi lên Thầy thử xem sao nhé

Cty tôi đang dùng loại giấy mà tiếc là nó hổng có tên tuổi gì cả, chẳng biết gọi là là gì nữa… nhưng in thì OK, rõ và ăn mực

Cảm ơn anh, lần này thì OK, chạy êm ru. Nhưng mà có voi rồi, lại muốn có thêm 2BT, hi hi
Tiện thể anh giúp luôn : nếu mình đổi Font hay Size ở Cột M thì các nhãn vở cũng thay đổi theo luôn
Thay mặt các cháu cảm ơn anh nhé, ẹc ẹc

TDN

Ẹc… Ẹc… thầy Phước cứ nói đùa. Toàn bộ các TextBox đã được Group chung thành 1 nhóm (tên là txtGrp) —> Vậy thì cứ "nắm đầu" thằng này mà chỉnh Font, size gì gì đó tuỳ thích thôi. Bằng tay cũng được, bằng VBA cũng đâu có làm khó thầy chứ

With Sheet1.Shapes("txtGrp").TextFrame.Characters.Font
.Size = ???
.Name = ???
End With
Thôi… thầy làm luôn đi —> Có ý tưởng gì hay về phần thiết kế, nhớ post lên cho mình học hỏi với (mình kém vụ thiết kế này lắm)

nếu mình đổi Font hay Size ở Cột M thì các nhãn vở cũng thay đổi theo luôn

Bỏ bớt vài cái ẹc ẹc, thay bằng 3 cái khà khà khà:

With Sheet1.Shapes("txtGrp").TextFrame.Characters.Font
.Size = .Font.Size
.Name = .Font.Name
End With

www.giaiphapexcel.com/diendan/threads/l%C3%A0m-nh%C3%A3n-v%E1%BB%9F-h%E1%BB%8Dc-sinh-tr%C3%AAn-excel.47555/

Khóa học SprinGO phù hợp

Ứng dụng AI và Chat GPT trong Quản trị nhân sự

Học xong khóa này, học viên có thể: Hiểu đúng bản chất AI, các nhóm AI phổ biến và cách AI “hoạt động” ở...

Xem khóa học