Nó đây chứ gì bác SEALANDVới từng đó yêu cầu chỉ cần duy nhất 1 combo là đủ, sao lại vẽ vời tiêu tốn tài nguyên vậy. Dữ liệu lớn chắc hết chạy luôn.
Mình cũng đã gửi ví dụ dạng này rồi nhưng không nhớ ở đâu nữa.
chà, file này đúng thật là hay, mình tham khảo và cuối cùng cũng đạt được mục đích mình cần tìm kiếm.Đây là file mà mình "cải tiến" của một bạn nào đó đã gửi file kèm theo ở trên.View attachment new.rarNó đây chứ gì bác SEALAND
File của bạn chưa ngon, khi di chuyển cứ phải dung chuột, người nhập cố di chuyển bằng bàn phím thi mã vừa chọn thay đổi sai loạn. Nhập xong phải thoát Combo và về sheet cơ. Bạn thử xem nha.chà, file này đúng thật là hay, mình tham khảo và cuối cùng cũng đạt được mục đích mình cần tìm kiếm.Đây là file mà mình "cải tiến" của một bạn nào đó đã gửi file kèm theo ở trên.View attachment 57880
Chưa ngon là sao?Bạn đã thử hết chưa mà bảo chưa ngon.Nếu bạn dùng phím thì khi chọn xong mã, bấm enter và phải thoát ra bằng cách nhấn Esc.Thử lại xem bạn.File của bạn chưa ngon, khi di chuyển cứ phải dung chuột, người nhập cố di chuyển bằng bàn phím thi mã vừa chọn thay đổi sai loạn. Nhập xong phải thoát Combo và về sheet cơ. Bạn thử xem nha.
Chào các anh chị ! Tôi muốn tạo một combo box để mỗi khi đặt con trỏ chuột vào một ô được chọn trong một cột thì sẽ xuất hiện nút bấm sổ xuống tại ô đó, cho phép chọn một giá trị trong một vùng dữ liệu (có 2 cột) để trong sheet khác, gán cho ô đựoc chọn nói trên. Xin hướng dẫn chi tiết vì tôi là dân amateur không chuyên.
Bạn sử dụng code này thử xemXin giứp đỡ.
Mình đã có dữ liệu, nhưng khi chọn dữ liệu trong ComBoBox để đỗ vào textbox trong form nhưng không được. Mong được giúp đỡ.
Thanks!
Private Sub cbb_listCH_Change()
Dim Rng
Dim i As Long
On Error Resume Next
Rng = Sheet2.Range("A1:G10000").Value
For i = 1 To UBound(Rng)
If Rng(i, 1) = cbb_listCH.Value Then
txtKBC.Text = Rng(i, 2)
txtCT.Text = Rng(i, 3)
txtSLNB.Text = Rng(i, 4)
txtTTNB.Text = Rng(i, 5)
txtKLD.Text = Rng(i, 6)
txtTTKLD.Text = Rng(i, 7)
Exit For
End If
Next
End Sub
Bạn sử dụng code này thử xem
Mã:Private Sub cbb_listCH_Change() Dim Rng Dim i As Long On Error Resume Next Rng = Sheet2.Range("A1:G10000").Value For i = 1 To UBound(Rng) If Rng(i, 1) = cbb_listCH.Value Then txtKBC.Text = Rng(i, 2) txtCT.Text = Rng(i, 3) txtSLNB.Text = Rng(i, 4) txtTTNB.Text = Rng(i, 5) txtKLD.Text = Rng(i, 6) txtTTKLD.Text = Rng(i, 7) Exit For End If Next End Sub
anh ơi nếu dữ liệu em thay đổi lại 1 tí(file đính kèm) thì đoạn code sẻ sữa lại như thế nào vậy?Bài này cũng lâu rồi không biết có còn cần thiết hay không, thôi cứ up lên đại
Các bác ơi làm như hình trong #66 như nào vậy các lão đại. Em chưa thấy bài nào hướng dẫn liên kết combobox trong user form, xin được mọi người giúp đỡ. Ai có tài liệu chia sẻ cho mình với nhéchào mọi người
mình muốn nhờ mọi người giúp đỡ vấn đề này: mình muốn tạo 1 list (trong data/validation) nhập liệu trong excel để tiện cho công việc, mình muốn trong list sẽ có cả mã khách hàng và tên khách hàng để khỏi nhầm lẫn, mình chỉ làm được list có 1 cột thôi, cụ thể như trong hình mình gửi kèm
xin mọi người jup đỡ,cảm ơn mọi người