Giúp em in văn bản với các điều kiện

[sealand]

-Phần tỉnh, thành phố tách ra chắc dễ thôi, nhưng quận huyện xã phường chắc là phức tạp vì cách ghi như thành phố HCM chẳng hạn.
-Phần sau cột O là Validation và Listview thôi.
Mình thêm hàm tách tỉnh với cú pháp: =tinh(dchi,k) (k=1: Xã, k=2: Huyện, k=3: Tỉnh)

Function tinh(dc As String, k As Integer) As String
Dim temp As Variant, i As Integer
dc = Trim(dc)
temp = Split(dc, ",")
Select Case k
Case Is = 3
tinh = temp(UBound(temp))
Case Is = 2
tinh = temp(UBound(temp) - 1)
Case Is = 1
tinh = Replace(dc, "," & temp(UBound(temp)), "")
tinh = Replace(tinh, "," & temp(UBound(temp) - 1), "")
Case Else
tinh = ""
End Select
End Function

 

[tam8678]

Phần tỉnh, thành phố tách ra chắc dễ thôi, nhưng quận huyện xã phường chắc là phức tạp vì cách ghi như thành phố HCM chẳng hạn.

-------
Ra được tỉnh là được lắm rồi, nhưng quận huyện xã phường thì cám ơn bạn, thực tế có người ở Cà Mau => Đầm Dơi, Đầm Cùng => là huyện, xã, phường, hay thôn, xóm ? Thực tế tôi xem tận mắt trên CMND chỉ có năm sinh => thế mới buồn .......
Còn trong trường hợp muốn in tất cả thì sao hả bạn ?

-------

Thực tế tôi có thể dùng record macro để ghi lại code để in, nhưng tôi muốn ( lại muốn )bạn viết code để có dịp học thêm cho từng trường hợp : in 1 người, in tất cả danh sách
--------

Danh sách nối dài thì phải sửa ở đâu hả bạn ?
Mong tin.

 

[sealand]

Mình thêm phần tách tỉnh, huyện
Minh đổi file

 

[tam8678]

Mình thêm phần tách tỉnh, huyện
Minh đổi file

-------
Sau khi test code em thông báo tình trạng cho anh sealand được rõ :
- Khi Run code xuất hiện hộp thông báo:
- => click OK => In => ra số danh sách hiện diện ( vd : 8 người), nhưng chỉ là 1 người được in trong 8 tờ anh ơi.
- => click cancel => không hiểu, mặc dù có " mò mẫm ", vì không có hướng dẫn xử dụng trước khi dùng => thua
Mong muốn;
- Chọn 1 số thẻ bất kỳ : In
- Run In Tất Cả : toàn bộ danh sách hiện diện được in, mỗi người 1 tờ.
Danh sách nối dài thì phải sửa ở đâu hả anh để litsbox ra đủ thông tin theo danh sách ?

Mong tin.

 

[sealand]

1/Mình thay Print bằng Printview, mối lần đóng là coi như in 1 tờ khai. Vậy khi xem có 7 lần đóng với 7 tên khác nhau đấy chứ.
2/File trước nếu ấn Cancel tức là không phải là in toàn bộ mà in từ dòng nào đến dòng nào (Gõ số dòng vào Inputbox).
3/Mình đặt Name động rồi, bạn cứ chép nối xuống thì Validation và Listview tự động cập nhât.

Nay mình loại bỏ chỉ đơn giản hoặc:

-In tờ kê theo sốb chọn,
-In tất cả

 

[tam8678]

1/Mình thay Print bằng Printview, mối lần đóng là coi như in 1 tờ khai. Vậy khi xem có 7 lần đóng với 7 tên khác nhau đấy chứ.
2/File trước nếu ấn Cancel tức là không phải là in toàn bộ mà in từ dòng nào đến dòng nào (Gõ số dòng vào Inputbox).
3/Mình đặt Name động rồi, bạn cứ chép nối xuống thì Validation và Listview tự động cập nhât.

Nay mình loại bỏ chỉ đơn giản hoặc:

-In tờ kê theo sốb chọn,
-In tất cả

-------

Em đã test code: đạt mọi mong muống.
Sự nhiệt tình của anh thật đáng để nhớ ( thức khuya theo anh mệt quá )
Chúc anh vui, khỏe