|
sibira さん。こんにちは
>Private Sub UserForm_Activate()
>
> Dim mysheet
> Dim myrange
>
> mysheet = ActiveWorkbook.ActiveSheet.Name
> myrange = Range("e2", ActiveSheet.Range("E" & Rows.Count).End(xlUp))
> 'データ範囲
>
> ComboBox1.RowSource = "mysheet!myrange"
>
>End Sub
こんな感じかな?
Private Sub UserForm_Initialize()
Dim myrange As Range
Set myrange = Range(Cells(2, 5), Cells(Range("e65536").End(xlUp).Row, 5))
'データ範囲
ComboBox1.RowSource = myrange.Address
Set myrange = Nothing
End Sub
アクティブになってるシートを参照するなら、特にシートを指定しなくてもOKです。
|
|