debug print エラーコード1004

Question

実現したいこと

エラーを解消して実行できるようにしたい

発生している問題・分からないこと

エラーメッセージ

実行時エラー1004
workseetクラスのcheckboxesプロパティを取得できません。

該当のソースコード

特になし

試したこと・調べたこと

• teratailやGoogle等で検索した
• ソースコードを自分なりに変更した
• 知人に聞いた
• その他

上記の詳細・結果

理由がわからなかったです

補足

特になし

Answer 1

実行時エラー '1004'
Worksheet クラスの CheckBoxes プロパティを取得できません。

Debug.Print Sheets("sheet1").CheckBoxes("チェック1").Value

アクティブブックのワークシートsheet1上に、チェック1という名前のチェックボックス（フォームコントロール）が存在しないからでしょう。

• ワークシートsheet1上には 1 つ以上のチェックボックス（フォームコントロール）が配置されているが、いずれのチェックボックスもチェック1という名前ではない。

• ワークシートsheet1上にはチェックボックス（フォームコントロール）が 1 つも配置されていない。

もしフォームコントロールのチェックボックスではなく、ActiveX コントロールのチェックボックスをワークシート上に配置されており、そのチェックボックスの値（ Value プロパティ）を取得しようとされているのであれば、Excel.Worksheet オブジェクトの CheckBoxes メソッドではなく、OLEObjects メソッドを呼び出して目当てのチェックボックスを参照するようにして下さい。

Private Sub Sample1()

    Dim objCheckBox As MSForms.CheckBox
    
    Set objCheckBox = Worksheets("Sheet1").OLEObjects("CheckBox1").Object
    
    Debug.Print objCheckBox.Value
    
    Set objCheckBox = Nothing

End Sub

Comments

[JUNYA]

回答ありがとうございます。
試したところ問題が解決しました！
ベストアンサーに選ばせていただきました。