Sử dụng ListView (1 người xem)

[sealand]

Tôi thấy các bài viết của LeVanDuyet, HanDung...,Tuan... về listview rất hay, nhất là khi dùng thử ví dụ của các bạn. Khi dùng thử ví dụ thì được, nhưng khi mình copy hoặc nhập y chang hướng dẫn thì không được. Khi khai báo Dim Vlist as ListView thì VBA báo lỗi không có object này. Trong danh sách object browser cũng chỉ có ListBox chứ không có ListView.
Vậy để có thể dùng listview được phải làm thế nào? Mong anh em chỉ giúp

 

[levanduyet]

Bạn phải vào VBE (màn hình soạn thảo), vào Tools/Reference và add MS ListView vào.

Lê Văn Duyệt

 

[sealand]

Bạn phải vào VBE (màn hình soạn thảo), vào Tools/Reference và add vào MS ListView.

Lê Văn Duyệt

Rất cám ơn, theo bạn mình làm được rồi. Mình chưa tham chiếu đến thư viện Object.
Nhưng lại phát sinh vấn đề: Các sheet danh mục của mình đang là font Times New Roman. Khi vào ListView không hiển thị được tiếng Việt, thương cho trót chỉ giùm nhé.

Mách các bạn Kế toán nên tham khảo: Nó hay hơn các Combo hay validation là:
-Lựa chọn rất linh hoạt. Chỉ cần thiết kế 1 cho tất cả.
-Có thể khóa được, tránh vô tình sửa đổi mã. Ví dụ: Đặt ô A1 trong sheet("info") (Thông tin chung) là true sẽ hiện form và ngược lại.
-Tìm theo các nick mình nêu trên.

 

[levanduyet]

Rất cám ơn, theo bạn mình làm được rồi. Mình chưa tham chiếu đến thư viện Object.
Nhưng lại phát sinh vấn đề: Các sheet danh mục của mình đang là font Times New Roman. Khi vào ListView không hiển thị được tiếng Việt, thương cho trót chỉ giùm nhé.

Vấn đề này trên diễn đàn đã đề cập nhiều. Bạn phải thực hiện như sau:
_ Thiết lập font cho Listview là VNI
_ Mỗi lần đưa dữ liệu vào ListView thì dùng hàm chuyển từ Unicode => VNI.
_ Mỗi lần đưa dữ liệu từ Listview ra thì làm ngược lại.

LVD

 

[Mr Okebab]

Rất cám ơn, theo bạn mình làm được rồi. Mình chưa tham chiếu đến thư viện Object.
Nhưng lại phát sinh vấn đề: Các sheet danh mục của mình đang là font Times New Roman. Khi vào ListView không hiển thị được tiếng Việt, thương cho trót chỉ giùm nhé.

Mách các bạn Kế toán nên tham khảo: Nó hay hơn các Combo hay validation là:
-Lựa chọn rất linh hoạt. Chỉ cần thiết kế 1 cho tất cả.
-Có thể khóa được, tránh vô tình sửa đổi mã. Ví dụ: Đặt ô A1 trong sheet("info") (Thông tin chung) là true sẽ hiện form và ngược lại.
-Tìm theo các nick mình nêu trên.

Bạn có thể làm theo cách sau :

• DATA (Unicode) ----> Convert Font ----> Listview (TCVN hay VNI)

• Listview (TCVN hay VNI)----> Convert Font ----> DATA (Unicode)

Listview không nên so sánh với Combobox và Validation, có chăng là với Listbox

Thân!

 

[sealand]

Bạn Mr Okebab thân mến. Cám ơn bạn đã hướng dẫn sử lý font.
Nhân thể mình cũng xin cải chính 1 chút. Y mình so sánh là giữa bảng chọn chỉ xuất hiện khi mình cần và cho phép. Còn Combo hay Validation nó gắn liền với bảng tính, khi chỉ xem hay kiểm tra thôi nó vẫn hiển hiện ở đó. Như vậy, rất dễ ai đó vô tình nhấn vào và dịch chuyển thì lập tức mã chi tiết sẽ thay đổi.Tóm lại, không phải so sánh về hình thức mà về tính tiện dụng.
Mong được bạn lưu tâm trao đổi thường xuyên nha!

 

[SONGBA]

Giải thích của các bác do kiến thức nông cạn nên mình chưa được rõ lắm !
Dùng convert font là mình dùng tools add -ins của excel hay mặc định trong VBE đã có hàm này
hay chuyển font kiểu vlistview.font = "Vni-times", nhờ các bác giải thích giúp

 

[Po_Pikachu]

Sao không dùng Font Arial đó vậy sẽ tiện hơn khi thiết kế mà còn dùng cho mọi máy luôn. Vì người ta chuộng dùng Font này hơn.

 

[sealand]

Đúng như Po_Pikachu nói, ta nên chọn font thông dụng sẵn có là hay nhất, như vậy nó khả dụng cho nhiều máy với phần mền font tiếng Việt khác nhau, ví dụ MS sans Serip, .VN Arial , các font VNI v.v...Còn việc sử dụng convert font là không cần thiết vì việc chuyển sang font đích mà máy sử dụng không có thì vẫn thành ngôn ngữ ngoài hành tinh như thường (Chưa kể mang sang máy không có Add-In đó thì bó tay). Còn việc thiết lập font cho Listview tốt nhất vào Properties của nó mà thiết lập tránh dùng câu lệnh để khi load form phải 2 lần đặt font (Lần 1 theo thiết kế trong Properties, lần 2 theo câu lệnh)

Chúc các bạn thành công.

 

[SONGBA]

Vẫn chưa được các bạn ơi ! Giúp với nhé !

 

[sealand]

Kiểm tra xem nhé, mình chép cả 2 hàm đổi font vào (TCVN3-->Unicode và Unicode-->TNVN3).Không nên cố định cột là 150 mà chủ động xác định độ rộng của cột, trường hợp có nhiều bảng mã thì cột 1 bao giờ cũng nhỏ hơn vì nó là mã.

 

[thanhnhanubnd]

Cám ơn các bạn nội dung này rất hay.
Nhưng mình có ý thế này :Không sử dụng code để tra công tác mà chèn dữ liệu vào các cột.
Mình ví dụ :
1. Ta đang ở ô B8, Ta nhấn vào nút tra mã hiệu, hiện listview.
2.Ta chon mã hiệu : AA.11134, mã hiệu này sẽ được chèn vào ô B8, code sẽ điền vào các ô C8 "phát rừng....", ở ô D8 " 100m2"
Tức là chỉ cần nhập dữ liệu vào B8, các ô D8, C8 sẽ được gắn vào thông tin tương ứng trong listview.

 

[sealand]

Trong bài là ý của bạn ấy chứ mình thường gán lệnh bàn phím ctrl+ phím như vậy khi ta đang nhập từ bàn phím không phải chuyển sang dùng chuột, trong cả sheet dùng chung 1 phím tắt khi ở cột nào thì sẽ mở List phù hợp. Sh này thường chứa dữ liệu dạng mã cho gọn khi lập B/cáo sẽ lấy thông tin sau từ danh mục

 

[thanhnhanubnd]

Ý mình thế này, nhờ các bạn xem dùm nhé

 

[sealand]

Vấn đề bạn nêu là đương nhiên, mã chẳng qua là ký hiệu gọ của đề mục mà thôi. Chi tiết có thể lấy ngay vào PSinh hay khi lập báo cáo tùy theo yêu cầu.
Vấn đề chúng ta lập ra từ điển ( hay bảng mã ) là để tra cứu mã, chỉ cần biết mã thì ta chắc chắn biết các thông tin liên quan, vậy trong sheet nhập dữ liệu không nên có quá nhiều chi tiết mà chỉ cần có mã là đủ.

 

[SONGBA]

Mình ví dụ :
1. Ta đang ở ô B8, Ta nhấn vào nút tra mã hiệu, hiện listview.
2.Ta chon mã hiệu : AA.11134, mã hiệu này sẽ được chèn vào ô B8, code sẽ điền vào các ô C8 "phát rừng....", ở ô D8 " 100m2"
Tức là chỉ cần nhập dữ liệu vào B8, các ô D8, C8 sẽ được gắn vào thông tin tương ứng trong listview.

Đặt con trỏ ô mã hiệu
Nhấn Ctrl+Q
Bạn xem đúng ý bạn chưa !