Fillter trong combobox (1 người xem)

[Excel365]

Nhờ các anh chị giúp em viết code tìm kiếm trong combobox, khi gõ 1 ký tự thì sẽ tìm kiếm những từ có ký tự gần giống ở sheet Đơn giá
Trân trọng cảm ơn

http://www.mediafire.com/view/b864h0rjrvnnrry/IQF_08-2015_GPE.xlsb

 

[Hoàng Trọng Nghĩa]

Tham khảo trong bài này, sẽ có lọc trong ComboBox:

http://www.giaiphapexcel.com/forum/...ọc-bằng-hàm-Filter2Darray&p=668375#post668375

 

[Excel365]

Tham khảo trong bài này, sẽ có lọc trong ComboBox:

http://www.giaiphapexcel.com/forum/...ọc-bằng-hàm-Filter2Darray&p=668375#post668375

Cảm ơn anh, nhưng có lẽ với trình độ của em thì em xin chiu thua. mong anh giúp em
Trân trọng

 

[HyperLink]

Nhờ các anh chị giúp em viết code tìm kiếm trong combobox, khi gõ 1 ký tự thì sẽ tìm kiếm những từ có ký tự gần giống ở sheet Đơn giá
Trân trọng cảm ơn

http://www.mediafire.com/view/b864h0rjrvnnrry/IQF_08-2015_GPE.xlsb

nếu là mình thì sẽ làm theo cách sau:
- dùng sự kiện double click vào vùng G3D3 để cho show 1 UserForm
- tìm kiếm công đoạn trên Form rồi copy đơn giá xuống sheet.
'-------
nếu tên công đoạn chỉ có 1 đơn giá thì sao bạn ko dùng công thức tham chiếu trực tiếp luôn nhỉ (để khi bên sheet Don gia thay đổi thì nó tự động thay đổi theo)

 

[Excel365]

nếu là mình thì sẽ làm theo cách sau:
- dùng sự kiện double click vào vùng G2D2 để cho show 1 UserForm
- tìm kiếm công đoạn trên Form rồi copy đơn giá xuống sheet.
'-------
nếu tên công đoạn chỉ có 1 đơn giá thì sao bạn ko dùng công thức tham chiếu trực tiếp luôn nhỉ (để khi bên sheet Don gia thay đổi thì nó tự động thay đổi theo)

Bạn có thể gởi cho mình xem file mẩu được không
Trân trọng cám ơn

 

[HyperLink]

Bạn có thể gởi cho mình xem file mẩu được không
Trân trọng cám ơn

làm trên UserForm rất mất thì giờ nhưng cũng giải quyết được nhiều vấn đề,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("G3:DD3")) Is Nothing Then
    If Target = "" Then
    Cancel = True
        UserForm1.Show
    End If
    End If
End Sub

 

[Excel365]

làm trên UserForm rất mất thì giờ nhưng cũng giải quyết được nhiều vấn đề,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("G3:DD3")) Is Nothing Then
    If Target = "" Then
    Cancel = True
        UserForm1.Show
    End If
    End If
End Sub

View attachment 145778

Cám ơn bạn nhiều,
Nhưng có cách nào khi double click ở dòng 2, thì sẽ hiện Form lên, xong chọn 1 công đoạn bất kỳ thì sẽ điền tên công đoạn ở dòng 2, và đơn giá sẽ ở dòng 3 không
Trân trọng cảm ơn

 

[HyperLink]

Cám ơn bạn nhiều,
Nhưng có cách nào khi double click ở dòng 2, thì sẽ hiện Form lên, xong chọn 1 công đoạn bất kỳ thì sẽ điền tên công đoạn ở dòng 2, và đơn giá sẽ ở dòng 3 không
Trân trọng cảm ơn

bạn sửa:
1- tại Worksheet_BeforeDoubleClick
If Not Intersect(Target, Range("G3D3")) Is Nothing Then
thành
If Not Intersect(Target, Range("G2D2")) Is Nothing Then

đồng thời tắt sự kiện Worksheet_SelectionChange nhé

2- code trong UserForm, chỉ sửa

Private Sub [B]hotro_ListBox1[/B]()
On Error GoTo Thoat
    
    ActiveCell.Value = ListBox1.Column(1)
    ActiveCell.Offset(1) = ListBox1.Column(2)
    Unload Me
    
    Exit Sub
    
Thoat:
    'MsgBox ("ban dang click vao` vung` trong'"), vbExclamation
End Sub

 

[Excel365]

bạn sửa:
1- tại Worksheet_BeforeDoubleClick
If Not Intersect(Target, Range("G3D3")) Is Nothing Then
thành
If Not Intersect(Target, Range("G2D2")) Is Nothing Then

đồng thời tắt sự kiện Worksheet_SelectionChange nhé

2- code trong UserForm, chỉ sửa

Private Sub [B]hotro_ListBox1[/B]()
On Error GoTo Thoat
    
    ActiveCell.Value = ListBox1.Column(1)
    ActiveCell.Offset(1) = ListBox1.Column(2)
    Unload Me
    
    Exit Sub

    
Thoat:
    'MsgBox ("ban dang click vao` vung` trong'"), vbExclamation
End Sub

Cám ơn bạn nhiều. Chúc bạn vui vẻ, gặp nhiều may mắn