ExcelVBAでシート上のチェックボックスにチェックが入っているかどうかを判断するコードを入れたいがエラーが出る

Question

いつもお世話になっております。
これはもしかしたら皆さんにとっては「すごーく簡単なこと」かもしれませんが、
色々と試行錯誤してもうまくいかないので聞いて見ました。
よろしくお願いいたします。

困っていること

シート上のチェックボックスにチェックが入っているかどうかを判断したいが、
VBAで動かすとエラーが出る

例えば丸で囲っているチェックボックス（フォームコントロールチェックボックスです）の
チェックボックスの値は「Chk_1」です。
この値を取得するため、コードではこのように書きました。

Private Function chkbox_chk(ByVal wbactive As Workbook)
Dim cnt As Integer

       Debug.Print wbactive.Worksheets("Main").CheckBoxes(Chk_1).Value
　　　　Debug.Print wbactive.Worksheets("Main").CheckBoxes(Chk_2).Value
　　　　Debug.Print wbactive.Worksheets("Main").CheckBoxes(Chk_3).Value
　　　　Debug.Print wbactive.Worksheets("Main").CheckBoxes(Chk_4).Value
　　　　Debug.Print wbactive.Worksheets("Main").CheckBoxes(Chk_5).Value
        
End Function

こうやって、チェックボックスの値がちゃんと取得されているかを
debug.print出力しながら確認したいのです。

でも、ここでエラーが出てしまいます。

それで、書き方がいけないのかなと思い、
例えばCheckboxs(1)に変えたりしてみたのですが、どれもダメでした。

ちなみに、wbActiveは

Set wbactive = ThisWorkbook
wbactive.Worksheets(”Main").Activate

というふうにして取得しています。

なので、wbactiveがちゃんと引き継がれていないのかな？と思って、試しに
チェックボックスの数を調べるコードを入れてみましたが、そちらはちゃんと取れていました。
また、E4セルに「ああああ」と入力し、それを取得するコードを入れてもちゃんと取得できました。
なので、wbActiveが引き継がれていないわけではなさそうです。

また、今回の件がきっかけで色々と調べたのですが、
チェックボックスにはフォームコントロールとActiveXコントロールがあり
それぞれ書き方が違う・・とのことでしたので、それも頭に入れて色々と調べてみたのですが、
どの書き方もエラーが出てしまうので、もしかしたら他のところで原因があるのかな？と
考えています。

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

Comments

[hatena19]

Function のコードは画像ではなくマークダウンのコードブロック内に記述してください。

[退会済みユーザー]

すみません、書き直しました。
よろしくお願いいたします。

Answer 1

Chk_1は名称なので、CheckBoxesコレクションの要素を指定するときは文字列である必要があると思います。

Debug.Print wbactive.Worksheets("Main").CheckBoxes("Chk_1").Value  

Comments

[退会済みユーザー]

すみません、それでやってみたのですが、それでもエラーが起きます。
エラーの内容は上記と同じく、です。

wbactiveがちゃんと引き継がれていないのかな？と思って、試しに
チェックボックスの数を調べるコードを入れてみましたが、そちらはちゃんと取れていました。
また、E4セルに「ああああ」と入力し、それを取得するコードを入れてもちゃんと取得できました。
なので、wbActiveが引き継がれていないわけではなさそうです。

[sazi]

Debug.Print wbactive.Worksheets("Main").CheckBoxes(1).Value
とした場合にも同様のエラーになりますか？
エラーにならないなら、チェックボックスの名前を確認してみてください。

[退会済みユーザー]

はい、それでもエラーになります。
先ほど、1回正常に動きました。（コードは変えていない）
でも２回目やると、また同じエラーが起こりました。
一体何なのでしょう・・・。

Answer 2

全くよく分からないのですが、こういう現象が発見できました。

①１回目→ちゃんと動く
②２回目→エラーが起こる

wbactive.Worksheets("Main").CheckBoxes(Chk_1).Value

③Excelシート上でチェックボックスの名前をコピーして上記コードに貼り付け
④３回目、もう一度動かすとちゃんと動く
⑤４回目、またエラーが起こる
⑥・・・の繰り返しです。

何がおかしいのか分かりませんが、今回は私個人の勉強として作ったものなので
今回はこれにて閉めたいと思います。
また何か分かりましたらお知らせしたいと思います。

Answer 3

Checkboxの綴りあっていますかね？

エラーが出ているものは「Checkboxs」と書かれていますが他は「Checkboxes」と書かれている気がします！

Comments

[退会済みユーザー]

すみません、先ほど確認し、修正させていただきました。
するとまた別のエラーが出てきたので、そのエラー画像も差し替えておきました。
よろしくお願いいたします。