Tạo List tìm kiếm cho mã hàng hóa

Liên hệ QC
0905744404

0905744404

Thành viên thường trực
Tham gia
26/10/10
Bài viết
333
Được thích
107
Nghề nghiệp
Trước là : Thủ Kho - còn giờ thì :"Tài Xế"
Chào cả nhà !!!
Em có File này nhờ mọi người giúp em với!
Yêu cầu:
- Bên Sheet "Xuất Kho" khi nhập dữ liệu vào cột F thì tự động tìm kiếm ra những ký tự có trong List tại cột G trong sheet "Bang Ma Hang Hoa"
- Ví Dụ: Nhập bánh thì trong list xuất hiện những chữ ô có chữ bánh, Hoặc nhập 360 thì xuất hiện những ô có chứa 360, Hoặc nhập 288 thì xuất hiện những ô có chứa 288 ...
Em xin cám ơn cả nhà!!!
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Cám ơn anh . câu hỏi của em rất thực tế . Khi nhìn lại tấm hình 1 và hình 2 em đã gởi ở Post trên chúng có sự khác nhau là
DropDown List đang Show (hình 1) hoặc Hide (hình 2) . Mục đích ở đây là nếu Show thì nhấn nút arrow down sẽ như bình thường còn nếu Hide thì phải nhảy Select xuống ô ngay dưới chứ ko đc đổi mã hàng . Em có cách để kiểm tra nhưng khá phức tạp vì sử dụng hàm Win 32 API . Nên muốn tìm hiểu xem diễn đàn mình có cách nào ngắn gọn hơn không . Tiện đây em chia sẻ luôn cách của em

khi combobox (hoặc 1 oleObject) đc vẽ ra thì nó dc cấp 1 ClassName là
Mã: 
F3 Server *
với * là 1 chuỗi ngẫu nhiên tự sinh để phân biệt oleObject này với các oleObject khác . Chẳng hạn
Mã: 
F3 Server 4a560000
và DropDown List đc cấp 1 ClassName là
Mã: 
F3 MdcPopup *
với * phải đúng bằng * của Combobox đó để thể hiện rằng nó là List của Combobox đó . Chẳng hạn
Mã: 
F3 MdcPopup 4a560000

máy của em là Win 64 bit nên phải sử dụng từ khóa PtrSafe . Máy anh chị nào sử dụng Win 32 bit thì xóa từ khóa đó nhé

Mã: 
Private Declare PtrSafe Function EnumChildWindows Lib "user32" _
(ByVal hWndParent As LongPtr, ByVal lpEnumFunc As LongPtr, ByRef lParam() As LongPtr) As LongPtr


Private Declare PtrSafe Function GetClassName Lib "user32.dll" Alias "GetClassNameA" (ByVal hwnd As LongPtr, _
ByVal classname As String, ByVal classlength As LongPtr) As Long


Private Declare PtrSafe Function GetFocus Lib "user32" () As LongPtr
đây là hàm kiểm tra DropDown List đang Show hay Hide
Mã: 
Private WindowCount As Integer
Public Function IsDropDownListShowing() As Boolean


Dim DrpDnCbxClsname As String
Dim AllHwnd() As LongPtr
Dim n As Integer
Dim ubao As Integer
Dim rs As Boolean

'GetFocus để lấy hWnd của control đang focus . ở đây muốn nói đến combobox
DrpDnCbxClsname = getPopUpCbxClassName(GetClassNameFromHandle(GetFocus))
WindowCount = 0
'tham số đầu bằng 0 để tìm tất cả mọi hWnd đang mở trên DesKtop 
' Nếu truyền vào Application.hwnd sẽ không tìm dc !
Call EnumChildWindows(0, AddressOf EnumsWindowProc, AllHwnd)
ubao = UBound(AllHwnd)




For n = 1 To ubao
    If GetClassNameFromHandle(AllHwnd(n)) = DrpDnCbxClsname Then
        rs = True
        Exit For
    End If
Next


IsDropDownListShowing = rs
End Function

Mã: 
Private Function EnumsWindowProc(ByVal hwnd As LongPtr, ByRef lParam() As LongPtr) As LongPtr


WindowCount = WindowCount + 1
ReDim Preserve lParam(1 To WindowCount)
lParam(WindowCount) = hwnd


EnumsWindowProc = 1
End Function
Mã: 
Private Function getPopUpCbxClassName(ByVal cbxClassName As String) As String


cbxClassName = WorksheetFunction.Trim(cbxClassName)
Dim arrStr() As String
arrStr() = Split(cbxClassName)


getPopUpCbxClassName = "F3 MdcPopup " & arrStr(UBound(arrStr))
End Function

Mã: 
Private Function GetClassNameFromHandle(ByVal hwnd As LongPtr) As String
Dim classname As String
Dim classlength As Long


classname = Space(300)
classlength = GetClassName(hwnd, classname, 300)
classname = Left(classname, classlength)


GetClassNameFromHandle = classname
End Function
 
Upvote 0
doveandrose đã viết:
Cám ơn anh . câu hỏi của em rất thực tế . Khi nhìn lại tấm hình 1 và hình 2 em đã gởi ở Post trên chúng có sự khác nhau là
DropDown List đang Show (hình 1) hoặc Hide (hình 2) . Mục đích ở đây là nếu Show thì nhấn nút arrow down sẽ như bình thường còn nếu Hide thì phải nhảy Select xuống ô ngay dưới chứ ko đc đổi mã hàng . Em có cách để kiểm tra nhưng khá phức tạp vì sử dụng hàm Win 32 API . Nên muốn tìm hiểu xem diễn đàn mình có cách nào ngắn gọn hơn không . Tiện đây em chia sẻ luôn cách của em
Nhấp chuột vào đây để mở rộng...

Theo cách nhận biết của doveandrose, tôi cải tiến lại cái file trước luôn.

1) Nếu sheet "Bang Ma Hang Hoa" có thay đổi thì sau khi thay đổi phải bấm vào nút cập nhật.

2) Khi chọn vào cột F của sheet "Xuat Kho" thì ComboBox sẽ hiện ra, đồng thời nếu có mã tại cột đó thì CBB sẽ nhận mã tại đó, muốn xóa hàng đó thì chỉ việc xóa trong CBB.

Các phím mũi tên:

3) Khi list đang trong tình trạng Dropdown thì phím lên phím xuống chạy theo list, còn khi đã chọn trong list rồi mà list không xổ xuống thì sẽ chọn theo Cell.

4) Phím trái phím phải cũng chọn theo cell nếu con trỏ đứng trước hay sau mã bên trong CBB.
 

File đính kèm

  • TaoList.xlsm
    397.3 KB · Đọc: 147
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Theo cách nhận biết của doveandrose, tôi cải tiến lại cái file trước luôn.

1) Nếu sheet "Bang Ma Hang Hoa" có thay đổi thì sau khi thay đổi phải bấm vào nút cập nhật.

2) Khi chọn vào cột F của sheet "Xuat Kho" thì ComboBox sẽ hiện ra, đồng thời nếu có mã tại cột đó thì CBB sẽ nhận mã tại đó, muốn xóa hàng đó thì chỉ việc xóa trong CBB.

Các phím mũi tên:

3) Khi list đang trong tình trạng Dropdown thì phím lên phím xuống chạy theo list, còn khi đã chọn trong list rồi mà list không xổ xuống thì sẽ chọn theo Cell.

4) Phím trái phím phải cũng chọn theo cell nếu con trỏ đứng trước hay sau mã bên trong CBB.
Nhấp chuột vào đây để mở rộng...
Cám ơn anhNghĩa!

  • Giờcó có thêm một vấn đề nữa giờ anh giúp em với…
  • CũngFile đó, em có một danh sách khách hàng, khi em nhập tên muốn tìm cho nhanh vàchính xác.
  • Ýem muốn là: Khi nhập tên KH tại cột D của Sheet KH thì sẽ tìm kiếm tên tại cộtB của sheet MKH.
  • VD:Khi em nhập tại ô D3 Của sheet KH là A1 thì sẽ tìm cho em tên A1 tại cột B củasheet MKH, …
 

File đính kèm

  • Tim KH Va Chon.rar
    68.4 KB · Đọc: 48
Upvote 0
Chào anh Nghĩa
Từ hướng dẫn của anh, em làm file riêng của mình như file đính kèm
Code chạy rồi nhưng list trong combobox luôn hiển thị 3 cột, tuy nhiên em muốn list trong combobox hiển thị 5 cột (thêm 2 cột Ngày nhập và Giá nhập từ Sheet Bảng Mã Hàng Hóa) nhưng em chưa biết làm cách nào
Mong anh hướng dẫn giúp
Cảm ơn anh
 

File đính kèm

  • Them cot.jpg
    Them cot.jpg
    17.8 KB · Đọc: 22
  • Xuatkho.xlsm
    297.9 KB · Đọc: 45
Upvote 0
tommynguyen đã viết:
Chào anh Nghĩa
Từ hướng dẫn của anh, em làm file riêng của mình như file đính kèm
Code chạy rồi nhưng list trong combobox luôn hiển thị 3 cột, tuy nhiên em muốn list trong combobox hiển thị 5 cột (thêm 2 cột Ngày nhập và Giá nhập từ Sheet Bảng Mã Hàng Hóa) nhưng em chưa biết làm cách nào
Mong anh hướng dẫn giúp
Cảm ơn anh
Nhấp chuột vào đây để mở rộng...

chắc anh Nghĩa bận đi offline rùi, tui thử tra lờn hén
trước tiên để nâng số cột của combo lên 5 cột, bạn làm như sau:
1- nhấp vào C3 cho cái combo nó hiện lên
2-nhấp vào tab Developer trên thanh công cụ, chọn Design mode, nhấp lại vào combo cho nó sừng cồ lên
rồi chọn properties trong list hiện ra bạn chọn columncount sửa số 3 thành số 5
===========
sau khi sửa xong thì tôi thấy nó tự nạp data vào đủ 5 cột cho bạn
code có vẻ phức tạp hỉ?
chắc là cái module 1 phải ko? đọc quá thấy khó qua nên bỏ.....hehehehe
 
Upvote 0
Em cảm ơn bác Let'GâuGâu, em làm được rồi
Code không phải của em ạ. Code của bác Nghĩa và bác comet_1701 giúp em sửa ạ :D
 
Upvote 0
cho phép em để lại file này sau này có ai cần thì xài
với đặc thù công việc cần tạo sheet mới hàng tháng . file này giúp từng sheet ko cần chứa code nữa
code đặt trong module và chạy trên tất cả các sheet có sheetname thỏa mãn yêu cầu nào đó
(thí dụ có chứa chữ "xuất" hay "nhập")
theo trải nghiệm thực tế thì đa số cần dò tìm theo tên chứ ít khi theo mã nên ở đây code dò tìm theo cả 2 tiêu chí 1 lúc
file này có 1 số điểm khác với file của anh Nghĩa

-gỡ bỏ button cập nhật vì không cần thiết
-không cần gõ tiếng việt có dấu khi tìm kiếm
-sửa lỗi invalid pattern khi gõ kí tự "[" vào ô mã hàng
-sửa lỗi không click chọn được item khi combobox có ListCount = 1
-hide dropdownlist khi ListCount = 0
chạy trên cả 2 hệ 32 bit và 64 bit
và cuối cùng e ko phải chuyên về exel nên code hơi thô :D
 

File đính kèm

  • TaoList1.rar
    189.7 KB · Đọc: 237
Upvote 0
doveandrose đã viết:
cho phép em để lại file này sau này có ai cần thì xài
với đặc thù công việc cần tạo sheet mới hàng tháng . file này giúp từng sheet ko cần chứa code nữa
code đặt trong module và chạy trên tất cả các sheet có sheetname thỏa mãn yêu cầu nào đó
(thí dụ có chứa chữ "xuất" hay "nhập")
theo trải nghiệm thực tế thì đa số cần dò tìm theo tên chứ ít khi theo mã nên ở đây code dò tìm theo cả 2 tiêu chí 1 lúc
file này có 1 số điểm khác với file của anh Nghĩa

-gỡ bỏ button cập nhật vì không cần thiết
-không cần gõ tiếng việt có dấu khi tìm kiếm
-sửa lỗi invalid pattern khi gõ kí tự "[" vào ô mã hàng
-sửa lỗi không click chọn được item khi combobox có ListCount = 1
-hide dropdownlist khi ListCount = 0
chạy trên cả 2 hệ 32 bit và 64 bit
và cuối cùng e ko phải chuyên về exel nên code hơi thô :D
Nhấp chuột vào đây để mở rộng...
Em thấy file tâm huyết đấy ah. ko biết bác có phải dân lập trình ko.
File kết hợp sự kiện trong class module, api
Cảm ơn bác về bài viết. vụ list này của bác và anh Nghĩa giúp dân kế toán nhiều lắm
 
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Uhm, sửa lại tí thôi mà! Bạn mà biết tí gì về code thì cũng sửa dễ dàng thôi. ;;;;;;;;;;;
Nhấp chuột vào đây để mở rộng...
Anh ơi! File tại bài # 47
- Trong Properties của Combobox em không sửa được thông số của ColumnWidths và ListWidths
- Anh chỉ giúp em cách sửa với ạ
( Em sửa thông số song lưu lại và vào lại thì lại thấy như cũ em không biết tại sao)
 

File đính kèm

  • Khong Hieu.jpg
    Khong Hieu.jpg
    15.9 KB · Đọc: 94
Upvote 0
0905744404 đã viết:
Anh ơi! File tại bài # 47
- Trong Properties của Combobox em không sửa được thông số của ColumnWidths và ListWidths
- Anh chỉ giúp em cách sửa với ạ
( Em sửa thông số song lưu lại và vào lại thì lại thấy như cũ em không biết tại sao)
Nhấp chuột vào đây để mở rộng...
Trong Sheet Module của sheet Nhap Xuat:

Mã: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ''Neu co su Copy hay Cut thi khong thuc hien code:
    If Application.CutCopyMode Then Exit Sub
    ''De chay lai sau khi Copy nhan nut Esc.


    With ComboBox1
        If Selection.Count = 1 And Target.Row > 4 And _
            (Target.Column = 4 Or Target.Column = 6) Then
            Dim Cot1 As Single, Cot2 As Single, Cot3 As Single
            If .Visible = True Then
                .Visible = False
            End If
            .Text = ""
            If Not IsArray(pubArrKH) Then
                Call ArrCreate
            End If
            If Target.Column = 4 Then
                If .ColumnCount <> 2 Then
                    .ColumnCount = 2
                    .List = pubArrKH
                    With Target
                        Cot1 = .Width
                        Cot2 = .Offset(, 1).Width
                    End With
                    .ListWidth = Cot1 + Cot2
                    .ColumnWidths = Cot1 - 6
                End If
                If .ListCount < pubUbdKH Then
                    .List = pubArrKH
                End If
            ElseIf Target.Column = 6 Then
                If .ColumnCount <> 3 Then
                    .ColumnCount = 3
                    .List = pubArrVT
[COLOR=#0000ff]                    With Target[/COLOR]
[COLOR=#0000ff]                        Cot1 = .Width[/COLOR]
[COLOR=#0000ff]                        Cot2 = .Offset(, 1).Width[/COLOR]
[COLOR=#0000ff]                        Cot3 = .Offset(, 2).Width[/COLOR]
[COLOR=#0000ff]                    End With[/COLOR]
[COLOR=#ff0000]                    .ListWidth = Cot1 + Cot2 + Cot3[/COLOR]
[COLOR=#ff0000]                    .ColumnWidths = Cot1 - 6 & ";" & Cot2 + 6 & ";" & Cot3 - 18[/COLOR]
[COLOR=#0000ff] [/COLOR]               End If
                If .ListCount < pubUbdVT Then
                    .List = pubArrVT
                End If
            End If
            .Top = Target.Top
            .Left = Target.Left
            .Height = Target.Height + 3
            .Width = Target.Width
            .Visible = True
            .Activate
        Else
            If .Visible = True Then
                .Visible = False
            End If
        End If
    End With
End Sub

Bạn xem đó mà chỉnh lại theo ý bạn hen.
 
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Trong Sheet Module của sheet Nhap Xuat:

Mã: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ''Neu co su Copy hay Cut thi khong thuc hien code:
    If Application.CutCopyMode Then Exit Sub
    ''De chay lai sau khi Copy nhan nut Esc.


    With ComboBox1
        If Selection.Count = 1 And Target.Row > 4 And _
            (Target.Column = 4 Or Target.Column = 6) Then
            Dim Cot1 As Single, Cot2 As Single, Cot3 As Single
            If .Visible = True Then
                .Visible = False
            End If
            .Text = ""
            If Not IsArray(pubArrKH) Then
                Call ArrCreate
            End If
            If Target.Column = 4 Then
                If .ColumnCount <> 2 Then
                    .ColumnCount = 2
                    .List = pubArrKH
                    With Target
                        Cot1 = .Width
                        Cot2 = .Offset(, 1).Width
                    End With
                    .ListWidth = Cot1 + Cot2
                    .ColumnWidths = Cot1 - 6
                End If
                If .ListCount < pubUbdKH Then
                    .List = pubArrKH
                End If
            ElseIf Target.Column = 6 Then
                If .ColumnCount <> 3 Then
                    .ColumnCount = 3
                    .List = pubArrVT
[COLOR=#0000ff]                    With Target[/COLOR]
[COLOR=#0000ff]                        Cot1 = .Width[/COLOR]
[COLOR=#0000ff]                        Cot2 = .Offset(, 1).Width[/COLOR]
[COLOR=#0000ff]                        Cot3 = .Offset(, 2).Width[/COLOR]
[COLOR=#0000ff]                    End With[/COLOR]
[COLOR=#ff0000]                    .ListWidth = Cot1 + Cot2 + Cot3[/COLOR]
[COLOR=#ff0000]                    .ColumnWidths = Cot1 - 6 & ";" & Cot2 + 6 & ";" & Cot3 - 18[/COLOR]
               End If
                If .ListCount < pubUbdVT Then
                    .List = pubArrVT
                End If
            End If
            .Top = Target.Top
            .Left = Target.Left
            .Height = Target.Height + 3
            .Width = Target.Width
            .Visible = True
            .Activate
        Else
            If .Visible = True Then
                .Visible = False
            End If
        End If
    End With
End Sub

Bạn xem đó mà chỉnh lại theo ý bạn hen.
Nhấp chuột vào đây để mở rộng...
Anh ơi! em muốn hiển thị Cột 1 nhỏ nhất thì phải làm sao ạ
 
Upvote 0
0905744404 đã viết:
Anh ơi! em muốn hiển thị Cột 1 nhỏ nhất thì phải làm sao ạ
Nhấp chuột vào đây để mở rộng...
Nhỏ nhất có nghĩa là = 0. Vậy thay vì:

Mã: 
With Target
[COLOR=#ff0000]    Cot1 = .Width[/COLOR]
    Cot2 = .Offset(, 1).Width
    Cot3 = .Offset(, 2).Width
End With
.ListWidth = Cot1 + Cot2 + Cot3
.ColumnWidths = [COLOR=#ff0000]Cot1 - 6[/COLOR] & ";" & Cot2 + 6 & ";" & Cot3 - 18

Thì sửa thành:

Mã: 
With Target
    Cot2 = .Offset(, 1).Width
    Cot3 = .Offset(, 2).Width
End With
.ListWidth = Cot1 + Cot2 + Cot3
.ColumnWidths = [B][COLOR=#ff0000]0[/COLOR][/B] & ";" & Cot2 + 6 & ";" & Cot3 - 18
 
Upvote 0
Anh Hoàng Trọng Nghĩa có thể chỉnh giúp em cái file này ko ạ, em chưa biết gì về VBA, nên cố gắng mày mò bữa giờ mà vẫn ko hiểu, nên đành nhờ anh giúp luôn vậy ^^.
Em muốn chỉnh trong sheet nhập và xuất lấy dữ liệu từ tồn ( mã hàng_ tên hàng_ ĐVT)
Mong a bớt chút thời gian chỉnh giúp em ạ. Em cảm ơn anh nhiều }}}}}
 

File đính kèm

  • XNT - TH.xlsx
    20.2 KB · Đọc: 21
Upvote 0
anh ơi cũng file NhapThanhPham3 của anh muốn thêm dòng bên DMKH và Ton DK thì phải sửa thế nào ah?
 
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Túm lại là cái file tôi đưa lên bạn đã thử chưa cái đã. Mục đích của bạn chỉ là chọn một mã hàng/ tên hàng nào đó trong List rồi nhập vào bảng đó thôi, phải vậy không?
Nhấp chuột vào đây để mở rộng...


bạn ơi, bạn có thể sửa lại cho trong bảng tính đó khi mình chọn xong rồi, mình dùng phím tab để chuyển sang cột khác được không, như thế thì tiện lợi hơn cho công việc ý.
Cảm ơn bạn đã xem ngu ý của mình hiii, --=0|||||
 
Upvote 0
Hoàng Trọng Nghĩa đã viết:
1) Thay vì dùng List validation, cái này nó chỉ hiển thị đúng 1 cột, mất công phải viết nhiều code, thì tôi lại dùng ComboBox, nó vừa hiển thị được nhiều cột vừa tạo được các sự kiện để tìm kiếm theo key mà bạn gõ vào nó.

2) Tôi đã bỏ cột Chọn mã hàng vì nó không cần thiết

3) Tôi cũng Trim(Mã hàng) để chúng không có khoảng trắng đằng sau ở cột Mã hàng (cột B của sheet Bang Ma Hang Hoa).

4) Bạn tự chỉnh sửa lại công thức tại sheet In Toa

5) Tại cột Mã hàng (cột F, Xuat Kho) tôi có đặt 1 checkbox, nếu nó được check thì sẽ tìm theo Tên Hàng, còn không thì nó tìm theo Mã Hàng.

6) Nói chung, có gì thắc mắc thì bạn hỏi tiếp.

Thủ tục tạo mảng dữ liệu trong Standard Module:

Mã: 
Public pubArrList
Public pubUBound As Long


Sub ArrCreate()
    Dim HangCuoi As Long
    Dim ShBangMa As Worksheet
    
    Set ShBangMa = Sheets("Bang Ma Hang Hoa")
    HangCuoi = ShBangMa.Range("B" & Rows.Count).End(xlUp).Row
    
    pubArrList = ShBangMa.Range("B2:D" & HangCuoi)
    pubUBound = UBound(pubArrList)
End Sub

Thủ tục sự kiện trong Sheet Module:

Mã: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ComboBox1
        If Selection.Count = 1 And Target.Row > 2 And Target.Column = 6 Then
            If Not IsArray(pubArrList) Then
                Call ArrCreate
                .List = pubArrList
            End If
            .Visible = False
            .Text = ""
            If .ListCount < pubUBound Then
                .List = pubArrList
            End If
            .Top = Target.Top
            .Left = Target.Left
            .Height = Target.Height
            .Width = Target.Width
            .Visible = True
            .Activate
        Else
            If .Visible = True Then
                .Visible = False
            End If
        End If
    End With
End Sub


Private Sub ComboBox1_Change()
    With ComboBox1
        If .MatchFound Then
            ActiveCell.Value = .Value
            ActiveCell.Offset(, 1) = .List(, 1)
            ActiveCell.Offset(, 2) = .List(, 2)
        End If
    End With
End Sub


Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        ActiveCell.Offset(1).Select
    End If
End Sub


Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If Not IsArray(pubArrList) Then Exit Sub
    Select Case KeyCode
    Case 9, 13, 37 To 40
    Case Else
        If ComboBox1 > "" Then ComboBox1.DropDown
        
        Dim StrItem As String
        Dim n As Long, r As Long
        Dim c As Byte, col As Byte
        Dim GetRows(), ArrFilter()
        
        col = IIf(CheckBox1, 2, 1)
        
        StrItem = "*" & UCase(ComboBox1) & "*"
        
        For r = 1 To pubUBound
            If UCase(pubArrList(r, col)) Like StrItem Then
                n = n + 1
                ReDim Preserve GetRows(1 To n)
                GetRows(n) = r
            End If
        Next
        
        If n > 0 Then
            ReDim ArrFilter(1 To n, 1 To 3)
            For c = 1 To 3
                For r = 1 To n
                    ArrFilter(r, c) = pubArrList(GetRows(r), c)
                Next
            Next
            ComboBox1.List = ArrFilter
        Else
            ComboBox1.List = Array()
        End If
    End Select
End Sub
Nhấp chuột vào đây để mở rộng...

@Hoàng Trọng Nghĩa: Anh cho em hỏi, nếu em chỉ cần sử dụng dữ liệu cột "Tên hàng" thì trong code cần sửa lại thế nào. Em cũng đang mò mẫm mà chưa có ra.
 
Upvote 0
Thử tham khảo với bài này xem có giúp ích gì cho các bạn không:

http://www.giaiphapexcel.com/forum/...hanh-trong-drop-down-list&p=713806#post713806

Cái kiểu này dân kế toán hay dùng, mà khổ nỗi các bạn lại không biết lập trình, mỗi người mỗi kiểu dữ liệu và mỗi cách biểu diễn khác nhau, tôi chẳng biết làm sao để làm một kiểu tổng quát cho các bạn nữa!
 
Upvote 0
Thanks a Nghĩa nhé, em làm được rồi mà có vấn đề: Chỉ hiện đc tên có trong danh sách còn những tên ko có trong danh sách thì kể cả khi em gõ đầy đủ rồi enter nó cũng ko cho nhập. Làm thế nào để những tên mà chưa cập nhật trong danh sách thì ta có thể gõ đc vào anh nhỉ.
 
Lần chỉnh sửa cuối:
Upvote 0
nguyenthenhan đã viết:
Thanks a Nghĩa nhé, em làm được rồi mà có vấn đề: Chỉ hiện đc tên có trong danh sách còn những tên ko có trong danh sách thì kể cả khi em gõ đầy đủ rồi enter nó cũng ko cho nhập. Làm thế nào để những tên mà chưa cập nhật trong danh sách thì ta có thể gõ đc vào anh nhỉ.
Nhấp chuột vào đây để mở rộng...
Vậy thì bạn cứ đưa file lên đây, ghi rõ yêu cầu thế nào rồi kết quả mong muốn là gì thì người khác mới có thể giúp các bạn được.
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

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

hvt268
Hỏi về lỗi SPILL! khi dùng kết hợp hàm SEQUENCE() và hàm RANDBETWEEN()
Trả lời
4
Đọc
145
VetMini
V
H
Sử dụng hàm gi?
Trả lời
7
Đọc
127
hongphuong1997
hongphuong1997
Tuấn Bụng Bự
  • Question
Hiển thị UserForm theo vị trí ô cell được chọn
Trả lời
5
Đọc
227
Tuấn Bụng Bự
Tuấn Bụng Bự
LuuGiaPhúc
Code gởi mail từ excel theo danh sách cho sẵn
Trả lời
0
Đọc
25
LuuGiaPhúc
LuuGiaPhúc
hongphuong1997
Thay ký tự trong chuỗi về số "0"
Trả lời
14
Đọc
208
hongphuong1997
hongphuong1997
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

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

Back
Top Bottom