Gán giá trị TextBox tương ứng với giá trị Combobox

[protq2]

Xin chào mng,

Em có 1 vấn đề sau mong mng giúp đỡ :

- Em muốn khi mình chọn giá trị ở cột First Name (trong Userform1) thì tự động Last Name sẽ nhận giá trị ở cột tương ứng.

Đây là đoạn Code :

Private Sub ComboBox1_Change()
Dim i As Long
Dim lastrow As Long
Dim ws As Worksheet
Set ws = Sheets("Sheet1")
lastrow = ws.Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To lastrow
If Val(Me.ComboBox1.Value) = ws.Cells(i, "A") Then
Me.TextBox1.Value = ws.Cells(i, "B").Value

End If
Next i

End Sub

Em cảm ơn

 

[befaint]

Nếu ở cột A có dữ liệu trùng nhau thì lấy cái nào? Lấy một hay lấy tất cả?

 

[syquyen1987]

Xin chào mng,

Em có 1 vấn đề sau mong mng giúp đỡ :

- Em muốn khi mình chọn giá trị ở cột First Name (trong Userform1) thì tự động Last Name sẽ nhận giá trị ở cột tương ứng.

Đây là đoạn Code :

Private Sub ComboBox1_Change()
Dim i As Long
Dim lastrow As Long
Dim ws As Worksheet
Set ws = Sheets("Sheet1")
lastrow = ws.Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To lastrow
If Val(Me.ComboBox1.Value) = ws.Cells(i, "A") Then
Me.TextBox1.Value = ws.Cells(i, "B").Value

End If
Next i

End Sub

Em cảm ơn

View attachment 201061

Của bạn đây
Private Sub ComboBox1_Change()
TextBox1 = Application.WorksheetFunction.VLookup(ComboBox1.Text, Columns("A:B"), 2, 0)
End Sub

 

[hoanganhvo2612]

Xin chào mng,

Em có 1 vấn đề sau mong mng giúp đỡ :

- Em muốn khi mình chọn giá trị ở cột First Name (trong Userform1) thì tự động Last Name sẽ nhận giá trị ở cột tương ứng.

Đây là đoạn Code :

Private Sub ComboBox1_Change()
Dim i As Long
Dim lastrow As Long
Dim ws As Worksheet
Set ws = Sheets("Sheet1")
lastrow = ws.Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To lastrow
If Val(Me.ComboBox1.Value) = ws.Cells(i, "A") Then
Me.TextBox1.Value = ws.Cells(i, "B").Value

End If
Next i

End Sub

Em cảm ơn

View attachment 201061

Code của bạn có vấn đề gì sao? Mình thấy tương đối đúng mà. Nhưng như #2 thì kết quả của bạn là duy nhất hay như thế nào? nếu duy nhất thì trước End if cho 1 dòng nữa là exit for tránh chạy quá nhiều dữ liệu không cần thiết

 

[SA_DQ]

Thứ nhất danh sách cần có mã duy nhất cho từng người
& thường người ta liệt kê lên ListBox các người (trùng) trong danh sách tìm thấy để người nhập liệu chọn 1

Sau khi có mã duy nhất cho danh sách CSDL, ta sẽ bàn đến chuyện tốc độ tìm kiếm, nếu chuyện tìm kiếm này trong 1 danh sch không hề ngắn.

Chúc các bạn ngày làm việc hiệu quả!

 

[protq2]

Nếu ở cột A có dữ liệu trùng nhau thì lấy cái nào? Lấy một hay lấy tất cả?

em muốn phần "Last Name" tự động nhảy kết quả tương ứng số dòng khi mình chọn giá trị "First Name".

Bài đã được tự động gộp: 3/8/18

Code của bạn có vấn đề gì sao? Mình thấy tương đối đúng mà. Nhưng như #2 thì kết quả của bạn là duy nhất hay như thế nào? nếu duy nhất thì trước End if cho 1 dòng nữa là exit for tránh chạy quá nhiều dữ liệu không cần thiết

Khi em chọn giá trị ở combobox nhưng textbox ko tự động nhảy theo giá trị tương ứng .

 

[ndu96081631]

Xin chào mng,

Em có 1 vấn đề sau mong mng giúp đỡ :

- Em muốn khi mình chọn giá trị ở cột First Name (trong Userform1) thì tự động Last Name sẽ nhận giá trị ở cột tương ứng.

Đây là đoạn Code :

Private Sub ComboBox1_Change()
Dim i As Long
Dim lastrow As Long
Dim ws As Worksheet
Set ws = Sheets("Sheet1")
lastrow = ws.Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To lastrow
If Val(Me.ComboBox1.Value) = ws.Cells(i, "A") Then
Me.TextBox1.Value = ws.Cells(i, "B").Value

End If
Next i

End Sub

Em cảm ơn

View attachment 201061

Code vậy được rồi nhưng sao lại có Val(...) ở đây? Bỏ Val(...) đi là được. Tức sửa:

If Val(Me.ComboBox1.Value)...

thành:

If Me.ComboBox1.Value....

 

[protq2]

Của bạn đây
Private Sub ComboBox1_Change()
TextBox1 = Application.WorksheetFunction.VLookup(ComboBox1.Text, Columns("A:B"), 2, 0)
End Sub

em cảm ơn để em check đã.

Bài đã được tự động gộp: 3/8/18

Code vậy được rồi nhưng sao lại có Val(...) ở đây? Bỏ Val(...) đi là được. Tức sửa:

If Val(Me.ComboBox1.Value)...

thành:

If Me.ComboBox1.Value....

uaaaaaaaaaaaaaa, Em cảm ơn ạ. Bác/Anh đúng là cao nhân.............. Em xin chân thành cảm ơn

 

[SA_DQ]

Họ & Tên ở ta hay bên tây cũng rất nhiều trường hợp trùng nhau trong 1 danh sách đủ lớn;

Vấn đề của tác giả bài đăng đã được cộng đồng cảnh báo: Cần có hướng giải rốt ráo!

& chúc thành công trong ngày!