Hỏi về Listview

[thuyyeu99]

Các anh chị trong GPE cho em hỏi mình có thể load 1 lúc 2 listView trong 1 form được không ?

Cám ơn các anh chị đã quan tâm

 

[thuyyeu99]

Nhờ các anh chị hướng dẫn em giải quyết thêm 1 vấn đề này nữa. Cám ơn các anh chị trước

Trong LV của em có những dòng rỗng không có dữ liệu vậy mình có cách nào để khi load LV lên thì nó sẽ ẩn những dòng đó đi hoặc Remove nó không ? (chỉ remove tren LV thôi)

Cám ơn các anh chị quan tâm

 

[cadafi]

Nhờ các anh chị hướng dẫn em giải quyết thêm 1 vấn đề này nữa. Cám ơn các anh chị trước

Trong LV của em có những dòng rỗng không có dữ liệu vậy mình có cách nào để khi load LV lên thì nó sẽ ẩn những dòng đó đi hoặc Remove nó không ? (chỉ remove tren LV thôi)

Mấu chốt vấn đề cũng sẽ quy về dữ liệu nguồn mà thôi. Bạn có thể nói rõ, dòng dữ liệu như thế nào là "rỗng" trong phần data của bạn thì chắc sẽ có cách giải quyết!

 

[thuyyeu99]

Mấu chốt vấn đề cũng sẽ quy về dữ liệu nguồn mà thôi. Bạn có thể nói rõ, dòng dữ liệu như thế nào là "rỗng" trong phần data của bạn thì chắc sẽ có cách giải quyết!

Em muốn là số tiền bằng không trong VD (Cột thành tiền) này thì không đưa vào LV. Tức là Cột thành tiền khác 0 thí đưa vào.

 

[Po_Pikachu]

Vậy định dạng để không thấy số 0 được không?
C1: Dùng Options: Vào Tools -> Options -> Bỏ Check ở dòng Zero Values.
C2: Dùng Format Cells: Quét chọn vùng Thành Tiền -> Nhấn phải chuột chọn Format Cells -> Chọn Custome -> Trong khung Type: gõ:
#,##0;#,##0;""
Hoặc:
[=0]"";#,##0
Thân.

 

[cadafi]

Em muốn là số tiền bằng không trong VD (Cột thành tiền) này thì không đưa vào LV. Tức là Cột thành tiền khác 0 thí đưa vào.

Như vậy, trong file của bạn, có những dòng thành tiền >0 nhưng không có số lượng, đơn giá, đơn vị tính thì có đưa vào không?

 

[thuyyeu99]

Vậy định dạng để không thấy số 0 được không?
C1: Dùng Options: Vào Tools -> Options -> Bỏ Check ở dòng Zero Values.
C2: Dùng Format Cells: Quét chọn vùng Thành Tiền -> Nhấn phải chuột chọn Format Cells -> Chọn Custome -> Trong khung Type: gõ:
#,##0;#,##0;""
Hoặc:
[=0]"";#,##0
Thân.

Ý em là những dòng bằng 0 thì không đưa vào list view (khi load List view len thì chỉ Load những hàng có số tiền khác 0 những hàng bằng 0 thì ẩn hoặc remove cũng được)
I Giải khát 240.000 A Có ga 240.000 A1 Coca 240.000 1 co ca đen thùng 12 20000 100 240000 B không ga 6.000 B1 trà xanh 6.000 1 trà xanh đen thùng 2 3000 100 6000

Như vậy, trong file của bạn, có những dòng thành tiền >0 nhưng không có số lượng, đơn giá, đơn vị tính thì có đưa vào không?

da đưa tất cả vào hết anh miễn sao cột Thành tiền >0 là đưa vào hết

 

[cadafi]

da đưa tất cả vào hết anh miễn sao cột Thành tiền >0 là đưa vào hết

Vậy chỉ cần lồng vào If ... Then ... Else là xong. bạn xem file đính kèm. Ấn Ctrl+Shift+L để xem kết quả!

 

[Mr Okebab]

da đưa tất cả vào hết anh miễn sao cột Thành tiền >0 là đưa vào hết

Thì trong vòng lặp For, bạn thêm điều kiện if nữa.
Nếu giá trị tại cột thành tiền >0 thì bạn cho chạy code, nếu không thì thôi.

Thân!

 

[thuyyeu99]

Sao em làm file này không được vậy anh, nhờ anh xem giúp

Đây là file ví dụ em gởi kèm

 

[cadafi]

Đây là file ví dụ em gởi kèm

Cái cột C trong file của bạn, tiêu đề của nó là gì vậy! Có cần thiết không? Nếu cần thì phải sửa code lại! Vì code file trước không lấy cột C, vì file trước bạn gửi, cột C không có dữ liệu, không có tiêu đề cột --> mình nghĩ là không cần thiết.

Góp ý:
- Đã dùng VBA thì bạn nên thiết kế dữ liệu cho khoa học và rõ ràng (có tiêu đề cột), tránh việc Merge cell vô ích.
- Yêu cầu đưa lên cần tổng quát, lúc này bạn đưa dữ liệu khác, lúc sau lại đưa dữ liệu khác --> mình không thể "đoán" và coding bao quát hết các trường hợp được.

 

[thuyyeu99]

Cột C có tác dụng đó anh, anh đừng bỏ.

Cám ơn anh đã góp ý

 

[cadafi]

Ở những dòng tại cột [thành tiền], nhìn bằng mắt thường thì nghĩ nó rỗng, thực chất là nó có các khoản trắng (Space)! Nhức đầu thiệt.

Code sau bổ sung bẫy lỗi cột [thành tiền] phải là số và là số >0 thì mới lấy!

Private Sub UserForm_Activate()
Dim mDetail As ListItem
Me.ListView1.ColumnHeaders.Clear: Me.ListView1.ListItems.Clear
''Load sheet1 to Listview1:
''Gán ColumnHeader tương ứng:
For i = 1 To 9
    Me.ListView1.ColumnHeaders.Add , , Sheet1.Cells(9, i)
Next i
''--------------------------------------------------
''Gán Detail tương ứng:
For i = 1 To Sheet1.[H65536].End(xlUp).Row - 9
    If IsNumeric(Sheet1.Cells(i + 9, "H")) And Sheet1.Cells(i + 9, "H") > 0 Then
    Set mDetail = Me.ListView1.ListItems.Add(, , Sheet1.Cells(i + 9, "A"))
        For J = 1 To 8
            mDetail.SubItems(J) = Sheet1.Cells(i + 9, J + 1)
        Next J
    End If
Next i
End Sub

From ThuyYeu99:

Cám ơn anh Ca_dafi nhiều đúng yêu cầu em đề ra rồi

 

[chuoinghean]

Xin giúp tôi đoạn code chuyển chức năng "automatic" sang "manual"

Các bạn giúp tôi đoạn code chuyển chức năng "automatic" sang "manual" và ngược lại trong Tool/Option/Caculation. Vì tôi đang thiết lập sheets1 chứa rất nhiều công thức mảng lấy dữ liệu từ sheets2.và vùng đặt trước trong sheets1 rất lớn nên khi nhập dữ liệu chậm.
Tiện thể hướng dẫn giúp tôi thiết lập name động (offset...).
Chân thành cảm ơn.

 

[thuyyeu99]

Các bạn giúp tôi đoạn code chuyển chức năng "automatic" sang "manual" và ngược lại trong Tool/Option/Caculation. Vì tôi đang thiết lập sheets1 chứa rất nhiều công thức mảng lấy dữ liệu từ sheets2.và vùng đặt trước trong sheets1 rất lớn nên khi nhập dữ liệu chậm.
Tiện thể hướng dẫn giúp tôi thiết lập name động (offset...).
Chân thành cảm ơn.

Application.Calculation = xlCalculationmanual

 

[tungson_mrcc]

Các bạn cho mình hỏi làm sao để thay đổi bề rộng của các cột trong ListView theo nhu ý muốn.
Trân trọng

 

[Ếch Xanh]

Các bạn cho mình hỏi làm sao để thay đổi bề rộng của các cột trong ListView theo nhu ý muốn.
Trân trọng

Đơn giản thôi:
UserForm1.ListView1.ColumnHeaders(1).Width = 50

 

[tungson_mrcc]

Xin hỏi ListView có thuộc tính nào giống như thuộc tính ColumnsWidth và ColumnsCount của Listbox, nhờ đó ta có thể ấn định bề rộng cũng như số lượng cột của ListView ngay trong quá trình thiết kế.
Trân trọng.

 

[sealand]

Xin hỏi ListView có thuộc tính nào giống như thuộc tính ColumnsWidth và ColumnsCount của Listbox, nhờ đó ta có thể ấn định bề rộng cũng như số lượng cột của ListView ngay trong quá trình thiết kế.
Trân trọng.

Bạn mở file mới, tạo form, thêm Listview sau đo mở Properties chọn mục Custom. Vào đó tất cả chi phối thuộc tính riêng của nó.Quậy tít mù lên xem sao?

 

[tungson_mrcc]

Cám ơn các bạn đã giúp đỡ mình.
Xin cho mình hỏi thêm: trong listview mình thấy có ControlTipText và ToolTipText. Hai cái này khác nhau thế nào?
Có cách nào để khi người dùng di chuyển chuột trên mỗi đầu cột thì TipText sẽ thay đổi nội dung một cách tương ứng.
Trân trọng.

 

[thuyyeu99]

Cám ơn các bạn đã giúp đỡ mình.
Xin cho mình hỏi thêm: trong listview mình thấy có ControlTipText và ToolTipText. Hai cái này khác nhau thế nào?
.

Trong vba chỉ có ControlTipText

Có cách nào để khi người dùng di chuyển chuột trên mỗi đầu cột thì TipText sẽ thay đổi nội dung một cách tương ứng.
Trân trọng.

Chỉ có cách làm dùng Api.
View attachment 50830

Có cách tốt nhất là sài phần mềm hỗ trợ là tốt nhất .Như BSAC của anh Nguyễn Duy Tuân chẵn hạn....