チェックボックスの値を取得したい。

質問

アンケートシートにコントロールツールボックスからチェックボックスを６０個作りました。
その値を取得するため、次の構文を作りましたが、
実行時エラー１００４
「WorksheetクラスのCheckBoxesプロパティを取得できません。」というMsgboxが出ます。
何方か良い知恵をお貸し下さい。
<エラーのでる構文>
Sub AAA()
Dim A
Sheets(1).Select
For A = 1 To 60
Cells(A, 5) = Sheets(1).CheckBoxes(A).Value
Next A
End Sub

Excelは2003です。

回答No.1

1050 円（@1050YEN） · ベストアンサー

>Cells(A, 5) = Sheets(1).CheckBoxes(A).Value
Excelはコントロール配列ではありませんので、名前を文字列でヒットさせて取得しましょう
Cells(A, 5) = Sheets(1).OLEObjects("CheckBox" & A).Object.Value

http://okwave.jp/kotaeru.php3?q=1860548

参考URL：

http://okwave.jp/kotaeru.php3?q=1860548

お礼

ありがとうございました。
早速試しました。
助かりました。