hoangtulonely
Thành viên mới
- Tham gia
- 11/10/08
- Bài viết
- 10
- Được thích
- 1
Bạn thay thế textbox1 thành 1 combobox để lấy dữ liệu nguồn dưa vào combobox đó. (Nhớ đặt tên co vùng dữ liệu và set rowsoure cho đúng nhé.)mình muốn tạo một list trong from nhập liệu của HỢP ĐỒNG và THÀNH PHẨM từ danh sách của sheet BẢNG MÃ để khi nhập liệu mình chỉ việc chọn .Mình gửi kèm file mong các bạn giúp đỡ
Private Sub ComboBox1_Change()
Dim r As Long
Dim Src As String
r = ComboBox1.ListIndex + 1
Src = ComboBox1.RowSource
TextBox2.Value = Range(Src).Cells(r, 2)
TextBox3.Value = Range(Src).Cells(r, 3)
End Sub