Excel VB についての質問です。

質問

Excel VB についての質問です。
チェックボックスのチェックデータを取得して処理をしたいです。
チェックボックスが複数ある為、FOR　NEXTで　チェックボックスの
名前を作ってIF文で処理しようとしてますが。うまくいきません。

Dim checkBoxName As string

For i = 1 To 31

chechkBoxName = "CheckBox1_" & i　'文字列的にはチェックボックス名としてある
celleSe = "A" & i

If chechkBoxName.Value = True Then

Worksheets("Sheet2").Range(celleSe).Value = "test"

End If
Next

回答No.2

temtecomai2

ワークシートに乗せているならその旨を書かないとわからんよ。

ここが参考になると思う。
http://www.happy2-island.com/excelsmile/smile03/capter00716.shtml

回答No.1

hoiho1111

Controls("CheckBox" & i).Value

と表記すればいいでしょう

補足

すみません。やはりうまくいきません。。。。

Dim strcheckBox As String

For i = 0 To 100

strcheckBox = "CheckBox1_" & i 　
celleSe = "A" & i

If Worksheets("test").Controls(strcheckBox).Value = True Then
Worksheets("test").Range(celleSe).Value = "真"
End If
Next