Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13569 / 76738

←次へ　｜　前へ→


	【68672】CreateObjectについて

Masa - 11/4/4(月) 11:05 -


	引用なし

	パスワード

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

0 hits

▼

【68672】CreateObjectについて Masa 11/4/4(月) 11:05

≪