|
変数に代入した際に以下のように、Msgboxなどで確認するとエラーを見つけ易いですよ。
>mysheet = ActiveWorkbook.ActiveSheet.Name
Msgbox mysheet
>myrange = Range("e2", ActiveSheet.Range("E" & Rows.Count).End(xlUp))
Msgbox myrange
あと変数の型は指定しましょう。
RowSource は文字列で設定するので、String です。
ちなみに範囲を変数に格納するには
Dim myRange As Range
Set myRange = Range("A1:A10")
myRange.Value = "TEST"
のように使います。
修正すると↓こんな感じになります。
Dim mySheet As String
mySheet = ActiveWorkbook.ActiveSheet.Name
ComboBox1.RowSource = _
mySheet & "!E2:E" & ActiveSheet.Range("E65536").End(xlUp).Row
End Sub
|
|