buithanhlong
Thành viên hoạt động
- Tham gia
- 8/6/10
- Bài viết
- 176
- Được thích
- 141
Chào các Bác! tôi có đoạn code sau:
Private Sub txtMa_Change()
With Sheet2.Range("A1").CurrentRegion.Resize(, 1)
Set fRng = .Find(txtMa.Text, , , xlWhole)
If fRng Is Nothing Then Set fRng = .Parent.Cells(65000, .Column).End(xlUp).Offset(1)
For i = 2 To 4
UserForm1.Controls("txt" & i) = fRng.Offset(, i).Value
Next
End With
End Sub
Nếu để như vậy thì chạy rất tốt, nhưng khi tôi thay txtMa bằng cboMa thì lại bị lỗi. Do yêu cầu công việc tôi muốn thay textbox bằng combobox. Vậy nhờ các Bác giải thích lỗi trên và chỉnh sửa giúp tôi . Trân trọng biết ơn
Private Sub txtMa_Change()
With Sheet2.Range("A1").CurrentRegion.Resize(, 1)
Set fRng = .Find(txtMa.Text, , , xlWhole)
If fRng Is Nothing Then Set fRng = .Parent.Cells(65000, .Column).End(xlUp).Offset(1)
For i = 2 To 4
UserForm1.Controls("txt" & i) = fRng.Offset(, i).Value
Next
End With
End Sub
Nếu để như vậy thì chạy rất tốt, nhưng khi tôi thay txtMa bằng cboMa thì lại bị lỗi. Do yêu cầu công việc tôi muốn thay textbox bằng combobox. Vậy nhờ các Bác giải thích lỗi trên và chỉnh sửa giúp tôi . Trân trọng biết ơn