chỉnh combobox xổ ra trên 8 dòng (1 người xem)

[DMQ]

Chào các Anh Chị!
Em thấy mặc định khi Combobox xổ ra thì có 8 dòng, nay em muốn combobox xổ ra trên 8 dòng thì chỉnh sao ạ?

 

[batman1]

Chọn combo -> trong cửa sổ Properties thay đổi giá trị của thuộc tính ListRows

 

[DMQ]

Sao Em chỉnh trong code, không được Thầy ơi?

Private Sub cb_Combobox1_Change()
 On Error Resume Next
  tb_DVT = cb_TPL.Column(1)
  With cb_TPL
    .DropDown
    .BackColor = vbGreen
    .ForeColor = vbWhite
    .ListRows = 15
 End With
End Sub

Mong Thầy chỉ giáo.

 

[batman1]

Private Sub UserForm_Initialize()
    With cb_TPL
        .BackColor = vbGreen
        .ForeColor = vbWhite
        .ListRows = 15
    End With
End Sub

???

 

[DMQ]

Dạ em dung sự kiện Change, để khi cb_TPL có thay đổi thì nền có màu xanh, font chữ màu trắng, và xổ ra 15 dòng.
Mong Thầy giúp em code khi không có thay đổi thì lại bình thường.

 

[be_09]

Dạ em dung sự kiện Change, để khi cb_TPL có thay đổi thì nền có màu xanh, font chữ màu trắng, và xổ ra 15 dòng.
Mong Thầy giúp em code khi không có thay đổi thì lại bình thường.

Nên nghiên cứu viết 1 ứng dụng riêng cho mình thật tốt, khi nào khá thì tự khắc sẽ biết cái vụ hoa, lá hẹ liền.