Tìm giá trị tương ứng khi ComboBox thay đổi

[sangista192]

Hi. các bạn, có thể giúp mình cách kết nối combobox với ạ. Khi giờ thay đổi thì tên ở textbox cũng thay đổi theo.

 

[leonguyenz]

Hi. các bạn, có thể giúp mình cách kết nối combobox với ạ. Khi giờ thay đổi thì tên ở textbox cũng thay đổi theo.
View attachment 233625

Dùng thử đoạn code sau:

Private Sub ComboBox1_Change()
    Dim rG As Range, i As Long
    Set rG = Sheet1.Range("DM")
    For i = 1 To rG.Rows.Count
        If rG(i, 1).Value = CDate(ComboBox1.Value) Then
            TextBox1.Value = rG(i, 1).Offset(0, 2).Value
            Exit For
        End If
    Next
End Sub