NguyenthiH
Thành viên mới đăng ký
- Tham gia
- 11/12/16
- Bài viết
- 946
- Được thích
- 172
- Giới tính
- Nữ
Chào các anh chị!
Em có một form nhập liệu, trong form có hai Combobox (CbCus và CbLab). Nhấn tab thì CbCus xổ ra (Dropdown) chọn xong khách hang ở CbCus nhân Tab thì CbLab lại không Xổ ra (Dropdown), Code trong form
Mong các anh chị xem giúp.
Em có một form nhập liệu, trong form có hai Combobox (CbCus và CbLab). Nhấn tab thì CbCus xổ ra (Dropdown) chọn xong khách hang ở CbCus nhân Tab thì CbLab lại không Xổ ra (Dropdown), Code trong form
Mã:
Private Sub UserForm_Initialize()
With CbCus
.ColumnCount = 1
.ColumnWidths = "180"
.List = Sheet1.Range(Sheet1.[A65536].End(xlUp), Sheet1.[A3]).Value
End With
With CbLab
.ColumnCount = 1
.ColumnWidths = "180"
.List = Sheet1.Range(Sheet1.[B65536].End(xlUp), Sheet1.[B3]).Value
End With
End Sub
Private Sub CbCus_Enter()
CbCus.DropDown
End Sub
Private Sub CbLab_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then CbLab.DropDown
End Sub