PDA

View Full Version : Làm nhãn vở học sinh trên Excel



ndu96081631
10-04-11, 11:50 AM
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:

61153


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

61154


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: http://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: http://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

tedaynui
12-04-11, 11:02 AM
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

ndu96081631
12-04-11, 11:32 AM
Không ngờ Anh cũng có nhã hứng với mấy cái vụ này, hi hi

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...



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

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é


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.

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

tedaynui
12-04-11, 06:51 PM
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

ndu96081631
12-04-11, 07:17 PM
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)

ptm0412
12-04-11, 07:32 PM
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 = [M2].Font.Size
.Name = [M2].Font.Name
End With

giauyen2009
14-08-11, 10:08 PM
Cảm ơn thầy nhìu lắm lắm, năm nay con em vào lớp 1, nhờ thấy mà em có được nhãn vở đẹp cho bé.

tung1211
20-08-11, 04:38 PM
bác ơi cho cháu hỏi làm thế nào để sử dụng dữ liệu ở sheet data ạ,cháu muốn in nhãn theo tên trường lớp của cháu mà ko biết làm.**~**

ndu96081631
20-08-11, 08:57 PM
bác ơi cho cháu hỏi làm thế nào để sử dụng dữ liệu ở sheet data ạ,cháu muốn in nhãn theo tên trường lớp của cháu mà ko biết làm.**~**
Thì bạn cứ nhập liệu bình thường bên sheet Data là được rồi, có vấn đề gì chứ?

dhn46
21-08-11, 12:04 AM
Bác Ndu viết code gọn gàng quá, nhưng cải tiến 1 chút để nó in ra từng cái nhãn vở theo số lượng data (như report access) thì hay hơn nữa.
Cái này rất hữu ích vì nếu chỉ cần in 1 cái mà in tất cả trang giấy thì hơi lãng phí mực ...
Tks anh Ndu!

ndu96081631
21-08-11, 06:14 AM
Bác Ndu viết code gọn gàng quá, nhưng cải tiến 1 chút để nó in ra từng cái nhãn vở theo số lượng data (như report access) thì hay hơn nữa.
Cái này rất hữu ích vì nếu chỉ cần in 1 cái mà in tất cả trang giấy thì hơi lãng phí mực ...
Tks anh Ndu!
Thì bạn cải tiến đi...
Vì mấy câu học sinh (bạn của con tôi) toàn nhờ in 1 lần 10 nhãn nên tôi thiết kế như vậy

tung1211
22-08-11, 08:49 AM
cháu nhập tên trường lớp của cháu vào sheet data rồi phải làm thế nào để in ra nhãn tên cháu ạ,xin lỗi làm phiền chú tại cháu ko biết về excel chỉ muốn in cái nhãn vở mà loay hoay mãi ko được ạ

ndu96081631
22-08-11, 09:02 AM
cháu nhập tên trường lớp của cháu vào sheet data rồi phải làm thế nào để in ra nhãn tên cháu ạ,xin lỗi làm phiền chú tại cháu ko biết về excel chỉ muốn in cái nhãn vở mà loay hoay mãi ko được ạ
Bạn cứ sang sheet Print, check vào mục In tất cả, xong bấm nút Print xem thế nào
Sheet thiết kế quá đơn giản, vọc cũng ra mà.. Tôi không nghĩ rằng file này lại gây khó khăn cho bạn khi sử dụng (trừ phi bạn không biết Enable macros thì có làm gì cũng không chạy được chương trình)

tung1211
22-08-11, 09:12 AM
đúng là do cháu chưa enable cai macro,cháu làm được rồi ạ,cảm ơn chú.--=0

dhn46
22-08-11, 10:12 PM
Thì bạn cải tiến đi...
Vì mấy câu học sinh (bạn của con tôi) toàn nhờ in 1 lần 10 nhãn nên tôi thiết kế như vậy
Vâng e cũng đã làm 1 file in thẻ nhân viên công ty theo dạng như vậy rùi, nhưng code lủng củng quá...+-+-+-+

Dauthivan
26-08-11, 12:20 PM
Cảm ơn thày ndu, từ nay em đỡ phải mất tiền đi mua nhãn vở cho cháu rồi. Xuống cơ quan in cái của thày cho rẻ mà lại đẹp nữa chứ.

Dauthivan
26-08-11, 02:24 PM
Bé lớn nhà em rất thích bìa do thày thiết kế, đứa thứ 2 đang học lớp 1 lại cứ đòi bằng được cái hình quyển sách đang mở ra ở trong file em đính kèm. Em đi tìm mãi trên mạng chẳng được. Em xin được mạo muội gửi nhờ thày cái hình này trong chủ đề của thày, rất mong thày và mọi người giúp em có thể tách hình trong đó ra làm 3 hình nhỏ được không ah? Nếu được xin hãy giúp em với.

ndu96081631
26-08-11, 02:28 PM
Bé lớn nhà em rất thích bìa do thày thiết kế, đứa thứ 2 đang học lớp 1 lại cứ đòi bằng được cái hình quyển sách đang mở ra ở trong file em đính kèm. Em đi tìm mãi trên mạng chẳng được. Em xin được mạo muội gửi nhờ thày cái hình này trong chủ đề của thày, rất mong thày và mọi người giúp em có thể tách hình trong đó ra làm 3 hình nhỏ được không ah? Nếu được xin hãy giúp em với.
Mấy cái này thuộc về thiết kế thôi bạn à!
Bạn cứ thiết kế thoải mái, chẳng liên quan gì đến code đâu
Còn việc tách hình thì cứ dùng MSPaint của Windows cũng làm được rồi

Dauthivan
26-08-11, 02:41 PM
Mấy cái này thuộc về thiết kế thôi bạn à!
Bạn cứ thiết kế thoải mái, chẳng liên quan gì đến code đâu
Còn việc tách hình thì cứ dùng MSPaint của Windows cũng làm được rồi
Nhưng em đang cần cái hình ở giữa, em không tách được thày ah.

ndu96081631
26-08-11, 02:43 PM
Nhưng em đang cần cái hình ở giữa, em không tách được thày ah.
Hình ở giữa là quyển sách, nó đang bi "che" bởi cây viết
Vậy e rằng bạn phải dùng phần mềm đồ họa để làm việc này thôi (tách bỏ những chổ không cần thiết và tự vẽ thêm những chổ bị thiếu)

Dauthivan
26-08-11, 03:17 PM
Hình ở giữa là quyển sách, nó đang bi "che" bởi cây viết
Vậy e rằng bạn phải dùng phần mềm đồ họa để làm việc này thôi (tách bỏ những chổ không cần thiết và tự vẽ thêm những chổ bị thiếu)
Vậy trong TH này em phải dùng phần mềm Photoshop hay là Corel ah? Bởi em cũng thích học đồ họa. Xin thày cho em một lời khuyên.

ndu96081631
26-08-11, 03:28 PM
Vậy trong TH này em phải dùng phần mềm Photoshop hay là Corel ah? Bởi em cũng thích học đồ họa. Xin thày cho em một lời khuyên.
Đồ họa tôi không rành đâu
Tuy nhiên, tôi đang nghĩ tại sao bạn không search google để tìm 1 cái hình vừa ý nhỉ? Chẳng hạn là: http://www.google.com.vn/#sclient=psy&hl=vi&biw=1280&bih=617&source=hp&q=clipart+book&aq=0&aqi=g2&aql=&oq=&pbx=1&fp=d5c82a70d7869a81
Cả 1 rừng

nguoitinh1
15-08-12, 11:18 PM
Anh cho tôi hỏi ở dòng "tập" tôi muốn đánh máy đẻ in luôn thi phải lam sao ạ.
vidu: Tập : bài tập toán

ndu96081631
16-08-12, 04:02 PM
Anh cho tôi hỏi ở dòng "tập" tôi muốn đánh máy đẻ in luôn thi phải lam sao ạ.
vidu: Tập : bài tập toán

Bạn để ý sẽ thấy:
- TextBox TRƯỜNG liên kết với cell M1
- TexBox LỚP liên kết với cell M2
Tức là khi cell M1 hoặc M2 thay đổi thì giá trị trong TextBox TRƯỜNG hoặc LỚP cũng thay đổi theo
Vậy tương tự thế, ta sẽ xây dựng TextBox TẬP cho nó liên kết với cell nào đó --> Gõ tên TẬP vào cell này sẽ thấy "ép phê" liền
Tự nghiên cứu xem

0167767
16-08-12, 04:26 PM
Cảm ơn anh qúa hay. Nhưng anh có thể thiết kế thêm 1 chút được không vậy. Có danh sách 50 hay 100 gì đó thì gắn cho mỗi nhãn là 1 cái tên và mỗi lần in là 10 người. Ý muốn nói làm cái phiếu hay 1 cái thẻ gì cũng được. Cảm ơn anh

ndu96081631
16-08-12, 04:31 PM
Cảm ơn anh qúa hay. Nhưng anh có thể thiết kế thêm 1 chút được không vậy. Có danh sách 50 hay 100 gì đó thì gắn cho mỗi nhãn là 1 cái tên và mỗi lần in là 10 người. Ý muốn nói làm cái phiếu hay 1 cái thẻ gì cũng được. Cảm ơn anh
Hầu hết trong file chỉ là "vẽ vời" và 1 ít công thức, còn code VBA chủ yếu chỉ hổ trợ chuyện in ấn
Vậy nếu bạn có thời gian, cứ việc "rã xác" mấy cái TextBox ấy rồi tự mình nghiên cứu đi
(chỉ mất thời gian thơi chứ chẳng khó khăn gì)

vuvangiap94
20-08-12, 06:38 PM
Hầu hết trong file chỉ là "vẽ vời" và 1 ít công thức, còn code VBA chủ yếu chỉ hổ trợ chuyện in ấn
Vậy nếu bạn có thời gian, cứ việc "rã xác" mấy cái TextBox ấy rồi tự mình nghiên cứu đi
(chỉ mất thời gian thơi chứ chẳng khó khăn gì)


thầy ndu96081631 ơi cho cháu hỏi.là cháu đang muốn làm nhãn vở cho cả lớp cháu..thì phải làm thế nào ạ..điều kiện bắt buộc là in tên từng người 1 còn phần tên trường thì giống nhau.lớp cũng giống hết.thì làm thế nào hả bác...mong bác giúp ạ

chuot0106
03-07-13, 08:23 AM
Thầyndu96081631 (http://www.giaiphapexcel.com/forum/member.php?61139-ndu96081631)
(http://www.giaiphapexcel.com/forum/member.php?61139-ndu96081631)ơi. Em thấy tiện ích nhãn vở của thầy rất hay. Không phải ở chuyện tiết kiệm chi phí mà ý nghĩa ở chỗ tự tay mình làm ra những chiếc nhãn vở ngộ nghĩnh cho các bé. Nhưng em thấy mẫu nhãn vở của thầy ít màu sắc quá. Thầy còn mẫu nào nữa thì share cho chúng em với. Cảm ơn thầy!!!

chuot0106
03-07-13, 08:40 AM
Anh chị nào trên diễn đàn có thì share cho em với. Em đang cần để làm tặng các em HS thân yêu.

ndu96081631
03-07-13, 10:36 AM
Nhưng em thấy mẫu nhãn vở của thầy ít màu sắc quá. Thầy còn mẫu nào nữa thì share cho chúng em với. Cảm ơn thầy!!!

Bạn tự mình tìm trên mạng đi, thấy mẫu nào vừa ý thì cứ thay vào
Chuyện nhỏ mà

chuot0106
03-07-13, 10:48 AM
Bạn tự mình tìm trên mạng đi, thấy mẫu nào vừa ý thì cứ thay vào
Chuyện nhỏ mà

Thầy có thể hướng dẫn em kĩ hơn cách thay được không ạ.

ndu96081631
03-07-13, 11:05 AM
Thầy có thể hướng dẫn em kĩ hơn cách thay được không ạ.

Nhãn vờ bao gồm: Mẫu nhãn + 5 cái TextBox ghi TRƯỜNG, LỚP, TẬP, TÊN, NĂM HỌC
Nếu bạn chọn chuột vào từng cái TextBox rồi nắm kéo sang nơi khác thì bạn chỉ còn lại cái MẪU NHÃN VỞ mà thôi.
Cái MẪU NHÃN VỞ này bạn có thể thay thế tùy ý (vì nó chẳng có liên quan tí gì với phần lập trình cả)
Vậy, nếu cảm thấy mẫu nhãn này chưa đẹp, bạn có thể tìm trên mạng mẫu khác rồi thay vào, chỉ là phần trang trí thôi mà

chuot0106
03-07-13, 11:28 AM
Nhãn vờ bao gồm: Mẫu nhãn + 5 cái TextBox ghi TRƯỜNG, LỚP, TẬP, TÊN, NĂM HỌC
Nếu bạn chọn chuột vào từng cái TextBox rồi nắm kéo sang nơi khác thì bạn chỉ còn lại cái MẪU NHÃN VỞ mà thôi.
Cái MẪU NHÃN VỞ này bạn có thể thay thế tùy ý (vì nó chẳng có liên quan tí gì với phần lập trình cả)
Vậy, nếu cảm thấy mẫu nhãn này chưa đẹp, bạn có thể tìm trên mạng mẫu khác rồi thay vào, chỉ là phần trang trí thôi mà

Ra vậy chả trách em muốn thay đổ nội dung của nhãn mãi mà không được. Ah thầy ơi muốn đưa mẫu vào mình vào insert--> insert Picture đúng ko thầy?

phutrieu88
15-08-13, 04:10 PM
cho em hỏi,mình muốn thêm dòng "số điện thoại" dưới dòng "năm học " thì phải làm sao? hay là ở dòng " lớp ".em muốn ghi "lớp:2A2- 0987xxxxxx" nhưng không được,nó chỉ hiện lên " lớp 2A2- ".vậy giờ phải làm sao?

minhhangg
02-11-13, 07:21 AM
Nhãn vờ bao gồm: Mẫu nhãn + 5 cái TextBox ghi TRƯỜNG, LỚP, TẬP, TÊN, NĂM HỌC
Nếu bạn chọn chuột vào từng cái TextBox rồi nắm kéo sang nơi khác thì bạn chỉ còn lại cái MẪU NHÃN VỞ mà thôi.
Cái MẪU NHÃN VỞ này bạn có thể thay thế tùy ý (vì nó chẳng có liên quan tí gì với phần lập trình cả)
Vậy, nếu cảm thấy mẫu nhãn này chưa đẹp, bạn có thể tìm trên mạng mẫu khác rồi thay vào, chỉ là phần trang trí thôi mà
Anh ndu ơi! Thay Text box bằng chữ WordArt.
VD: Cell A1 em gõ Nguyễn Anh Tuấn thì chữ WordArt này thay đổi theo cell là Nguyễn Anh Tuấn vậy code như thế nào vậy anh. Khoảng 4 cái WordArt thôi anh à. Anh cho em code đó nhé, cảm ơn anh nhiều.
Em làm được rồi anh ơi!