実行時エラー '1004'
Worksheet クラスの CheckBoxes プロパティを取得できません。
Debug.Print Sheets("sheet1").CheckBoxes("チェック1").Value
アクティブブックのワークシートsheet1
上に、チェック1
という名前のチェックボックス(フォームコントロール)が存在しないからでしょう。
もしフォームコントロールのチェックボックスではなく、ActiveX コントロールのチェックボックスをワークシート上に配置されており、そのチェックボックスの値( Value プロパティ)を取得しようとされているのであれば、Excel.Worksheet オブジェクトの CheckBoxes メソッドではなく、OLEObjects メソッドを呼び出して目当てのチェックボックスを参照するようにして下さい。
vba
1Private Sub Sample1()
2
3 Dim objCheckBox As MSForms.CheckBox
4
5 Set objCheckBox = Worksheets("Sheet1").OLEObjects("CheckBox1").Object
6
7 Debug.Print objCheckBox.Value
8
9 Set objCheckBox = Nothing
10
11End Sub
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2024/07/24 03:51