Trộn Văn Bản (2 người xem)

[thưhiên99]

Trộn tài liệu trong Excel - Học thầy không tày học bạn!!!

Không hẳn là Excel không làm được, mà còn tốt là đằng khác. Ví dụ mục nơi sinh chỉ tách lấy tỉnh thôi chắc Merge của Word còn mệt. Mình thử 1 chút xem sao.

Cám ơn bạn Sealand. Bạn đã làm rất đúng ý mình đấy. Tuyệt lắm. Nhưng bạn ơi, ngày tháng năm sinh bị đảo lộn rồi. Phải làm sao đây? Mình chưa hiểu về VBA lắm, chỉ cho mình cách làm với nhé. Bạn đã làm bằng VBA và các công thức? Bạn có thể giải nghĩa các công thức đó cho minh hiểu được không vậy.

 

[sealand]

Bạn Format 2 ô C10 và C37 theo định dạng dd/mm/yyyy như sau
Chọn 2 ô C10 và C37-->Format-->Cells-->Chọn thẻ Number--> Ô Category chọn Custom sau đó gõ vào ô type : dd/mm/yyyy -->OK

Thực ra, bài này không có gì sử dụng VBA nhiều đâu mà chủ yếu dùng công thức để điền. Còn công thức thì mình giải thích không hay bằng tra cứu công thức ở chữ ký của BNTT Bạn nhấn vào đây và chọn ở chữ ký của bạn ấy nhé

 

[hoangtronglanh]

Xin chào Anh Sealand lâu rồi em không đwợc gặp Anh; Chắc lâu nay anh vẫn khỏe! Chúc Anh luôn luôn khỏe để các em đwợc nhờ.Phần làm hóa đơn điện em làm tốt rồi, em không quên đwợc công của Anh; xin cảm ơn Anh! Bây giờ em có việc muốn nhờ Anh giúp đỡ; hàng tháng em muốn in thông báo tiền điện báo cho các hộ sử dụng điện biết trwớc số tiền điện sử dụng trong tháng để họ chuẩn bị, nhwng nếu ngồi điền họ tên ,địa chỉ, số kw, số tiền(bằng số, bằng chữ) cho từng hộ thì mất quá nhiều thời gian; Anh giúp em lập bảng trộn thông báo giúp em với em xin cảm ơn Anh nhiều!

 

[sealand]

Các bạn thấy sự giúp đỡ của mình có ích là hạnh phúc đối với mình rồi. Cám ơn bạn đã hỏi thăm.
Để nhanh nhất trên file của bạn, bổ xung thêm 1 sheet và soạn mẫu thông báo, mình sẽ ráp công thức và lệnh vào. Như vậy thông báo sẽ đúng như ý của bạn. Nếu file lớn thì gửi vào email: vieth@live.com

 

[sealand]

Minh sửa để in tối đa 56526 HS. Riêng cột B sheet Dsach chỉ ghi số TT

1/Code theo nút xem

Sub xem_Click()
Dim tg As Long
Dim trang
ch = "IN GIAY CHUNG NHAN TN"
tg = Sheet2.[b56536].End(xlUp).Row - 10
tg = IIf(Int(tg / 2) = tg / 2, tg / 2, Int(tg / 2) + 1)
trang = InputBox("Xin cho biet xem tu trang nao:", ch, 1, 11000, 6000)
If trang <= 0 Or trang > tg Then GoTo thoat
For i = trang To tg
Sheet4.[k2] = i
kt = MsgBox("Co xem tiep cac trang con lai khong?", vbOKCancel, ch)
If kt = 2 Then Exit For
Next
thoat:
End Sub

2/Code cho nút in:

Sub in_Click()
Dim tg As Long
Dim trang
tg = Sheet2.[b56536].End(xlUp).Row - 10
tg = IIf(Int(tg / 2) = tg / 2, tg / 2, Int(tg / 2) + 1)
MsgBox tg
Exit Sub
ch = "IN GIAY CHUNG NHAN TN"
trang = InputBox("Xin cho biet in tu trang nao:", ch, 1, 11000, 6000)

If trang <= 0 Or trang > tg Then GoTo thoat
For i = trang To tg
Sheet4.[k2] = i
Sheet4.PrintOut Copies:=1, Collate:=True
Next
thoat:
End Sub

3/Code xác định cực đại Spinbox

Private Sub Worksheet_Activate()
tg = Sheet2.[b56536].End(xlUp).Row - 10
tg = IIf(Int(tg / 2) = tg / 2, tg / 2, Int(tg / 2) + 1)
Me.SpinButton1.Max = tg
End Sub