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

ExcelマクロVBAとエクセル関数についての私的雑感
公開日:2023-09-24 最終更新日:2023-09-24

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


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


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

VBA マクロ ActiveX チェックボックス

VBA マクロ ActiveX チェックボックス


出題ツイート

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


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

VBA マクロ ActiveX チェックボックス


間違った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

VBA マクロ ActiveX チェックボックス


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


解答ツイート

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

Sheet1.CheckBox1.Value = True

オブジェクトブラウザで「Sheet1」を見てみると「CheckBox1」があるのが確認できるはずです。
VBA マクロ ActiveX チェックボックス

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


Worksheets("Sheet1").CheckBox1 = True

これは、Itemプロパティが省略されています。
Worksheets.Item("Sheet1").CheckBox1 = True
ではオブジェクトブラウザで「Worksheets」の「Item」を見てみると、
As Object
となっています。
VBA マクロ ActiveX チェックボックス
総称型のObjectは、VBAで記述したメンバー(プロバティ/メソッド)の存在をコンパイルでチェックしません。
これはある意味当然と言えるかもしれません。
具体的なオブジェクトが何になるか分からないので、事前にチェックできないという事です。
実行時にその変数に入っているオブジェクトがそのメンバーを有していれば実行されるし、そのメンバーが無ければエラーになるという仕組みになっています。


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

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


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

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

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

例えばこのようにして、変数objのメンバーを調べてみると分かり易いでしょう。
VBA マクロ ActiveX チェックボックス


サイト内の関連記事

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




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

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


新着記事NEW ・・・新着記事一覧を見る

AI時代におけるRPAとVBAの位置づけ - 補完技術としての役割と未来 -|生成AI活用研究(2025-05-12)
スマートExcel|AI×Excel:AIと進化するExcelの新常識|生成AI活用研究(2025-05-11)
VBA開発の現場で生成AIはどう使う? そのメリットと潜むリスク|生成AI活用研究(2025-05-11)
CursorでVBAを直接?編集・実行できる環境構築について|生成AI活用研究(2025-05-10)
Geminiと100本ノック 17本目:重複削除(ユニーク化)|生成AI活用研究(5月10日)
Geminiと100本ノック 16本目:無駄な改行を削除|生成AI活用研究(5月6日)
AIがあればVBAはできる:セルに絵文字を入れる|生成AI活用研究(2025-05-07)
Geminiと100本ノック 15本目:シートの並べ替え|生成AI活用研究(5月6日)
Geminiと100本ノック 14本目:社外秘シート削除|生成AI活用研究(5月4日)
Geminiと100本ノック 13本目:文字列の部分フォント|生成AI活用研究(5月4日)


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

1.最終行の取得(End,Rows.Count)|VBA入門
2.繰り返し処理(For Next)|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
5.ひらがな⇔カタカナの変換|エクセル基本操作
6.RangeとCellsの使い方|VBA入門
7.メッセージボックス(MsgBox関数)|VBA入門
8.セルのクリア(Clear,ClearContents)|VBA入門
9.FILTER関数(範囲をフィルター処理)|エクセル入門
10.条件分岐(Select Case)|VBA入門




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


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



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