Xin giúp em code nhập giá trị tương ứng với ComboBox !!!

[ducky2301]

Em có 1 bảng tính gồm 4 cột :
1. Tên Hàng
2. Đơn Giá
3. Số Lượng
4. Thành Tiền

Em tạo 1 form gồm có 3 mục :
1. ComboBox : List các mặt hàng
2. Đơn giá :
3. Số lượng :
_ Em muốn khi chọn mặt hàng trong ComboBox rồi nhập Đơn giá và Số Lượng thì nó sẽ nhập vào đúng vị trí tương ứng của mặt hàng đó. Các Thầy và các bạn hướng dẫn giúp em code đó với nha.

 

[ndu96081631]

Em có 1 bảng tính gồm 4 cột :
1. Tên Hàng
2. Đơn Giá
3. Số Lượng
4. Thành Tiền

Em tạo 1 form gồm có 3 mục :
1. ComboBox : List các mặt hàng
2. Đơn giá :
3. Số lượng :
_ Em muốn khi chọn mặt hàng trong ComboBox rồi nhập Đơn giá và Số Lượng thì nó sẽ nhập vào đúng vị trí tương ứng của mặt hàng đó. Các Thầy và các bạn hướng dẫn giúp em code đó với nha.

Thử code này xem:

Private Sub CommandButton1_Click()
  Dim fRng As Range
  With Range("TH")
    Set fRng = .Find(Me.ComboBox1.Text, , xlValues, xlWhole)
    If Not fRng Is Nothing Then
      .Cells(Me.ComboBox1.ListIndex + 1, 2).Value = Val(Me.TextBox1)
      .Cells(Me.ComboBox1.ListIndex + 1, 3).Value = Val(Me.TextBox2)
    End If
  End With
End Sub

 

[ducky2301]

em làm được rồi, cám ơn Thầy nhiều

Thầy giải thích giúp em 2 đoạn code này với.

.Set fRng = .Find(Me.ComboBox1.Text, , xlValues, xlWhole)

.Cells(Me.ComboBox1.ListIndex + 1, 2).Value = Val(Me.TextBox1)

 

[ndu96081631]

em làm được rồi, cám ơn Thầy nhiều

Thầy giải thích giúp em 2 đoạn code này với.

.Set fRng = .Find(Me.ComboBox1.Text, , xlValues, xlWhole)

.Cells(Me.ComboBox1.ListIndex + 1, 2).Value = Val(Me.TextBox1)

Câu lệnh .Set fRng = .Find(Me.ComboBox1.Text, , xlValues, xlWhole) là để tìm xem trong vùng TH thật sự có chuổi mà ta chọn trong ComboBox không? Lỡ ta không chọn mà gõ nhăng nhít gì đó vào ComboBox thì biết tìm ở đâu
Còn câu lệnh dưới, bạn tự suy nghĩ đi (chỉ là lấy vị trí dòng, cột cho đúng mà thôi ---> Quá dễ)

 

[ducky2301]

Thầy ơi, em bị 1 vấn đề là, khi em chỉ nhập Số Lượng, không nhập Đơn Giá thì nó trả Đơn giá về giá trị 0 luôn. Vì đôi khi em chỉ sửa lại Số Lượng thôi, còn Đơn Giá thì giữ nguyên mà
Thầy giúp em nha .

 

[ndu96081631]

Thầy ơi, em bị 1 vấn đề là, khi em chỉ nhập Số Lượng, không nhập Đơn Giá thì nó trả Đơn giá về giá trị 0 luôn. Vì đôi khi em chỉ sửa lại Số Lượng thôi, còn Đơn Giá thì giữ nguyên mà
Thầy giúp em nha .

Thêm code này cho ComboBox xem:

Private Sub ComboBox1_Click()
  Dim fRng As Range
  With Range("TH")
    Set fRng = .Find(Me.ComboBox1.Text, , xlValues, xlWhole)
    If Not fRng Is Nothing Then
      Me.TextBox1 = .Cells(Me.ComboBox1.ListIndex + 1, 2).Value
      Me.TextBox2 = .Cells(Me.ComboBox1.ListIndex + 1, 3).Value
    End If
  End With
End Sub

 

[ducky2301]

_ Thầy làm có khác , còn em tự mài mò, chế biến thêm vào 1 đoạn code dài ngoằng :

If Me.TextBox1.Value = "" Then
.Cells(Me.ComboBox1.ListIndex + 1, 2).Value = .Cells(Me.ComboBox1.ListIndex + 1, 2).Value
Else
.Cells(Me.ComboBox1.ListIndex + 1, 2).Value = Val(Me.TextBox1)
End If

If Me.TextBox2.Value = "" Then
.Cells(Me.ComboBox1.ListIndex + 1, 3).Value = .Cells(Me.ComboBox1.ListIndex + 1, 3).Value
Else
.Cells(Me.ComboBox1.ListIndex + 1, 3).Value = Val(Me.TextBox2)
End If

_ Cám ơn Thầy nhiều lắm