シートのActiveXチェックボックスの指定方法

公開日：2023-09-24　最終更新日：2023-09-24

シートのActiveXチェックボックスの指定方法

ツイッターで出題したVBAに関する問題です。

シートに挿入した、ActiveXのチェックボックスを標準モジュールから指定する場合のVBAの書き方を問う問題です。

出題ツイート

https://twitter.com/yamaoka_ss/status/1705130181965598906

【VBA問題】
シート（オブジェクト名もシート名も：Sheet1）に、チェックボックス（オブジェクト名：CheckBox1）があります。
標準モジールのプロシージャーで、このチェックボックスにチェックを付けるVBAです。
間違った記述はどれでしょうか。
※VBAコードはALT
※選択肢は次で

間違ったVBA記述を選んでください。
①
Sheet1.CheckBox1.Value = True

②
Worksheets("Sheet1").CheckBox1 = True

③
Dim ws As Worksheet: Set ws = Sheet1
ws.CheckBox1.Value = True

④
Dim ws As Worksheet: Set ws = Sheet1
ws.OLEObjects("CheckBox1").Object = True

※※※ 追記 ※※※
チェックボックスは、
ActiveXコントロールです。

解答ツイート

正解は③です。
③はコンパイルエラーとなってしまいます。
その他は正しく動作します。
詳細は以下にて

①

Sheet1.CheckBox1.Value = True

オブジェクトブラウザで「Sheet1」を見てみると「CheckBox1」があるのが確認できるはずです。

「Sheet1」のメンバーに「CheckBox1」があるのですから、
Sheet1.CheckBox1.Value = True
この記述が出来ることは理解できると思います。

②

Worksheets("Sheet1").CheckBox1 = True

これは、Itemプロパティが省略されています。
Worksheets.Item("Sheet1").CheckBox1 = True
ではオブジェクトブラウザで「Worksheets」の「Item」を見てみると、
As Object
となっています。

総称型のObjectは、VBAで記述したメンバー（プロバティ/メソッド）の存在をコンパイルでチェックしません。
これはある意味当然と言えるかもしれません。
具体的なオブジェクトが何になるか分からないので、事前にチェックできないという事です。
実行時にその変数に入っているオブジェクトがそのメンバーを有していれば実行されるし、そのメンバーが無ければエラーになるという仕組みになっています。

③

Dim ws As Worksheet: Set ws = Sheet1
ws.CheckBox1.Value = True

As Worksheet
このように具体的な個別のオブジェクト型で定義された変数の場合、
VBAで記述したメンバー（プロバティ/メソッド）の存在をコンパイルでチェックします。
「Worksheet」というオブジェクトに「CheckBox1」というメンバーは存在しないので、コンパイルでエラーとなります。

④

Dim ws As Worksheet: Set ws = Sheet1
ws.OLEObjects("CheckBox1").Object = True

これはActiveXコントロールは、このようにしてシートに挿入されていると言う事です。
したがって、オブジェクトのメンバーを調べれば良い事になります。

Dim obj
Set obj = ws.OLEObjects("CheckBox1")
Stop 'ここでローカルウインドウを見る

例えばこのようにして、変数objのメンバーを調べてみると分かり易いでしょう。

サイト内の関連記事

第136回.フォームコントロール｜VBA入門

リボンの開発タブにコントロールの挿入があります。フォームコントロールをシートに配置してVBAで扱う場合の解説になります。ワークシートでフォームコントロールを扱う事の是非はありそうですが、使用することで便利かつ見栄えの良いシートになる場合もあります。

第137回.ActiveXコントロール｜VBA入門

リボンの開発タブにコントロールの挿入があります。ActiveXコントロールをシートに配置してVBAで扱う場合の解説になります。ワークシートでActiveXコントロールを扱う事の是非はありそうですが、使用することで便利かつ見栄えの良いシートになる場合もあります。

同じテーマ「ツイッター出題回答」の記事

脱字メーカー（文字列から1文字削除）
リーグ表に対戦番号を振る
 数列内の連続偶数のみ順序を入れ替える
 ランクによりボイントを付ける（同順位はポイントを分割）
記号を繰り返してグラフ作成（10単位で折り返す）
Excel関数の引数を省略した場合について
 シートコピー後のアクティブシートは何か
 ByRef引数の型が一致しません。
シートのActiveXチェックボックスの指定方法
列全体を指定する時のRangeとColumnsの違い
 スピルのゴーストの範囲を選択するVBA

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.繰り返し処理（For Next)｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.変数宣言のDimとデータ型｜VBA入門
6.条件分岐（IF）｜VBA入門
7.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
8.並べ替え（Sort）｜VBA入門
9.マクロとは？VBAとは？VBAでできること｜VBA入門
10.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門

ホーム
エクセル全般
ツイッター出題回答
シートのActiveXチェックボックスの指定方法

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

ツイッター出題回答
シートのActiveXチェックボックスの指定方法