Dùng form sửa dữ liệu - Load bị lỗi khi gán giá trị cho Combobox (1 người xem)

[nncb2008]

Chào các anh/chị.
Tôi dùng form để sửa dữ liệu. Khi load form thì gán giá trị cho Combobox. Vì giá trị có sẵn nên có thể giá trị đó không thuộc RowSource, khi đó thì báo lỗi.
Tôi muốn khi giá trị cần sửa là trống hoặc không thuộc RowSource thì gán cho Combobox giá trị đầu tiên trong RowSource.
Cụ thể trong file đính kèm. Các anh/chị giúp tôi nhé.

 

[viehoai]

Chào các anh/chị.
Tôi dùng form để sửa dữ liệu. Khi load form thì gán giá trị cho Combobox. Vì giá trị có sẵn nên có thể giá trị đó không thuộc RowSource, khi đó thì báo lỗi.
Tôi muốn khi giá trị cần sửa là trống hoặc không thuộc RowSource thì gán cho Combobox giá trị đầu tiên trong RowSource.
Cụ thể trong file đính kèm. Các anh/chị giúp tôi nhé.

Bạn thay vào code sheet nút CommandButton1 như sau và xem phải ý bạn như thế này không nhé
[GPECODE=vb]Private Sub CommandButton1_Click()
On Error Resume Next
With Form1
.ComboBox1.Value = Range("A" & Selection.Row).Value
If Err Or Range("A" & Selection.Row).Value = "" Then .ComboBox1.ListIndex = 0
.Show
End With
End Sub[/GPECODE]

 

[sealand]

Có thể như sau cũng gọn mà chặn lỗi:

Private Sub CommandButton1_Click()
With Form1
.ComboBox1.Value = IIf(WorksheetFunction.CountIf(Range("List"), _
ActiveCell.End(1)) > 0, ActiveCell.End(1), "")
   .Show
End With
End Sub