Sửa code Combobox có gợi ý

[Bảo Ngọc Dương]

Chào mọi người, em tập viết form nhập liệu và lấy code trên mạng. Em sử dụng code "combobox có gợi ý" và chạy thử thì thấy ok (Hình 1). Tuy nhiên đến lúc em nhập liệu thật thì bị lỗi Run-time error '70' (hình 2). Em không thể fix lỗi vì chưa rành viết form lắm, mong được mọi người hỗ trợ giúp em. Em đã Debug và thấy dòng lỗi bị tô vàng (Hình 3) nhưng không biết cách sửa ạ.
(Hình 1)(Hình 2)
(Hình 3)

 

[ptm0412]

Thiếu 1 cái chấm Cells

 

[Bảo Ngọc Dương]

Thiếu 1 cái chấm Cells

Em xin đoạn code đã sửa được ko ạ

 

[ptm0412]

Em xin đoạn code đã sửa được ko ạ

Khoan, thiếu Sheet1.Range chứ không phải thiếu .Cells. Và lại sinh ra lỗi khác và tôi đang tìm.

 

[ptm0412]

Sửa

.List = Worksheets("Sheet1").Range(Sheet1.Range("B2"), Worksheets("Sheet1").Cells(Rows.Count, "B").End(xlUp)).Value

Thêm sự kiện

Private Sub UserForm_Initialize()
cmb_phanloaitheomucdo_12.Clear
End Sub

Code của bạn rối rắm quá và sự kiện KeyDown:
- khai báo dư biến Arrow chẳng để làm gì.
- Khi enter lại tiếp tục gán list đầy đủ cho combobox làm gì? Chẳng thà khi enter coi như chấp nhận chọn 1 giá trị và nhảy sang ô nhập liệu kế tiếp

Private Sub cmb_phanloaitheomucdo_12_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then Me.txt_phanloaieau_13.SetFocus
End Sub

Tên control đặt gì mà dài ngoằng thấy ớn.

Xem thật kỹ chủ đề Quy trình và Cách tạo user form để viết code cho gọn lại và đúng chuẩn.

 

[Bảo Ngọc Dương]

Sửa

.List = Worksheets("Sheet1").Range(Sheet1.Range("B2"), Worksheets("Sheet1").Cells(Rows.Count, "B").End(xlUp)).Value

Thêm sự kiện

Private Sub UserForm_Initialize()
cmb_phanloaitheomucdo_12.Clear
End Sub

Code của bạn rối rắm quá và sự kiện KeyDown:
- khai báo dư biến Arrow chẳng để làm gì.
- Khi enter lại tiếp tục gán list đầy đủ cho combobox làm gì? Chẳng thà khi enter coi như chấp nhận chọn 1 giá trị và nhảy sang ô nhập liệu kế tiếp

Private Sub cmb_phanloaitheomucdo_12_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then Me.txt_phanloaieau_13.SetFocus
End Sub

Tên control đặt gì mà dài ngoằng thấy ớn.

Xem thật kỹ chủ đề Quy trình và Cách tạo user form để viết code cho gọn lại và đúng chuẩn.

Hic. Em cảm ơn code của anh, em đã sửa nhưng file em vẫn còn bị lỗi ạ

 

[ptm0412]

Theo ý tôi thì làm lại nhiều thứ, thậm chí làm lại từ đầu. Tôi cũng chỉ mới test lỗi ở bài 1 chứ chưa test hết.
Xem file đã sửa theo bài 5