Viết code cho textbox nhận giá trị theo combobox (1 người xem)

[thientrieuqs]

Dear các bác,
Em đang làm bài tập, đơn giản như sau:
Em có 1 bảng danh sách hàng, gồm 3 cột: tên hàng, đơn vị tính và đơn giá
Em lập 1 bảng userform, trong đó có ô vật tư tự truy xuất theo range của cột vật tư: combobox
Em muốn viết cho 2 ô textbox về đơn vị tính và đơn giá tự nhảy theo kiểu vlookup theo bảng danh sách hàng khi chọn cho ô vật tư thì viết ntn ạ

 

[Hoàng Tuấn 868]

Dear các bác,
đơn giản như sau:
thì viết ntn ạ

Nếu đơn giản thì tự viết theo ý bạn muốn thôi.

 

[thientrieuqs]

Nếu đơn giản thì tự viết theo ý bạn muốn thôi.

Dạ, ý là cái bài nó đơn giản có 3 ô bé tẹo á bác )))))

 

[Hoàng Tuấn 868]

bài nó đơn giản có 3 ô bé tẹo á bác )))))

Ô càng bé thì viết code càng ngắn thôi.

 

[snow25]

Dear các bác,
Em đang làm bài tập, đơn giản như sau:
Em có 1 bảng danh sách hàng, gồm 3 cột: tên hàng, đơn vị tính và đơn giá
Em lập 1 bảng userform, trong đó có ô vật tư tự truy xuất theo range của cột vật tư: combobox
Em muốn viết cho 2 ô textbox về đơn vị tính và đơn giá tự nhảy theo kiểu vlookup theo bảng danh sách hàng khi chọn cho ô vật tư thì viết ntn ạ

Bạn lấy giá trị vào combobox cả 3 giá trị khi nào chọn thì lấy theo kiểu mảng ra là được.
Ví dụ là vị trí combobox là i cần lấy thì DVT của nó là combobox.list(i,1)

 

[thientrieuqs]

Bạn lấy giá trị vào combobox cả 3 giá trị khi nào chọn thì lấy theo kiểu mảng ra là được.
Ví dụ là vị trí combobox là i cần lấy thì DVT của nó là combobox.list(i,1)

Ý em muốn cái ô DVT không cần nhập mà nó sẽ tự chạy ra theo kiểu vlookup giá trị trong ô vật tư vừa nhập

 

[snow25]

Ý em muốn cái ô DVT không cần nhập mà nó sẽ tự chạy ra theo kiểu vlookup giá trị trong ô vật tư vừa nhập

Thì nó có cần nhập đâu ví dụ ô DVT.

Private Sub ComboBox1_Change()
   TextBox1.Value = ComboBox1.List(ComboBox1.ListIndex, 1)
End Sub

Dữ liệu o combobox

Private Sub UserForm_Initialize()
   ComboBox1.List = Range("C7:E10").Value
End Sub