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

Liên hệ QC
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.
 
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
 
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
 
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
 
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ì)
 
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 ạ
 
Thầyndu96081631
ơ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!!!
 
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à
 
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?
 
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!
 
Lần chỉnh sửa cuối:
Mình đổi font và size mà có thấy thay đổi gì trong nhãn đâu bạn?
 
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ì)
Anh có thể giúp tôi giải thích dùm
Public DataRng As Range, Title As Range
Option Private Module
Sub PrintLabel()
Dim i As Long
For i = Sheet1.Range("M6").Value To Sheet1.Range("M7").Value
Sheet1.Range("M1") = Title(1, 1).Value
 

File đính kèm

  • New Microsoft Excel Worksheet.xls
    84 KB · Đọc: 58
Lần chỉnh sửa cuối:
Anh có thể giúp tôi giải thích dùm

Cái Title(1, 1) là cái gì nó nằm ở chổ nào vậy DataRng(i, 1).Valuelà cái gì nó nằm ở chổ nào vậy
để mình có thể hiểu áp dụng cho công việc của mình. Cảm ơn anh nhiều.
----------------------------------------------------------------------------------------------
Tôi muốn in giống như Anh sao chưa được, Tôi đính kèm file Anh xem giúp dùm mình nhé, Cảm ơn Anh nhiều.

Trong file gốc người ta có đoạn code này:
Mã:
Sub Auto_Open()
  With Sheet3.Range("A1").CurrentRegion
    [COLOR=#ff0000]Set DataRng = Intersect(.Offset(1), .Cells)[/COLOR]
   [COLOR=#ff0000] Set Title = .Resize(1)[/COLOR]
  End With
  SelectPages
End Sub
Còn trong file của bạn nó biến đâu rồi
 
Trong file gốc người ta có đoạn code này:
Mã:
Sub Auto_Open()
  With Sheet3.Range("A1").CurrentRegion
    [COLOR=#ff0000]Set DataRng = Intersect(.Offset(1), .Cells)[/COLOR]
   [COLOR=#ff0000] Set Title = .Resize(1)[/COLOR]
  End With
  SelectPages
End Sub
Còn trong file của bạn nó biến đâu rồi
CẢM ƠN ANH NHIỀU. Anh có thể giúp tôi 1 chút được chứ anh mình.
Mình muốn 1 học sinh có 4 cái phù hiệu, theo code in của anh in vẫn được (thì chỉ làm ra 4 cái phù hiệu thôi, nếu như vậy trang giấy A4 còn dư, trống rất nhiều), vậy mình muốn trên giấy A4 mỗi lần in thì chỉ in 3 em từ danh sách từ trên xuống, sau khi hết 3 em đầu thì phù hiệu tự động đổi tên học sinh in 3 em tiếp theo (tức là từ thứ tự số 4 đến 6), cứ như vậy cho đến hết 48 em.
Mình diễn đạt như vậy không biết có kém quá không. Hi vọng anh giúp được.
Chân thành cảm ơn anh.
 

File đính kèm

  • PHU HIEU.xls
    114.5 KB · Đọc: 44
Lần chỉnh sửa cuối:
Cho minh hoi muốn nhâp vào chổ Tập : Lịch Sử hay Công Nghệ thì nhập như thế nào , và có thể đổi phong chữ không và thay đổi độ lớn nhỏ của chử ra sao . vui lòng cho mình biết cảm ơn Anh nhiều
 
mình cũng muốn thay đổi chố tập vì mình dạy bộ môn. Bác chủ topic chỉ giùm với ahj
 
Anh ơi có code nào update lại dữ liệu đã nhập trên textbox không anh
 
Web KT
Back
Top Bottom