Excel VBAでCheckboxの名前を変数にとって値を調べたい - Visual Basic - 教えて！goo

Shape、OleObjectなど知らなくても使える方法は
CheckBoxのLinkedCellプロパティを使うことです。

CheckBox１　の　LinkedCell　を　セルＦ１
CheckBox２　の　LinkedCell　を　セルＦ２
CheckBox３　の　LinkedCell　を　セルＦ３　にセットしておくと

CheckBoxのＯｎ、ＯｆｆがＦ１～３のセルに表示されますのでそれを使えば簡単ですね
'-------------------------------------------
Sub test222()
　Dim N As Integer
　Dim myValue(3)
　For N = 1 To 3
　　　myValue(N) = Cells(N, "F").Value
　Next N
End Sub
'------------------------------------------

それからObjectの意味が分かって使うなら、次のコード。
（LindedCellプロパティは使用しない）
'-------------------------------------------------
Sub test333()
　Dim N As Integer
　Dim myValue(3)
　For N = 1 To 3
　　myValue(N) = ActiveSheet.OLEObjects("CheckBox" & N).Object.Value
　Next N
End Sub
'--------------------------------------------------

以上。
　

通報する

> Checkboxがチエックされたかどうかは.ValueがTrueかFalseになるの
> ではなかったですか？

多分、デバッグの方法が判ってれば、型がウォッチで判りますので、こういう質問が出ることは無いのですが・・・
CheckBox型であれば、.Valueで値が取得可能ですが・・・

> ActiveSheet.Checkbox1
は、CheckBox/CheckBox
> ActiveSheet.Shapes(i)
は、Object/Shape
要するに、Shape型に、値があるはずもなく、描画しているチェックボックスの型
ActiveSheet.Shapes(i).DrawingObject.Object
まで、CheckBoxの型を追いかけなければ、出てきません
まずは、デバッグのやり方を覚えないと、基礎の基礎が判らないまま、手探りでＶＢＡを組むようになりますよ

> 書いていませんでしたがフォームのCheckboxではなく
> コントロールチエックボックスのCheckboxを使っています。

これは、一緒の話、クラスの親が違うだけ、親によって、格納される場所が違うと言うのは、最初の話

通報する

例えばで

Dim usObj As Object

For Each usObj In ActiveSheet.Shapes
If usObj.Name Like "Check*" Then
Debug.Print usObj.Name, usObj.DrawingObject.Object.Value
End If
Next usObj

そもそも論、
ActiveSheet.Shapes(i)に、Valueは有りません
デバッグの方法、判ります？
それが判ってれば、こんな話質問するまでも無いと思うけど？

あと
> i=0
は、For文で初期化してるから無駄
> i=i+1
For文の中で、iを足し算するのは？なぜ？

通報する