[Giúp] Viết Code tìm kiếm vật tư dựa vào mã vật tư, tên vật tư, Serial trong Sheet dữ liệu

SA_DQ đã viết:

Bạn xài thử macro sự kiện này tại trang 'TimKiem':

PHP:Sao chép.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [c2]) Is Nothing Then
    Dim Rws As Long, J As Long, W As Integer, Tmr As Double
    Dim Arr()
    ReDim rArr(1 To 99, 1 To 9)
   
    [A4:i99].Value = rArr():                        Tmr = Timer()
    With Sheets("Database")
        Rws = .[b6].CurrentRegion.Rows.Count
        Arr() = .[b7].Resize(Rws, 18).Value
    End With
    For J = 1 To UBound(Arr())
        If Arr(J, 5) = Target.Value Then
            W = W + 1:                              rArr(W, 1) = W
            rArr(W, 2) = Arr(J, 1):                 rArr(W, 3) = Arr(J, 2)
            rArr(W, 4) = Arr(J, 4):                 rArr(W, 5) = Arr(J, 7)  '? '
            rArr(W, 6) = Arr(J, 9)
            rArr(W, 7) = IIf(Arr(J, 9) > 0, "OK", "-")
            rArr(W, 8) = Arr(J, 15):                rArr(W, 9) = "GPE.COM"
        End If
    Next J
    If W Then
        [A4].Resize(W, 9).Value = rArr():       [f2].Value = Timer() - Tmr
    Else
        [f2].Value = "Nothing!"
    End If
End If
End Sub

Nhấp chuột vào đây để mở rộng...