Hàm tìm kiếm giá trị trong một bảng excel bằng VBA

[khoahung1202]

Dạ em chào các anh chị ạ!
Em có vấn đề như thế này mong nhận được sự giúp đỡ của anh chị ạ.
Em có một sheet DMNTVTDV chứa các danh mục ạ.Em lại có 1 sheet NTVTDV tại ô B11 chứa giá trị một trong các danh mục trong DMNTVTDV.Đồng thời trong sheet NTVTDV em cũng tạo một nút để kích khi thay đổi giá trị ô B11(dấu mũi tên lên xuống ạ).Vấn đề của em là:em muốn khi giá trị ô B11 thay đổi khi em kích mũi tên lên xuống thì số dòng ẩn hiện bên dưới ô B11 sheet NTVTDV sẽ lấy theo giá trị mà nó đếm được trong sheet DMNTVTDV của ô B11.Cụ thể là nếu tại ô B11 có giá tri bằng quýt thì nó sẽ đếm trong sheet DMNTVTDV là có bao nhiêu trái quýt đó ạ.
Mong các anh chị giúp em với ạ.Em suy nghĩ miết mà ko ra ạ.Em cảm ơn!

 

[Maika8008]

Code cho cái Spinner1:

Sub Spinner1_Change()
    Range("M1") = Range("M1")
End Sub

Code cho sheet NTVTDV:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$1" Then
    Range("B11") = WorksheetFunction.Index(Sheet18.Range("C2:C370"), WorksheetFunction.Match(Range("M1"), Sheet18.Range("A2:A370"), 0))
    Range("O9") = WorksheetFunction.CountIf(Sheets("DMNTVTDV").Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row), Range("B11"))
End If
End Sub

Đang thèm quýt mà tìm hoài trong sheet DMNTVTDV không thấy trái quýt nào!

 

[khoahung1202]

Code cho cái Spinner1:

Sub Spinner1_Change()
    Range("M1") = Range("M1")
End Sub

Code cho sheet NTVTDV:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$1" Then
    Range("B11") = WorksheetFunction.Index(Sheet18.Range("C2:C370"), WorksheetFunction.Match(Range("M1"), Sheet18.Range("A2:A370"), 0))
    Range("O9") = WorksheetFunction.CountIf(Sheets("DMNTVTDV").Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row), Range("B11"))
End If
End Sub

Đang thèm quýt mà tìm hoài trong sheet DMNTVTDV không thấy trái quýt nào!

hihi,dạ em cảm ơn anh ạ

Bài đã được tự động gộp: 21/6/21

Code cho cái Spinner1:

Sub Spinner1_Change()
    Range("M1") = Range("M1")
End Sub

Code cho sheet NTVTDV:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$1" Then
    Range("B11") = WorksheetFunction.Index(Sheet18.Range("C2:C370"), WorksheetFunction.Match(Range("M1"), Sheet18.Range("A2:A370"), 0))
    Range("O9") = WorksheetFunction.CountIf(Sheets("DMNTVTDV").Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row), Range("B11"))
End If
End Sub

Đang thèm quýt mà tìm hoài trong sheet DMNTVTDV không thấy trái quýt nào!

dạ anh ơi,em có 2 đoạn code như thế này thì em thêm đoạn code của anh vào đâu là được ạ,em thêm vào mà nó ko chạy được,anh giúp em với được ko ạ.

 

[Maika8008]

Code Spinner1_Change() nằm trong module nào đó cũng được.
Private Sub Worksheet_Change(ByVal Target As Range) thay cho cái đang có trong trang code của sheet NTVTDV

 

[khoahung1202]

dạ anh,nó vẫn ko nhảy anh ơi.Em muốn khi giá trị tại ô B11 thay đổi(giả sử là như nghiệm thu vật tư đầu vào đợt 2) thì nó sẽ đếm trong cái sheet DMNTVT có bao nhiêu ô có giá trị như ô B11 để nó ẩn hiện dòng tương ứng trong sheet NTVTDV.Em suy nghĩ mãi mà ko biết code,anh giúp em với ạ.

 

[Maika8008]

Bạn không biết đếm bao nhiêu trái quýt, tôi đã giúp bạn đếm rồi

 

[khoahung1202]

Bạn không biết đếm bao nhiêu trái quýt, tôi đã giúp bạn đếm rồi

dạ em cảm ơn ạ,mà anh giúp thêm em tý với ạ.Mục đích em đếm quýt để ẩn hiện dòng anh ơi.Mà giờ khi thay đổi giá trị tại ô M1 thì nó lại không ẩn hiện dòng theo số quýt anh ạ.Anh giúp em với ạ.

 

[Maika8008]

dạ em cảm ơn ạ,mà anh giúp thêm em tý với ạ.Mục đích em đếm quýt để ẩn hiện dòng anh ơi.Mà giờ khi thay đổi giá trị tại ô M1 thì nó lại không ẩn hiện dòng theo số quýt anh ạ.Anh giúp em với ạ.

Tôi cho chạy sub anhiendong của bạn đúng kiểu rồi, bạn cần ẩn hiện thế nào thì xem lại code của anhiendong đi nhé!