|
こんいちは。
これに付け加えるなら・・・、
>1列の値を以下によって
Dim cv(1 To 2) As Variant
Dim r As Range
Dim myDic1 As Object
Set myDic1 = CreateObject("Scripting.Dictionary")
For Each r In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
cv(1) = r.Value
cv(2) = r.Offset(0, 1).Value
myDic1(r.Value) = cv()
Next
With Application
UserForm1.ComboBox1.ColumnCount = 2
UserForm1.ComboBox1.List = .Transpose(.Transpose(myDic1.items))
End With
Erase cv()
これで試してみてください。
>コンボボックスに表示させました
>以下のような2列を
>
>A列 B列
>100 la
>200 la
>300 ha
>400 ha
>300 la
>
>コンボボックス内に取得するにはどうするのですか?
>教えてください
|
|