• ベストアンサー

VBAのトグルボタン

初心者なもので、「なにをこんな」とお思いかもしれませんが、教えてください。 ユーザーフォーム内にトグルボタンを設置しています。当たり前なのですが、一度トグルボタンを押し再度ユーザーフォームを呼び出すとトグルボタンが押された状態のまま表示されます。 理想はトグルボタンを押した状態でユーザーフォームを閉じて、またユーザーフォームを呼び出しても押されていない状態で表示することです。 ネット等でも調べましたが、これというものがなかなかなかったので質問しました。よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • shippo
  • ベストアンサー率38% (1216/3175)
回答No.1

ユーザーフォームを呼び出す時にトグルボタンのプロパティ内「Value」を「False」にすればいいのでは? もちろん、トグルボタンに機能を持たせていると思いますので、その状態を変数などに保存しておかないと意味がないような気はしますが、、、ソフトによってはその場だけ使用することもあるので、使用状況に合わせればいいですけどね。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • Excel VBA トグルボタンのコントロール

    お世話になります。 現在、ユーザーフォームにて管理アプリもどきを作成しているのですが、 以下の様な動作を行うことが可能かどうか、 また可能であればどのような方法があるのかをご教授ください。 ////////////////////////////////////////////////////////// フォーム上に、トグルボタンを複数個配置します。 例として、下図をトグルボタンを5つ配置したものと仮定します。 Valueプロパティは全てFalseを初期値とします。  □□□□□ 左から2つ目のトグルボタン上でマウスクリックし、 そのままクリックを押し込んだままの状態にします。 この時点で、2つ目のボタンのValueプロパティをTrueに変更します。  □■□□□    ↑クリック(押し込んだまま) クリックを押し込んだまま、マウスを右に移動させます。 左から3つ目、4つ目のボタン上にカーソルがきた時点で 3つ目、4つ目のValueプロパティをTrueに変更します。  □■■■□       ↑クリック(押し込んだまま) 左から4つ目のトグルボタン上でクリックを離します。 クリックされていない状態でマウスカーソルが上に乗っても Valueの変更は行われません。 ////////////////////////////////////////////////////////// MouseMoveを試してみましたが、ドラッグ中は処理が発生しないようなので どうしたものか困ってしまいました。 ご助力、よろしくお願い致します。

  • VBA トグルボタンで楕円表示 非表示方法

    お世話になります VBAユーザーフォーム内でトグルボタンを生成しクリック時に セル指定及び座標表示、非表示をさせたいのですがわかる方よろしくお願いします。 又、同じフォーム内で複数使用します

  • Excel VBAからトグルボタンを押下状態にしたい

    タイトルの通りなのですが、 シートにトグルボタンを設置し、それを押すのではなく VBAから押下状態にするにはどうしたら良いのでしょうか。 具体的にどう使いたいかと言いますと、 「このシートは保護されているよ」という状態を 簡単に目視できるようにしたいために、 押すとシート保護、もう一度押すと解除というトグルボタンを つけたものの、 ツールバーからシート保護をしたら、「トグルボタンは押されてないけど シートは保護はされているという気持ち悪い状態になるのを 何とかできないかな・・・と。 ご存知の方いらしたらお願いいたします。

  • Access トグルボタンが凹みません

    Accessでトグルボタンの操作方法について教えてください。 オプショングループの中に4つのトグルボタンを置いて、 オプションボタンのように使用したいと思っています。 (押下したボタンが凹み、他の3つのボタンは凸状態にする) 画面表示時、オプション値が1のボタンが凹んだ状態で表示されて いるのですが、他のボタンを押しても押下状態になりません。 (コマンドボタンのように、マウスをはなすと戻ってしまいます) 押下時に凹状態にするには、設定が必要なのでしょうか? 原因がわからなくて困っています。

  • トグルボタンの帳票フォーム連動って・・・

    access2007で・・・ サブフォーム(帳票フォーム)に表示させているテーブルにトグルボタンを連動させたいのですが・・・ イメージ的には以下になります。 例えば (Table_A) カラム1    | カラム2 | カラム3 | カラム4 |カラム5 トグルボタン | 1998年 |  田中 | 35歳 | 東京 トグルボタン | 1999年 |  佐藤 | 56歳 | 神奈川 トグルボタン | 2000年 |  吉田 | 21歳 | 埼玉 トグルボタン | 2001年 |  伊藤 | 25歳 | 千葉 トグルボタン | 2002年 |  高橋 | 32歳 | 東京 ・・・みたいな感じで、作ってはみたのですが、トグルボタンを押すと、全部が押されてしまいます・・・ 無理ですかね~?

  • VB.net でトグルボタンを実現したい

    VB.net でトグルボタンを実現したい VB.net(2002) でトグルボタン(ボタンを押すと凹凸になる。もう1度押すと元に戻る) を作成したいと思ってます。 どのような方法で実現可能なのでしょうか? (普通にボタンのプロパティとかでは無いような気がしますが)

  • トグルスイッチをVBAでコントロール

    マイクロソフトアクセス2000で作成しています。 メインフォームとサブフォームを使っています。 メインフォームにあるトグルスイッチを押した時に、サブフォームの最新レコードに移動したいと 考えています。 ボタンを押したときに、VBAの命令は動くのですがトグルスイッチが押した状態になりません。 VBAで押した状態にしようとしても命令言語がわかりません。 ご教授をお願い致します。 Me.トグルスイッチ1=true <- ここが動きません。 DoCmd.GoToControl "サブフォーム名" DoCmd.GoToRecord , , acNewRec

  • Excel VBAでボタンを押しても最新にならない。

    ExcelのB1に年、B2に月が入っていたとします。 その状態でボタンを押すと、上記の値が反映されて、カレンダーになるようなユーザーフォームが表示されるようになっているんですが、 ボタンを1度押しただけでは最新状態が表示されません。 例えば、月を変えたときなど。 1度フォームを表示させて、フォームを閉じ、もう一度開くときちんと表示されます。 1度できちんと表示させるにはどうしたらいいのでしょうか?

  • ACCESS 帳票フォームとデータシートをトグルボタンで切り替え

    フォーム上でサブフォームの帳票フォームとデータシートをトグルボタンかコマンドボタンで切り替えることはできないでしょうか? 現在、抽出したデータをサブフォーム(帳票フォーム)に表示させており、そのデータにある金額の合計を表示させています。 帳票フォームは見やすいのですが、データシートですと抽出したデータの一部をコピーしEXCELで使用したりできます。見やすさを諦めてデータシートに変更すると抽出したデータの合計が計算できません。 できれば、帳票フォームとデータシートどちらも使用したいのですが、いちいちデザインからサブフォームのプロパティで規定のビューから変更するのが面倒です。 上記にありますようにトグルボタンかコマンドボタンで切り替えることができれば便利なのですが・・・。 良い方法がありましたらお知恵を貸して下さい

  • Access VBA:サブフォームをボタンで入れ替えるには?

    Access VBA:サブフォームをボタンで入れ替えるには? [環境]WinXP, Access2003 [ファイル内の構造] メインフォーム, 日本語の国フォーム, 英語の人名フォーム, 日本語国テーブル, 英語人名テーブル [できたこと] ・メインフォームに日本語の国フォームをサブフォームで表示させること ・日本語の国フォームに置いたボタンで英語の人名フォームに切り替えること(単体で動作確認)  (フォームのオープン&クローズ程度) [やりたいこと] 各サブフォーム(日本語に国フォームと英語の人名フォーム)内にあるボタンで、フォームを入れ替えたい [やりたいことの条件] ・トグルボタンではなくコマンドボタンを使用したい ・各サブフォームはまったくソースと表示が違うので、ソースの入れ替えはしない といった内容です。 トグルボタンでの入れ替えやソースオブジェクトの入れ替えを参考にしましたが ちょっと違う気がしました。 ご存知の方がおいででしたら、ご教示お願いいたします。

専門家に質問してみよう