Hỏi về Listview (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
thuyyeu99

thuyyeu99

Trùm Nhiều Chuyện
Tham gia
6/6/08
Bài viết
1,729
Được thích
875
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 -=.,,
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Mình chưa thấy tài liệu nào nói tới giới hạn cả. Mình nhớ không nhầm thì trong ví dụ mình đã gửi bạn cũng đã có 2 listview trên 1 form rồi
 
Upvote 0
From sealand:
Mình chưa thấy tài liệu nào nói tới giới hạn cả. Mình nhớ không nhầm thì trong ví dụ mình đã gửi bạn cũng đã có 2 listview trên 1 form rồi
Nhấp chuột vào đây để mở rộng...

From ThyYeu99:
Hình như trong ví dụ không có anh ạh (Nếu em nhớ sai có gì anh gởi lại giúp em). ý của em là em muốn một lúc 2 listview thể hiện ở 2 mảng khác nhau
ví dụ em gởi kèm
Nhấp chuột vào đây để mở rộng...
thuyyeu99 đã viết:
........ý của em là em muốn một lúc 2 listview thể hiện ở 2 mảng khác nhau
ví dụ em gởi kèm
anh hướng dẫn lại giùm em trên 1 form mà LV load được ở 2 bảng ở sheet1 và sheet 2
Nhấp chuột vào đây để mở rộng...
Nhấp chuột vào đây để mở rộng...
Bạn nói rõ hơn chút, nghĩa là load dữ liệu của hai sheet ---> 1 listview, hay là load dữ liệu ở sheet1 ---> listview1 và sheet2 ---> listview2 ??

From ThuyYeu99:
dạ laod dữ liệu sheet1 ---> listview1 và sheet2 ---> listview2
Nhấp chuột vào đây để mở rộng...
 

File đính kèm

Chỉnh sửa lần cuối bởi điều hành viên:
Upvote 0

File đính kèm

Upvote 0
ca_dafi đã viết:
Nếu vậy thì 10 sheet cho 10 list cũng đâu có sao! bạn xem file đính kèm! Ấn Ctrl+Shift+L để thấy kết quả.
Nhấp chuột vào đây để mở rộng...

Có thể em nói không rõ ràng nên anh hiểu nhầm ý em Cái anh dùng là LB còn em nói là LV (Còn cấu trúc của file ví dụ thì nó sao các anh để nguyên đừng sữa)
 
Lần chỉnh sửa cuối:
Upvote 0
thuyyeu99 đã viết:
Có thể em nói không rõ ràng nên anh hiểu nhầm ý em Cái anh dùng là LB còn em nói là LV (Còn cấu trúc của file ví dụ thì nó sao các anh để nguyên đừng sữa)
Nhấp chuột vào đây để mở rộng...
Ok! Listview có nhiều loại listview, bạn đang sử dụng Listview nào? Hoặc bạn tạo sẵn cái form kèm theo hai cái listview của bạn rồi gửi lên đây xem thử nhé!
 
Upvote 0
thuyyeu99 đã viết:
dạ đây là ví dụ nhờ anh xem giúp
Nhấp chuột vào đây để mở rộng...
Bạn chép đoạn code này vào Form:
Lưu ý: Nhớ Set lại thuộc tính View cho các Listview là 3-lvwReport
[highlight=vb]
Private Sub UserForm_Activate()
Dim mDetail As ListItem
Me.ListView1.ColumnHeaders.Clear: Me.ListView1.ListItems.Clear
Me.ListView2.ColumnHeaders.Clear: Me.ListView2.ListItems.Clear
'--------------------------------------------------
'Đưa dữ liệu từ sheet1 vào Listview1:
'Gán ColumnHeader cho Listview1:
For i = 1 To 6
Me.ListView1.ColumnHeaders.Add , , Sheet1.Cells(5, i)
Next i
'Import dữ liệu detail vào Listview1:
For i = 1 To Sheet1.[A65536].End(xlUp).Row - 5
Set mDetail = Me.ListView1.ListItems.Add(, , Sheet1.Cells(i + 5, 1))
For j = 1 To 5
mDetail.SubItems(j) = Sheet1.Cells(i + 5, j + 1)
Next j
Next i
'//---------------------------------------------------------------------//
'Đưa dữ liệu từ sheet2 vào Listview2:
'Gán ColumnHeader cho Listview1:
For i = 1 To 4
Me.ListView2.ColumnHeaders.Add , , Sheet2.Cells(6, i)
Next i
'Import dữ liệu detail vào Listview2:
For i = 1 To Sheet2.[A65536].End(xlUp).Row - 6
Set mDetail = Me.ListView2.ListItems.Add(, , Sheet2.Cells(i + 6, 1))
For j = 1 To 3
mDetail.SubItems(j) = Sheet2.Cells(i + 6, j + 1)
Next j
Next i
'=====================================================================
'Format Listviews nếu thấy cần thiết:
With ListView1
.ColumnHeaders(1).Alignment = lvwColumnLeft
.ColumnHeaders(2).Alignment = lvwColumnLeft
.ColumnHeaders(3).Alignment = lvwColumnRight
.ColumnHeaders(4).Alignment = lvwColumnRight
.ColumnHeaders(5).Alignment = lvwColumnRight
.ColumnHeaders(6).Alignment = lvwColumnRight
End With
With ListView2
.ColumnHeaders(1).Alignment = lvwColumnLeft
.ColumnHeaders(2).Alignment = lvwColumnLeft
.ColumnHeaders(3).Alignment = lvwColumnRight
.ColumnHeaders(4).Alignment = lvwColumnRight
End With
End Sub
[/highlight]

Bạn xem thêm fild đính kèm. Ấn Ctrl+Shift+L để xem kết quả.
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
cho em hỏi sự kiện UserForm_Activate và UserForm_Initialize là sao ạh
 
Upvote 0
thuyyeu99 đã viết:
cho em hỏi sự kiện UserForm_Activate và UserForm_Initialize là sao ạh
Nhấp chuột vào đây để mở rộng...

Initiallize - tiếng Anh có nghĩa là khởi động, chuẩn bị làm việc.
Activate - có nghĩa là kích hoạt.

Theo mình hiểu, sự kiện Form_Activate là sự kiện khi Form đó được chọn, nghĩa là bao gồm cả khi khởi động form lên, hoặc khi ta mở nhiểu form, sau đó thao tác trên form khác, sau đó quay lại form chính này, lúc này form chính sẽ activate.

Sự kiện Form_Initialize là sự kiện khi form được Mở, nếu có chạy code cho sự kiện này thì nó chỉ chạy một lần khi form được mở.

Trong trường hợp này, file của bạn chỉ có 1 form, lúc đó sự kiện activate và Initialize dường như là giống nhau.

Nhưng nếu file có nhiều form và mở cùng lúc (sau khi đã chọn chế độ Show Modal sẽ cho phép chọn nhiều form khác nhau dù nhiều form đó đang mở cùng lúc) sẽ thấy rõ sự khác biệt này.

Bạn cũng có thể vào trang support của Microsoft để hiểu thêm về sự khác biệt giữa các sự kiện:
Form_Load - Form_Initialize - Form_Activate Hoặc Click Here
 
Lần chỉnh sửa cuối:
Upvote 0
ca_dafi đã viết:
Bạn chép đoạn code này vào Form:
Lưu ý: Nhớ Set lại thuộc tính View cho các Listview là 3-lvwReport
[highlight=vb]
Private Sub UserForm_Activate()
Dim mDetail As ListItem
Me.ListView1.ColumnHeaders.Clear: Me.ListView1.ListItems.Clear
Me.ListView2.ColumnHeaders.Clear: Me.ListView2.ListItems.Clear
'--------------------------------------------------
'Đưa dữ liệu từ sheet1 vào Listview1:
'Gán ColumnHeader cho Listview1:
For i = 1 To 6
Me.ListView1.ColumnHeaders.Add , , Sheet1.Cells(5, i)
Next i
'Import dữ liệu detail vào Listview1:
For i = 1 To Sheet1.[A65536].End(xlUp).Row - 5
Set mDetail = Me.ListView1.ListItems.Add(, , Sheet1.Cells(i + 5, 1))
For j = 1 To 5
mDetail.SubItems(j) = Sheet1.Cells(i + 5, j + 1)
Next j
Next i
'//---------------------------------------------------------------------//
'Đưa dữ liệu từ sheet2 vào Listview2:
'Gán ColumnHeader cho Listview1:
For i = 1 To 4
Me.ListView2.ColumnHeaders.Add , , Sheet2.Cells(6, i)
Next i
'Import dữ liệu detail vào Listview2:
For i = 1 To Sheet2.[A65536].End(xlUp).Row - 6
Set mDetail = Me.ListView2.ListItems.Add(, , Sheet2.Cells(i + 6, 1))
For j = 1 To 3
mDetail.SubItems(j) = Sheet2.Cells(i + 6, j + 1)
Next j
Next i
'=====================================================================
'Format Listviews nếu thấy cần thiết:
With ListView1
.ColumnHeaders(1).Alignment = lvwColumnLeft
.ColumnHeaders(2).Alignment = lvwColumnLeft
.ColumnHeaders(3).Alignment = lvwColumnRight
.ColumnHeaders(4).Alignment = lvwColumnRight
.ColumnHeaders(5).Alignment = lvwColumnRight
.ColumnHeaders(6).Alignment = lvwColumnRight
End With
With ListView2
.ColumnHeaders(1).Alignment = lvwColumnLeft
.ColumnHeaders(2).Alignment = lvwColumnLeft
.ColumnHeaders(3).Alignment = lvwColumnRight
.ColumnHeaders(4).Alignment = lvwColumnRight
End With
End Sub
[/highlight]

Bạn xem thêm fild đính kèm. Ấn Ctrl+Shift+L để xem kết quả.
Nhấp chuột vào đây để mở rộng...


Em muốn bỏ ColumnHeaders thì bỏ làm sao anh (em chỉ muốn nó load dữ liệu thôi) mò hoài chẳng ra **~**
 
Upvote 0
thuyyeu99 đã viết:
Em muốn bỏ ColumnHeaders thì bỏ làm sao anh (em chỉ muốn nó load dữ liệu thôi) mò hoài chẳng ra **~**
Nhấp chuột vào đây để mở rộng...
Bạn vào Properties của từng Listview và Set thuộc tính Hide ColumnHeader là TRUE là xong thôi. Còn nếu muốn dùng Code thì thêm vào đầu đoạn code bên dưới như sau:
PHP: 
Private Sub UserForm_Activate()
Dim mDetail As ListItem
Me.ListView1.ColumnHeaders.Clear: Me.ListView1.ListItems.Clear
Me.ListView2.ColumnHeaders.Clear: Me.ListView2.ListItems.Clear
'Thêm vào hai đoạn này:
Me.ListView1.HideColumnHeaders = True
Me.ListView2.HideColumnHeaders = True
'--------------------------------------------------
............................
............................
............................
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
thí dụ em chỉ muốn lấy đúng 3 cột trong sheet thu 2 của ví dụ em gởi kèm thì làm sao anh.
 
Upvote 0
thuyyeu99 đã viết:
thí dụ em chỉ muốn lấy đúng 3 cột trong sheet thu 2 của ví dụ em gởi kèm thì làm sao anh.
Nhấp chuột vào đây để mở rộng...

Thứ nhất, câu này để gán columnheader
PHP: 
................................
Me.ListView2.ColumnHeaders.Add , , Sheet2.Cells(6, i)
................................

Thứ hai, câu này để gán SubItem
PHP: 
..........................
 mDetail.SubItems(j) = Sheet2.Cells(i + 6, j + 1)
.............................

Thứ ba, cú pháp hàm cells() như sau:
PHP: 
[Worksheet].Cells(Row, Column)

Vậy bạn nghiên cứu thử xem phải làm sao?
 
Upvote 0
Em làm theo cách anh hướng dẫn thì đúng với yêu cầu em đặt ra rồi.Thật ra trong bảng dữ liệu em chỉ cần láy mấy cột thôi nhưng mà nó không có nằm liền với nhau, em có dùng .ColumnHeaders(5).Width=0 để ẩn trên LV các cột không cần thiết nhưng thấy nó sao sao đó. (Tự em không biết gì về VB nên không thể hiện được câu hỏi chính xác mong các anh thông cảm)

Cám ơn anh đã nhiệt tình hướng dẫn
 
Upvote 0
thuyyeu99 đã viết:
Em làm theo cách anh hướng dẫn thì đúng với yêu cầu em đặt ra rồi.Thật ra trong bảng dữ liệu em chỉ cần láy mấy cột thôi nhưng mà nó không có nằm liền với nhau, em có dùng .ColumnHeaders(5).Width=0 để ẩn trên LV các cột không cần thiết nhưng thấy nó sao sao đó. (Tự em không biết gì về VB nên không thể hiện được câu hỏi chính xác mong các anh thông cảm)

Cám ơn anh đã nhiệt tình hướng dẫn
Nhấp chuột vào đây để mở rộng...

ca_dafi tận dụng sự liên tục của các cột nên dùng For ... Next để rút ngắn code đấy các hạ à!

Trong trường hợp của các hạ, lấy các cột không liên tục và load vào Lisview như thế thì không dùng for ... next được. Xem đoạn code sau nhé! Mượn File ca_dafi bên trên nhé!

Code này sẽ load các cột A,B,C,F của sheet1 vào Listview1 tương ứng với [STT], [TÊN], [DVT], [TIỀN].
[highlight=vb]
Private Sub UserForm_Activate()
Dim mDetail As ListItem
Me.ListView1.ColumnHeaders.Clear: Me.ListView1.ListItems.Clear
Me.ListView2.ColumnHeaders.Clear: Me.ListView2.ListItems.Clear
'--------------------------------------------------
Me.ListView1.HideColumnHeaders = True: Me.ListView2.HideColumnHeaders = True
'Load sheet1 to Listview1:
'Listview1 có 4 cot STT, Tên, DVi, TIEN,
'Gán ColumnHeader tung ung voi 4 cot cua sheet1, cot 1,2,3,6 trong sheet1:
Me.ListView1.ColumnHeaders.Add , , Sheet1.Cells(5, 1)
Me.ListView1.ColumnHeaders.Add , , Sheet1.Cells(5, 2)
Me.ListView1.ColumnHeaders.Add , , Sheet1.Cells(5, 3)
Me.ListView1.ColumnHeaders.Add , , Sheet1.Cells(5, 6) ''<===Chú ý chỗ này nhảy cột nè!
'--------------------------------------------------
For i = 1 To Sheet1.[A65536].End(xlUp).Row - 5
Set mDetail = Me.ListView1.ListItems.Add(, , Sheet1.Cells(i + 5, 1))
With mDetail
.SubItems(1) = Sheet1.Cells(i + 5, 2)
.SubItems(2) = Sheet1.Cells(i + 5, 3)
.SubItems(3) = Sheet1.Cells(i + 5, 6) ''<===Chú ý chỗ này nhảy cột nè!
End With
Next i
'--------------------------------------------------
'Load sheet2 to Listview2:
For i = 1 To 4
Me.ListView2.ColumnHeaders.Add , , Sheet2.Cells(6, i)
Next i
For i = 1 To Sheet2.[A65536].End(xlUp).Row - 6
Set mDetail = Me.ListView2.ListItems.Add(, , Sheet2.Cells(i + 6, 1))
For j = 1 To 3
mDetail.SubItems(j) = Sheet2.Cells(i + 6, j + 1)
Next j
Next i
'=====================================================================
'Format Listviews:
With ListView1
.ColumnHeaders(1).Alignment = lvwColumnLeft
.ColumnHeaders(2).Alignment = lvwColumnLeft
.ColumnHeaders(3).Alignment = lvwColumnRight
.ColumnHeaders(4).Alignment = lvwColumnRight
End With
With ListView2
.ColumnHeaders(1).Alignment = lvwColumnLeft
.ColumnHeaders(2).Alignment = lvwColumnLeft
.ColumnHeaders(3).Alignment = lvwColumnRight
.ColumnHeaders(4).Alignment = lvwColumnRight
End With
End Sub
[/highlight]
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
VuongTrungDuong đã viết:
ca_dafi tận dụng sự liên tục của các cột nên dùng For ... Next để rút ngắn code đấy các hạ à!

Trong trường hợp của các hạ, lấy các cột không liên tục và load vào Lisview như thế thì không dùng for ... next được.
Nhấp chuột vào đây để mở rộng...

Mình vẫn có thể dùng For ...Next được nhé!

Bạn xem code bên dưới nha!
PHP: 
Private Sub UserForm_Activate()
Dim mDetail As ListItem
Me.ListView1.ColumnHeaders.Clear: Me.ListView1.ListItems.Clear
Me.ListView2.ColumnHeaders.Clear: Me.ListView2.ListItems.Clear
'--------------------------------------------------
Me.ListView1.HideColumnHeaders = True
Me.ListView2.HideColumnHeaders = True
'Load sheet1 to Listview1:
'Listview1 có 4 cot STT, Tên, DVi, TIEN,
'Gán ColumnHeader tung ung voi 4 cot cua sheet1, cot 1,2,3,6 trong sheet1:
'Vẫn dùng For ... Next để giải quyết được:
For i = 1 To 4
    Me.ListView1.ColumnHeaders.Add , , Sheet1.Cells(5, IIf(i < 4, i, i + 2))
Next i
'--------------------------------------------------
For i = 1 To Sheet1.[A65536].End(xlUp).Row - 5
    Set mDetail = Me.ListView1.ListItems.Add(, , Sheet1.Cells(i + 5, 1))
'Vẫn dùng For ... Next để giả quyết được:
    For J = 1 To 3
        mDetail.SubItems(J) = Sheet1.Cells(i + 5, IIf(J < 3, J, J + 2))
    Next J
Next i
'--------------------------------------------------
...........................
...........................
End Sub
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
thuyyeu99 đã viết:
Em làm theo cách anh hướng dẫn thì đúng với yêu cầu em đặt ra rồi.Thật ra trong bảng dữ liệu em chỉ cần láy mấy cột thôi nhưng mà nó không có nằm liền với nhau, em có dùng .ColumnHeaders(5).Width=0 để ẩn trên LV các cột không cần thiết nhưng thấy nó sao sao đó. (Tự em không biết gì về VB nên không thể hiện được câu hỏi chính xác mong các anh thông cảm)
Nhấp chuột vào đây để mở rộng...

Đây là Sub dùng để đưa một mảng vào Listview.

PHP: 
Sub TaoLVGPE(LVAll As ListView, Mang As Range, _
             Optional Cot1 As Long, Optional Cot2 As Long, _
             Optional Cot3 As Long, Optional Cot4 As Long, _
             Optional Cot5 As Long, Optional Cot6 As Long, _
             Optional Cot7 As Long, Optional Cot8 As Long)
' Sub nay dung de dua mot MANG vao mot LISTVIEW'
    On Error Resume Next
    Dim iC As Byte, ir As Integer, SoCot As Long, i As Byte
    SoCot = (Cot1 > 0) * 1 + (Cot2 > 0) * 1 + (Cot3 > 0) * 1 + (Cot4 > 0) * 1 + (Cot5 > 0) * 1 + (Cot6 > 0) * 1 + (Cot7 > 0) * 1 + (Cot8 > 0) * 1
    SoCot = SoCot * (-1)
    iC = Mang.Columns.Count
    If LVAll.ColumnHeaders.Count < SoCot Then Exit Sub
    LVAll.ListItems.Clear
    LVAll.Sorted = False

    For ir = 1 To Mang.Rows.Count    ' Xet tung Hang'
        If Mang(ir, 1) = "" Then GoTo Tiep
        For i = 1 To SoCot                ' Xet tung cot'
            iC = Choose(i, Cot1, Cot2, Cot3, Cot4, Cot5, Cot6, Cot7)
            If i = 1 Then
                LVAll.ListItems.Add.Text = Mang(ir, iC).Text    ' Cot Dau Tien'
            ElseIf i > 1 Then
                   LVAll.ListItems.Item(ir).SubItems(i - 1) = Mang(ir, iC)    ' Hang iR, Cot thu IC'
            End If
            'Stop'
        Next
Tiep:
    Next
    'LVAll.Sorted = True'
    ' Tao Mau cho cac hang'
    '   TaoColorLV LVAll'
End Sub

VD : Đưa vào Cột 2 và cột 4

PHP: 
Call TaoLVGPE(Me.H_LVDK, Sheet1.Range("A2:D11"), 2, 4)


-- Chúc vui -
 
Chỉnh sửa lần cuối bởi điều hành viên:
Upvote 0
huyyeu99 đã viết:
Anh giải thích giùm em câu này được không Ạh:
Me.ListView1.ColumnHeaders.Add , , Sheet1.Cells(5, IIf(i < 4, i, i + 2))
Nhấp chuột vào đây để mở rộng...
Nhấp chuột vào đây để mở rộng...

Ý bạn là giải thích câu này phải không?
PHP: 
..............., Sheet1.Cells(5, IIf(i < 4, i, i + 2))
IIf(i < 4, i, i + 2) : Nghĩa là nếu i nhỏ hơn 4 thì lấy i còn không thì lấy i+2
heet1.Cells(5, IIf(i < 4, i, i + 2)) : Nghĩa là: nếu i nhỏ hơn 4 thì lấy ô có địa chỉ là dòng 5 cột i, còn không thì lấy ô có địa chỉ là dòng 5 cột i+2

Chỉ là hàm If bình thường mà!
 
Upvote 0
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
 
Upvote 0
thuyyeu99 đã viết:
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)
Nhấp chuột vào đây để mở rộng...

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!
 
Upvote 0
ca_dafi đã viết:
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!
Nhấp chuột vào đây để mở rộng...


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.
 
Upvote 0
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.
 
Upvote 0
thuyyeu99 đã viế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.
Nhấp chuột vào đây để mở rộng...
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?
 
Upvote 0
Po_Pikachu đã viết:
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.
Nhấp chuột vào đây để mở rộng...


Ý 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

ca_dafi đã viết:
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?
Nhấp chuột vào đây để mở rộ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
 
Chỉnh sửa lần cuối bởi điều hành viên:
Upvote 0

File đính kèm

Upvote 0
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
 

File đính kèm

Chỉnh sửa lần cuối bởi điều hành viên:
Upvote 0
thuyyeu99 đã viết:
Đây là file ví dụ em gởi kèm
Nhấp chuột vào đây để mở rộng...
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.
 
Upvote 0
Cột C có tác dụng đó anh, anh đừng bỏ.

Cám ơn anh đã góp ý
 
Chỉnh sửa lần cuối bởi điều hành viên:
Upvote 0
Ở 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!
PHP: 
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
Nhấp chuột vào đây để mở rộng...
 

File đính kèm

Chỉnh sửa lần cuối bởi điều hành viên:
Upvote 0
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.
 
Upvote 0
chuoinghean đã viết:
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.
Nhấp chuột vào đây để mở rộng...


Application.Calculation = xlCalculationmanual
 
Upvote 0
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
 
Upvote 0
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.
 
Upvote 0
tungson_mrcc đã viết:
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.
Nhấp chuột vào đây để mở rộ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?
 
Upvote 0
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.
 
Upvote 0
tungson_mrcc đã viết:
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?
.
Nhấp chuột vào đây để mở rộng...
Trong vba chỉ có ControlTipText

tungson_mrcc đã viết:
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.
Nhấp chuột vào đây để mở rộ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....
 
Lần chỉnh sửa cuối:
Upvote 0
Chào bạn ThuyYeu99.

Trong khi tìm hiểu về cách tạo TipText trong ListView, bạn có trả lời với Tập tin đính kèm.

Nay tìm cách cách đưa vào ứng dụng của mình thì Link Tập tin đính kèm lại Die mất rồi.

Nhờ bạn Update lại link được không.

Trân trọng
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

OverAC
  • Dán lên cao
  • Suggestion Suggestion
Chúc mừng sinh nhật GiaiPhapExcel 19 tuổi và tặng ebook "Lập trình VBA phần cơ bản." (2 người xem)
    • Thích
    • Yêu thích
Trả lời
5
Đọc
1K
longlacda
L
V
Công thức để phân công chuyên môn cho giáo viên (1 người xem)
Trả lời
5
Đọc
267
vietvanyen
V
E
Đánh số cho các cặp số chứng từ và số chứng từ đối ứng
Trả lời
12
Đọc
236
Phan Thế Hiệp
Phan Thế Hiệp
G
AddIn convert ngày dương lịch sang âm lịch và ngược lại + đọc ngày tháng (1 người xem)
Trả lời
20
Đọc
10K
du trung kien
D
8
Hàm trong excel
Trả lời
3
Đọc
64
Hoàng Tuấn 868
H
N
Chuyển giờ công từ bảng công vào bảng tính
Trả lời
16
Đọc
291
ngouyen1505
N
N
Tạo COM Add-In bằng Visual C++
    • Thích
Trả lời
7
Đọc
660
nguyendang95
N
T
Tìm số hóa đơn trong chuỗi (1 người xem)
Trả lời
8
Đọc
356
tranhungdao12a3
T
Nga1852k
lỗi excel không chèn được dòng và không xóa được dòng
Trả lời
2
Đọc
134
Nga1852k
Nga1852k
D
  • Question Question
xin các cao thủ trợ giúp , hoặc nhận làm code có trả phí ạ
Trả lời
14
Đọc
1K
tung1423
tung1423
D
xin hỏi về lỗi mô đun ẩn. (2 người xem)
Trả lời
3
Đọc
146
ongke0711
ongke0711
H
Xin anh chị hướng dẫn công thức excel ạ.
Trả lời
9
Đọc
291
Phan Thế Hiệp
Phan Thế Hiệp
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (2 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3 4
Trả lời
381
Đọc
44K
tuanktt3
T
M
Add-in Excel kết nối cơ sở dữ liệu
Trả lời
1
Đọc
111
ptm0412
ptm0412
Đ
tách dữ liệu từ một dòng thành hai dòng
Trả lời
2
Đọc
155
Phuocam
Phuocam
longhuy
Lỗi error 20728: F (1 người xem)
Trả lời
0
Đọc
78
longhuy
longhuy
H
Trang tính chỉ hiển thị vùng có dữ liệu
Trả lời
7
Đọc
609
vinhkm6
vinhkm6
mrjun80
Có hàm nào đếm tổng các số nằm trong 1 ô không mọi người
Trả lời
12
Đọc
501
Phan Thế Hiệp
Phan Thế Hiệp
N
Hàm DATEDIF trong Excel 2016
Trả lời
16
Đọc
14K
Phan Thế Hiệp
Phan Thế Hiệp
Tiger Nau
Đánh số thứ tự trên tờ vé số
Trả lời
6
Đọc
188
ptm0412
ptm0412
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom