| |
ComboBoxの処理で検索をしましたら[68465]に以下の
記述が見つかりました
まさしく、今自分が処理したいことでしたので
参考にして処理をさせていただきました
しかし、ここでCreateObjectが理解できないのです
Helpでも調べたのですが よくわからないのです
どなたか、やさしく解説していただけないでしょうか
よろしくお願いいたします
Sub ComboBox_Setting()
Dim Ws As Worksheet
Dim i As Long, j As Long
Dim LastRow As Long
Dim v As Variant, ss As String
Dim dic(2 To 9) As Object
For i = 2 To 9
Set dic(i) =CreateObject("Scripting.Dictionary")
Next
Set Ws = ActiveWorkbook.Worksheets("Sheet1")
'LastRow=Noが書かれている最下行
LastRow = Ws.Range("B7").CurrentRegion.Rows.Count
For i = 7 To LastRow
v = Ws.Cells(i, 2).Value
If Not IsEmpty(v) Then
If v <> "No" Then
For j = 3 To 10
ss = Ws.Cells(i, j).Value
If Len(ss) > 0 Then
dic(j - 1)(ss) = Empty
End If
Next j
End If
End If
Next i
For i = 2 To 9
UserForm1.Controls("ComboBox" & i).List = dic(i).Keys()
Next
Erase dic
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
