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 質問
【68677】Re:CreateObjectについて kanabun 11/4/5(火) 7:40 発言
【68678】Re:CreateObjectについて UO3 11/4/5(火) 11:56 発言
【68679】Re:CreateObjectについて kanabun 11/4/5(火) 19:29 発言
【68680】Re:CreateObjectについて Masa 11/4/6(水) 8:30 お礼

13569 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free