how to add rowsourse to combobox??

[Tường_Vi]

Nếu em đặt rowsourse thông qua một name trong properties thì ok, nhưng em không biết cách dùng code
em thử như sau thì thấy không được

Private Sub method_list_Click()
Dim methodlist As Range
methodlist = Sheets("P.I.C").Range("A3:A" & .[a65000].End(xlUp).Row)
Me.method_list.RowSource = methodlist
End Sub

Các anh chỉ giúp muội nhé

 

[sealand]

Bạn sửa lại 1 chút

Private Sub nap()
Dim methodlist
methodlist = Sheets("P.I.C").Range("A3:A" & .[a65000].End(xlUp).Row)
Me.method_list.List= methodlist
End Sub

Không đặt vào sự kiện của bạn được vì khi hiển thị thì List đã nạp rồi, nên đặt vào sự kiện mở sheet hay form hay 1 sự kiện nào đó cần thay đổi list

 

[ndu96081631]

Nếu em đặt rowsourse thông qua một name trong properties thì ok, nhưng em không biết cách dùng code
em thử như sau thì thấy không được

Private Sub method_list_Click()
Dim methodlist As Range
methodlist = Sheets("P.I.C").Range("A3:A" & .[a65000].End(xlUp).Row)
Me.method_list.RowSource = methodlist
End Sub

Các anh chỉ giúp muội nhé

Muốn dùng RowSource thì phải viết khác, vì RowSource phải thuộc dạng String

Private Sub method_list_DropButtonClick()
  With Range(Sheets("P.I.C").[A3], Sheets("P.I.C").[A65000].End(xlUp))
    Me.method_list.RowSource = "P.I.C!" & .Address
  End With
End Sub