ĐVT Textbox có thể tự động lấy giá trị tương ứng với tên hàng được

Chào bạn phần này bạn có thể bắt sự kiện Combobox_Change và dùng hàm tìm kiếm để lấy textbox theo tên hàng nhé.

Private Sub tenhang_Change()

Range("D1").Value = Themmoi_1.tenhang.Value

Themmoi_1.dongia.Value = Application.WorksheetFunction.VLookup(Range("D1"), Sheet1.Range("B3:B6"), 2, 0)

End Sub

thầy giúp e đoạn code trên ah, e tìm kiếm may báo lổi dòng tìm kiếm ah....e cảm ơn ah!

thầy giúp e chút đk không ah e vẫn ko xử  lý đk ah 

Chào bạn bạn làm như sau nhé

Option Explicit
Private Sub TextBox1_Change()
    Dim r As String, arr As Variant, i As Long
    arr = Sheet1.Range("A1:B5").Value
    If (Len(Me.TextBox1.Text) > 0) Then
        For i = LBound(arr, 1) To UBound(arr, 1)
            If (arr(i, 1) = Me.TextBox1.Text) Then
                Me.TextBox2.Text = arr(i, 2)
             End If
        Next i
     Else
            Me.TextBox2.Text = ""
    End If
End Sub

Có 2 vấn đề trong đoạn code của bạn:

1. Không cần đưa giá trị trong textbox tenhang vào ô D1 mà có thể dùng trực tiếp trong hàm vlookup (đoạn code Range("D1").Value = Themmoi_1.tenhang.Value là thừa)

2. Hàm vlookup bạn viết sai phần table_array rồi. Vùng B3:B6 chỉ có 1 cột làm sao hàm tìm kiếm được.

Bạn xác định lại vùng này cho chính xác là code sẽ chạy được bình thường.

Ví dụ:

Themmoi_1.dongia.Value = Application.WorksheetFunction.VLookup(Themmoi_1.tenhang, Sheet1.Range("B3:D6"), 2, 0)