Hiện thị số cột listBox đầy đủ (1 người xem)

keke355992 · 18/9/15

E chào các AC. E đã tạo được 1 lístBox, nhưng e muốn được như ý em ( Cụ thể em đã ghi trong file). Nhờ các Ac xem giúp em. E xin cảm ơn ạ

Let'GâuGâu · 18/9/15

keke355992 đã viết:
E chào các AC. E đã tạo được 1 lístBox, nhưng e muốn được như ý em ( Cụ thể em đã ghi trong file). Nhờ các Ac xem giúp em. E xin cảm ơn ạ

Mã:

 With Me.ListBox1
        .Clear
        'khi tbx_Search =empty thi Listbox1 tu dong show all
        .List = Filter(WorksheetFunction.Transpose _
                        (DMchucdanh), tbx_Search.Text, True, vbTextCompare)
    End With

bạn dùng cái này để nạp vào listbox???
bạn tìm trên diễn đàn hàm filter2D
của các "siêu nhân" NDU, Hoàng Trọng Nghĩa, Switon
để áp dụng

doveandrose · 18/9/15

Let'GâuGâu đã viết:
Mã:

With Me.ListBox1 .Clear 'khi tbx_Search =empty thi Listbox1 tu dong show all .List = Filter(WorksheetFunction.Transpose _ (DMchucdanh), tbx_Search.Text, True, vbTextCompare) End With

bạn dùng cái này để nạp vào listbox???
bạn tìm trên diễn đàn hàm filter2D
của các "siêu nhân" NDU, Hoàng Trọng Nghĩa, Switon
để áp dụng

cần gì tìm đâu cho xa xôi vậy . tìm siêu nhân Let' Gâu Gâu là đủ rồi . hi hi

keke355992 · 19/9/15

Let'GâuGâu đã viết:
Mã:

With Me.ListBox1 .Clear 'khi tbx_Search =empty thi Listbox1 tu dong show all .List = Filter(WorksheetFunction.Transpose _ (DMchucdanh), tbx_Search.Text, True, vbTextCompare) End With

bạn dùng cái này để nạp vào listbox???
bạn tìm trên diễn đàn hàm filter2D
của các "siêu nhân" NDU, Hoàng Trọng Nghĩa, Switon
để áp dụng

E mới tìm hỉu về VBA thui ạ, kiến thức của thầy NDU e chưa theo kịp đc a ơi

. A có thể sửa form bài này giúp e với

HyperLink · 19/9/15

keke355992 đã viết:
E chào các AC. E đã tạo được 1 lístBox, nhưng e muốn được như ý em ( Cụ thể em đã ghi trong file). Nhờ các Ac xem giúp em. E xin cảm ơn ạ

bạn tải file về kiểm tra thử có đúng ko nhé ?
(sheet KHO-TG, bạn nên tách riêng tên các công ty vào 1 vùng khác, sheet khác => để vậy nó lọc chung rất khó coi)

keke355992 · 19/9/15

HyperLink đã viết:
bạn tải file về kiểm tra thử có đúng ko nhé ?
(sheet KHO-TG, bạn nên tách riêng tên các công ty vào 1 vùng khác, sheet khác => để vậy nó lọc chung rất khó coi)

Đúng ý em rùi, cảm ơn A. Chúc A và m.n 1 ngày cuối tuần vui vẻ. CÒn cái vụ tên Công ty, e cop để Test thui ạ. Chứ Kho nó k liên quan j đến Cty luôn. hì

keke355992 · 19/9/15

Ơ, không được rùi bác @HyperLink ơi. Phần tìm kiếm, e gõ tên hàng, mà no k lọc ra đc ạ

Let'GâuGâu · 19/9/15

keke355992 đã viết:
E mới tìm hỉu về VBA thui ạ, kiến thức của thầy NDU e chưa theo kịp đc a ơi . A có thể sửa form bài này giúp e với

tôi xul bạn vậy thôi, đây là lần đâu tiên tôi xài hàm này.......hihihiihih

HyperLink · 19/9/15

keke355992 đã viết:
Ơ, không được rùi bác @HyperLink ơi. Phần tìm kiếm, e gõ tên hàng, mà no k lọc ra đc ạ

bạn để ý, khi tìm kiếm phải dùng bảng mã Unicode dựng sẵn, kiểu gõ Telex (nếu chọn tổ hợp thì nó ko tìm ra ...)

keke355992 · 19/9/15

Let'GâuGâu đã viết:
tôi xul bạn vậy thôi, đây là lần đâu tiên tôi xài hàm này.......hihihiihih

Cảm ơn bác. E chạy được rùi à. Code phức tạp qá, k bít bjo mới hiểu đc hết đây :3

keke355992 · 19/9/15

Let'GâuGâu đã viết:
tôi xul bạn vậy thôi, đây là lần đâu tiên tôi xài hàm này.......hihihiihih

Bác Hype cho em hỏi 1 chút nữa, là e có thẻ sử dụng Name động thay thế cho vùng ".List = Sheet9.[e5:i60000].value " được k ạ

Let'GâuGâu · 19/9/15

keke355992 đã viết:
Cảm ơn bác. E chạy được rùi à. Code phức tạp qá, k bít bjo mới hiểu đc hết đây :3

tôi cũng chẳng hiểu được hết code, thấy nó xài được là ok rồi, cứ xài như một hàm excel
cái quan trong nhất là làm sao xài nó, tôi còn bị dính chổ này

Mã:

Private Sub tbx_Search_Change()
Dim ws As Worksheet, DMchucdanh As Range, ArrayCrit(1 To 2, 1 To 1)
If tbx_Search.value = "" Then Exit Sub
    ArrayCrit(1, 1) = 1
    ArrayCrit(2, 1) = "*" & tbx_Search.value & "*"
1.    [COLOR=#ff0000]If Not IsArray(MyFilter2DArray(Sheet9.[e5:i60000], ArrayCrit, False)) Then Exit Sub[/COLOR]
    With Me.ListBox1
2.        [COLOR=#ff0000].List = MyFilter2DArray(Sheet9.[e5:i60000], ArrayCrit, False)[/COLOR]
    End With
End Sub

nếu ko bẫy lổi (lệnh 1) thì nếu gõ cái gì đó tậm bậy tâm bạ vào, nó ko lọc được, tức là không có array nào để mạng vào listbox thì nó sẻ bào lỗi ở dòng lệnh 2
còn nếu làm như hiện này thì code phải chạy 2 lần
tôi cũng chưa biết phải xử lý như thế nào? hay là dùng hạ sách là on error resume next?

Mã:

Private Sub tbx_Search_Change()
Dim ws As Worksheet, DMchucdanh As Range, ArrayCrit(1 To 2, 1 To 1)
If tbx_Search.value = "" Then Exit Sub
    ArrayCrit(1, 1) = 1
    ArrayCrit(2, 1) = "*" & tbx_Search.value & "*"
   On Error Resume Next
    With Me.ListBox1
        .List = MyFilter2DArray(Sheet9.[e5:i60000], ArrayCrit, False)
    End With
    On Error GoTo 0
End Sub

keke355992 đã viết:
Bác Hype cho em hỏi 1 chút nữa, là e có thẻ sử dụng Name động thay thế cho vùng ".List = Sheet9.[e5:i60000].value " được k ạ

ok được chứ sao ko, mà hình như code này tốc độ nhanh lắm, nên bạn cứ lấy thoải mái đi, lấy tới cuối bảng cũng được

doveandrose · 19/9/15

ủa Hype là ai vậy Let' Gâu Gâu ? --=0

Let'GâuGâu · 19/9/15

doveandrose đã viết:
ủa Hype là ai vậy Let' Gâu Gâu ?

dzụ gì????
Hype gì đây??? hả chú???

doveandrose · 19/9/15

Let'GâuGâu đã viết:
dzụ gì????
Hype gì đây??? hả chú???

nhìn #11 kìa bạn ơi
mà cái hàng hóa này là tiếng Việt mà
làm sao hỗ trợ gõ không dấu ra kết quả tiếng Việt có dấu đây Let' Gâu Gâu thân mến ?

Let'GâuGâu · 19/9/15

doveandrose đã viết:
nhìn #11 kìa bạn ơi
mà cái hàng hóa này là tiếng Việt mà
làm sao hỗ trợ gõ không dấu ra kết quả tiếng Việt có dấu đây Let' Gâu Gâu thân mến ?

heheheh...........cái đó chịu thua
xin liện hệ anh Nghĩa đẹp trai nha

doveandrose · 19/9/15

Let'GâuGâu đã viết:
heheheh...........cái đó chịu thua
xin liện hệ anh Nghĩa đẹp trai nha

chưa gì bó tay là sao vậy anh ? --=0

cái này mà anh nói bó tay là mấy tay hpKhuong , GiangLeLoi nhìn thấy là cười chết đó ? --=0

Let'GâuGâu · 19/9/15

doveandrose đã viết:
chưa gì bó tay là sao vậy anh ?
cái này mà anh nói bó tay là mấy tay hpKhuong , GiangLeLoi nhìn thấy là cười chết đó ?

tuổi trẻ tài cao mà.........hihihiih
mình già rồi, ko cạnh tranh lại mấy chú đó
lúc trước có thấy hàm TV của anh QuangHai, nhưng hình như tốc độ ko nhanh lắm, mình lười lắm cái gì khó quá thì bỏ qua......hehehhhe
bởi vậy sống lâu mà ko lên được lão làng là vậy đó.......hihihihi

doveandrose · 19/9/15

Let'GâuGâu đã viết:
tuổi trẻ tài cao mà.........hihihiih
mình già rồi, ko cạnh tranh lại mấy chú đó
lúc trước có thấy hàm TV của anh QuangHai, nhưng hình như tốc độ ko nhanh lắm, mình lười lắm cái gì khó quá thì bỏ qua......hehehhhe
bởi vậy sống lâu mà ko lên được lão làng là vậy đó.......hihihihi

ẹc . lại đổ thừa tuổi tác , ăn gian quá đi ông ơi --=0

thôi để tí rảnh mình làm thử hàm TV của QuangHai vào bài này coi nhanh hay chậm là biết liền

====================================================
xong rồi nè Let' Gâu Gâu .hàm TV "chậm" quá . hi hi

keke355992 · 20/9/15

Cảm ơn các bác thật nhiều

Hiện thị số cột listBox đầy đủ (1 người xem)

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

Thành viên thường trực

File đính kèm

Thành viên mới

hello

Thành viên thường trực

Thành viên hoạt động

File đính kèm

Thành viên thường trực

Thành viên thường trực

Thành viên mới

File đính kèm

Thành viên hoạt động

Thành viên thường trực

Thành viên thường trực

Thành viên mới

hello

Thành viên mới

hello

Thành viên mới

hello

Thành viên mới

hello

File đính kèm

Thành viên thường trực

Đếm ngược thời gian