シートの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）があります。
標準モジールのプロシージャーで、このチェックボックスにチェックを付けるVBAです。
間違った記述はどれでしょうか。
※VBAコードはALT
※選択肢は次で
①
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
この記述が出来ることは理解できると思います。
Sheet1.CheckBox1.Value = True
この記述が出来ることは理解できると思います。
②
Worksheets("Sheet1").CheckBox1 = True
これは、Itemプロパティが省略されています。
Worksheets.Item("Sheet1").CheckBox1 = True
ではオブジェクトブラウザで「Worksheets」の「Item」を見てみると、
As Object
となっています。
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」というメンバーは存在しないので、コンパイルでエラーとなります。
ws.CheckBox1.Value = True
このように具体的な個別のオブジェクト型で定義された変数の場合、
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のメンバーを調べてみると分かり易いでしょう。
ws.OLEObjects("CheckBox1").Object = True
したがって、オブジェクトのメンバーを調べれば良い事になります。
Set obj = ws.OLEObjects("CheckBox1")
Stop 'ここでローカルウインドウを見る
サイト内の関連記事
第136回.フォームコントロール｜VBA入門
リボンの開発タブにコントロールの挿入があります。フォームコントロールをシートに配置してVBAで扱う場合の解説になります。ワークシートでフォームコントロールを扱う事の是非はありそうですが、使用することで便利かつ見栄えの良いシートになる場合もあります。
第137回.ActiveXコントロール｜VBA入門リボンの開発タブにコントロールの挿入があります。ActiveXコントロールをシートに配置してVBAで扱う場合の解説になります。ワークシートでActiveXコントロールを扱う事の是非はありそうですが、使用することで便利かつ見栄えの良いシートになる場合もあります。
同じテーマ「ツイッター出題回答 」の記事
ツイッターで出したエクセルの問題です。誤字脱字は気を付けてもなかなか… 今回はエクセル関数で意図的に脱字を作ろうという問題です。関数は組み合わせかた次第です。出題ツイート 出題ツイートへのリンク 【エクセル問題】※関数は組み合わせだ編 脱字メーカー A列の文字列から1字消した全パターンを出力して下ください。
リーグ表に対戦番号を振るツイッターで出したエクセルの問題です。総当たりリーグ戦の表に試合番号を振る問題です。出題の主旨としては、これをスピル一発でやってみましょうと言うものです。出題ツイート ツイートが不調?で2回同じツイートをしました。
数列内の連続偶数のみ順序を入れ替えるツイッターで出題したエクセル数式問題です。数列があり、その中の偶数の連続部分だけを順番を入れ替えるという問題です。元は他のアカウントで出された問題なのですが、改めて私から出だししたものになります。出題ツイート 一応数式が作れたので出題します。
ランクによりボイントを付ける（同順位はポイントを分割）ツイッターで出題したエクセル数式問題です。点数一覧の順位に応じたポイントを付けます。同順位がある場合は、同順位でポイントを分割します。出題ツイート 【エクセル問題】 A列の点数の順位に応じたポイントをB列に付けます。
記号を繰り返してグラフ作成（10単位で折り返す）ツイッターで出題したエクセル数式問題です。記号を繰り返してグラフにする数式の紹介は良く見かけます。それでは、記号を10個単位で折り返してグラフ化する数式を作成してください。出題ツイート 【エクセル問題】 記号を繰り返してグラフにするのは良くありますよね。
Excel関数の引数を省略した場合についてツイッターで出題したエクセル数式問題です。引数を省略した時の挙動についての問題です。問題の回答選択肢が間違っていたりして申し訳ありません。引数の省略については説明することも少ないので、記録として残しておくことにしました。
シートコピー後のアクティブシートは何かツイッターで出題したVBAに関する選択問題です。シートコピーした後に、変数にActiveSheetを入れます。その変数に入っるシートは何かと言う問題です。つまり、シートコピー直後のActiveSheetは何か? と言う問題です。
ByRef引数の型が一致しません。ツイッターで出題したVBAに関する問題です。ちょっと変わったエラーメッセージに関する問題です。ただし今回は、出題というより勝手に連続ツイートで出題と解説をしたツイートの保存記録になります。出題ツイート https://twitter.com/yamaoka_ss/status/1704787902432264666…
シートのActiveXチェックボックスの指定方法列全体を指定する時のRangeとColumnsの違い
ツイッターで出題したVBAに関する問題です。列全体を指定する書き方に、Range Columns この2通りがあります。そこで、この2通りの書き方の違いは何かを問う選択問題です。出題ツイート https://twitter.com/yamaoka_ss/status/1705178543683174475 【VBA…
スピルのゴーストの範囲を選択するVBAツイッターで出題したVBAに関する問題です。スピルは.2019年に実装された新機能です。数式を入力したセルから結果があふれて隣接したセルにも出力されるのがスピルです。スピルについての詳細は以下を参照してください。
新着記事NEW ・・・新着記事一覧を見る
TRIMRANGE関数（セル範囲をトリム：端の空白セルを除外）｜エクセル入門(2024-08-30)
正規表現関数（REGEXTEST,REGEXREPLACE,REGEXEXTRACT）｜エクセル入門(2024-07-02)
エクセルが起動しない、Excelが立ち上がらない｜エクセル雑感(2024-04-11)
ブール型（Boolean）のis変数・フラグについて｜VBA技術解説(2024-04-05)
テキストの内容によって図形を削除する｜VBA技術解説(2024-04-02)
ExcelマクロVBA入門目次｜エクセルの神髄(2024-03-20)
VBA10大躓きポイント（初心者が躓きやすいポイント）｜VBA技術解説(2024-03-05)
テンキーのスクリーンキーボード作成｜ユーザーフォーム入門(2024-02-26)
無効な前方参照か、コンパイルされていない種類への参照です。｜エクセル雑感(2024-02-17)
初級脱出10問パック｜VBA練習問題(2024-01-24)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.繰り返し処理（For Next)｜VBA入門
5.RangeとCellsの使い方｜VBA入門
6.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
7.セルのクリア（Clear,ClearContents）｜VBA入門
8.メッセージボックス(MsgBox関数)｜VBA入門
9.条件分岐（Select Case）｜VBA入門
10.マクロとは？VBAとは？VBAでできること｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。