シートの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コントロール無効化について最新情報 1.概要：ActiveXコントロールの無効化方針 Microsoftは、2024年10月リリースのOffice2024（Windowsデスクトップ版）以降、Excel・Word・PowerPoint・VisioにおけるActiveXコントロー…

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

数列内の連続偶数のみ順序を入れ替える
 ランクによりポイントを付ける（同順位はポイントを分割）
記号を繰り返してグラフ作成（10単位で折り返す）
Excel関数の引数を省略した場合について
 日時データから日付ごとの集計（UNIQUE,SUMIFS,GROUPBY）
シートコピー後のアクティブシートは何か
 ByRef引数の型が一致しません。
シートのActiveXチェックボックスの指定方法
列全体を指定する時のRangeとColumnsの違い
 スピルのゴーストの範囲を選択するVBA
列幅不足による「####」表示を検知するVBA

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

1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
8.マクロとは？VBAとは？VBAでできること｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.メッセージボックス(MsgBox関数)｜VBA入門

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

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

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.

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