|
▼たかし さん:
>Private Sub ComboBox1_click()
> Dim CT2 As Range
Dim myList as Variant
> Worksheets("aaa").AutoFilterMode = False
> LtW = ComboBox1.List(ComboBox1.ListIndex)
> Worksheets("aaa").Range("B1").AutoFilter Field:=2, Criteria1:=LtW
> E = Worksheets("aaa").Range("C65536").End(xlUp).Row
> Set CT2 = Worksheets("aaa").Range("C2:C" & E).SpecialCells_
> (xlCellTypeVisible)
myList = CT2.Value
If IsArray(myList) = False Then
myList = Array(myList)
End If
' ComboBox2.List = CT2.Value
ComboBox2.List = myList
>End Sub
Listに、配列を代入する必要があるようです。
RangeのValueは、セルが一つの場合は値のみを返しますので、
If 以下で強制的に、配列にしてみました。
|
|