複数のコレクションオブジェクトを作って参照したい

Question

前提・実現したいこと

クラスモジュールで関連付けたチェックボックスをCollectionオブジェクトに格納したい
OLEオブジェクトのチェックボックスをコレクションオブジェクトに入れて評価したい
の続きです。
OLEオブジェクトのチェックボックスがセルに置かれています。
チェックボックスは横並び２つで連動しています。
チェックボックスの番号は３行目の一番上が、１　その後下に向かって番号が振られています。その後、５列目の一番上からまた下に向かって番号が振られていくという具合です。
その後、２行目のチェックボックスが同じように下方向で右方向に番号が振られています。

チェックボックスをセル指定で評価できないので
評価したいチェックボックスを複数のコレクションオブジェクトに格納しようとしたのですがうまくいきません。
偶数列のチェックボックスを列ごとにまとめてカウント
奇数列のチェックボックスは行ごとにまとめてカウントしたいです。
例えば、Col_c１，２・・というように生成できないでしょうか？
行も列も、変わりうるので一般化できるとよいです。

よろしくお願いいたします。

発生している問題・エラーメッセージ

同じコレクションにチェックボックスがはいってしまいます

For i = 1 To columnCount
 Dim Col_c(i) As New Collection

としてみても、定数が～と怒られてしまいます。

該当のソースコード

Private Sub CommandButton4_Click()
Dim columnCount As Integer
columnCount = Cells(1, Columns.Count).End(xlToLeft).Column \ 2

Dim rowCount As Integer
rowCount = Range("A4").Value

Dim chBCount As Integer 'ﾘﾊの番号
chBCount = rowCount * columnCount


'列チェックボックスをまとめてカウント
Dim i As Integer
For i = 1 To columnCount
 　　Dim Col_c As New Collection '列をまとめるコレクションオブジェクトを作って当該チェックボックスを格納＊列数
 
  　　Dim j As Integer '格納するチェックボックス番号
 　　 For j = chBCount + 1 + (i - 1) * rowCount To chBCount + rowCount + (i - 1) * rowCount
   　　　 With Col_c
 　　      　 .Add OleObjects("CheckBox" & j).Object
   　　 　End With
　　  Next
  
 　　Dim v As Variant
　　 Dim dayCount As Integer
 　　dayCount = 0
　　 For Each v In Col_c
  
　　　  If v.Value = True Then
　　 　 dayCount = dayCount + 1
  　　　End If
　　 Next

　　 If dayCount = 1 Then
　　 　 With Cells(rowCount + 5, i * 2)
  　　   　 .Interior.Color = RGB(255, 0, 0)
　　     　 .Font.Color = RGB(255, 255, 255)
　　    　  .Value = dayCount
 　　 　End With
　　 ElseIf dayCount > 9 Then
 　　 　With Cells(rowCount + 5, i * 2)
  　　 　   .Interior.Color = RGB(0, 255, 255)
  　　 　   .Value = dayCount
　　  　End With
　　 Else
　　  　Cells(rowCount + 5, i * 2).Value = dayCount
 　　End If
 
Next
   

Private Sub CommandButton4_Click()
    Dim columnCount As Integer
    columnCount = Cells(1, Columns.Count).End(xlToLeft).Column \ 2
    
    Dim rowCount As Integer
    rowCount = Range("A4").Value
    
    Dim chBCount As Integer 'ﾘﾊの番号
    chBCount = rowCount * columnCount
    
    
    '列チェックボックスをまとめてカウント
    Dim i As Integer
    For i = 1 To columnCount
        ReDim Col_c(i) As collection  '列をまとめるコレクションオブジェクトを作って当該チェックボックスを格納＊列数
        Set Col_c(i) = New collection
        
        Dim j As Integer '格納するチェックボックス番号
        For j = chBCount + 1 + (i - 1) * rowCount To chBCount + rowCount + (i - 1) * rowCount
            With Col_c(i)
                .Add OLEObjects("CheckBox" & j).Object
            End With
        Next
    
    Dim v As Variant
    Dim dayCount As Integer
    dayCount = 0
    For Each v In Col_c(i)
        If v.Value = True Then
            dayCount = dayCount + 1
        End If
    Next
    
    If dayCount = 1 Then
        With Cells(rowCount + 5, i * 2)
           .Interior.Color = RGB(255, 0, 0)
           .Font.Color = RGB(255, 255, 255)
           .Value = dayCount
        End With
    ElseIf dayCount > 9 Then
        With Cells(rowCount + 5, i * 2)
           .Interior.Color = RGB(0, 255, 255)
           .Value = dayCount
        End With
    Else
        Cells(rowCount + 5, i * 2).Value = dayCount
    End If
    
    Next
    
  
End Sub

Comments

[YT0014]

インデントをきちんと行うようにしましょう。
変数のスコープを理解しましょう。
https://docs.microsoft.com/ja-jp/dotnet/visual-basic/programming-guide/language-features/declared-elements/scope
ブロックスコープの欄をご確認ください

[halmichi]

ありがとうございます。
段落は意図したとおりにできていると思うのですがどこか間違っているでしょうか？
スペース一個では見にくいということかもと思って少し増やしてみました。

リンク先読んでみました。
Collectionオブジェクトはこの後も参照したいのでFORループの中での宣言は望ましくないと思いましたが、それだと連番での作成は難しいでしょうか？というか、Collectionオブジェクトとは複数作れるものでしょうか？

よろしくお願いいたします。

[YT0014]

ご提示いただいたソースは、最初の行以外は関数内なので、１インデント下げるべきですし、ifブロック内にインデントされていない箇所があります。
また、End Subがありません。
望ましくないなら、望ましいやり方を模索してください。
Collectionに関しては、こちらもご確認ください。
https://qiita.com/pregum/items/071f72969d72d90cf826

[halmichi]

うまく動いたコードを追加しました。
ReDim を使わないといけなかったんですね。
コレクションオブジェクトは変数ではないのでやっぱりForループの中で宣言で良かったようでした。

ありがとうございました。

Answer 1

解決しました。

コードを質問の一番下に入れました。