Gán thuộc tính Rowsource của combobox theo sự kiện sheet active? (1 người xem)

[mymapmap]

Tôi có Combobox trên form. tôi muốn khi load form đấy trên sheet2 thì rowsource của combobox nhận range sheet1.("A15") còn khi load form đấy trên sheet3 thì rowsource nhận range sheet1.("A1:B3")
Thì tôi viết code đó như thế nào,XIn cảm ơn. Chúc thành viên GPE có ngày nghỉ vui ve hạnh phúc và giúp mình

 

[ndu96081631]

Tôi có Combobox trên form. tôi muốn khi load form đấy trên sheet2 thì rowsource của combobox nhận range sheet1.("A15") còn khi load form đấy trên sheet3 thì rowsource nhận range sheet1.("A1:B3")
Thì tôi viết code đó như thế nào,XIn cảm ơn. Chúc thành viên GPE có ngày nghỉ vui ve hạnh phúc và giúp mình

Thì IF hoặc Select Case phát là xong chứ gì nào

Private Sub UserForm_Initialize()
  Dim Arr
  On Error Resume Next
  Select Case ActiveSheet.Name
    Case "Sheet2": Arr = Sheet1.Range("A1:D5").Value
    Case "Sheet3": Arr = Sheet1.Range("A1:B3").Value
  End Select
  With Me.ComboBox1
    .List() = Arr
    .ColumnCount = UBound(Arr, 2)
  End With
End Sub