No.1ベストアンサー
- 回答日時:
VBAでそれぞれのsheetのイベントで
Private Sub Worksheet_Deactivate()
'そのシートのフォームを閉じる
End Sub
Private Sub Worksheet_Activate()
'そのシートのフォームを開く
End Sub
の様にすれば、簡単でわかりやすいかと思います。
sheetがアクティブになったかどうかは
workbookのイベントでもわかりますが、
その時は、シートの区別をつけないといけません。
場合によっては、その方がコードが少なくて済むかもしれません
早速のご回答ありがとうございます。基本を知らないまま、今まで作業してきたので、sheetイベントを設定するということがようやくわかり、とても嬉しいです。
ところで、今まで標準モジュールにすべてを記述していたのですが、単独のシートで納まるものであれば、sheetイベントに移し変えた方が良いのでしょうか?
No.6
- 回答日時:
#2です。
私は
>ただFormを閉じないと、シートが選択できないので
不完全かも知れません。
と書きました。
この問題が#3さんの
>各UserFormのプロパティーのShowModalをFalseに設定してください
を解決し様とするものです。実際やって見れば判ります。
>「UserFormのプロパティーのShowModalをFalseに」というのは、どのような事のためにでしょうか?Hideとの関連ですか?と#3でお礼に書いておられたので。
●#2のお礼の
>標準モジュールに記述するのとWorksheetイベントに記述するのとは、どのように分けて考えるものなのでしょうか?
(1)標準モジュール
実行は、実行する人の実行起動により実行される。
ただ(2)の中にも組み入れられる。
(2)イベントプロセジュアー
イベントという、「クリックなどマウスの動作」や「マウスの動作によって引き起こされる(例 フォームが読みこまれるなど)事象」や時間経過などをキッカケとして動作する。キーボード入力関連のキッカケもある。実はOSに通知(ウインドウズメッセージ)が行っているすべてのコンピュタ関連の事象うち、代表的な一部をVBAプログラマに開放・提供している。
No.5
- 回答日時:
>今まで標準モジュールにすべてを記述していたのですが…
それぞれのイベント毎にコードを記述するとコードが分散し見通しが悪くなるというデメリットがありますが
そのイベントで処理する部分はそのイベント部分で書いた方がいいと思います。
全体で共通的に使用できる部分は、
手続きや関数として、標準モジュールに書いておくのがいいと思います。
もちろん、標準モジュールに全部書いてもかまいません。
その分割度合いは、「好み」だと思います。
ただ、
シートのグローバル部分に書くのは、いいですが、
シートのイベント部分に何もかも(必要のない部分まで?<変な言い方ですね)書くのはいただけないと思います。イベントの起こる頻度にもよると思いますが。
No.3
- 回答日時:
シート1のイベントにたとえば
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Private Sub Worksheet_Deactivate()
UserForm1.Hide
End Sub
とするとShhet1がアクティブになったとき
UserForm1が開き
Shhet1が非アクティブになったとき
UserForm1が閉じる
各シートイベントに記入すればよいと思います
ただ各UserFormのプロパティーのShowModalをFalseに設定してください
ありがとうございます。
「UserFormのプロパティーのShowModalをFalseに」というのは、どのような事のためにでしょうか?Hideとの関連ですか?それともほかの・・・
No.2
- 回答日時:
ThisWorkbookのイベントに
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case Sh.Name
Case "Sheet1"
MsgBox "Sheet1"
UserForm1.Show
Case "aaa"
MsgBox "aaa"
UserForm2.Show
Case "Sheet3"
MsgBox "Sheet3"
UserForm3.Show
End Select
End Sub
を作ってみました。
ご参考に。
ただFormを閉じないと、シートが選択できないので
不完全かも知れません。
ありがとうございます。なるほど、こういう方法もあるのですね。今後に活用できそうです。ところで、標準モジュールに記述するのとWorksheetイベントに記述するのとは、どのように分けて考えるものなのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Access(アクセス) Access2016でフォーム内にExcelの複数シートを 表示させるイメージで複数テーブルの デー 1 2022/11/25 15:30
- その他(Microsoft Office) Excelで総数量を変動させたい 2 2022/11/04 23:49
- Excel(エクセル) エクセルでファイル保存時に複数シートのオートフィルタを全て解除したい 1 2023/05/10 13:23
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Chrome(クローム) 入力フォームの履歴を消したい 2 2023/06/29 13:02
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Visual Basic(VBA) VB.net フォーム 親子 1 2022/07/04 19:00
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
Excel VBA:フォーム←→セルのアクティブ切り替え
Excel(エクセル)
-
-
4
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
5
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
6
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
7
UserForm1.Showでエラーになります。
工学
-
8
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
9
別ブックをダイアログボックスで指定してそこにあるシートをコピーしたい
Excel(エクセル)
-
10
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
11
[Ctrl]+FをVBAで表現
Visual Basic(VBA)
-
12
終了してもプログラムが実行したまま(VB)
Visual Basic(VBA)
-
13
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
14
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
15
【Excel】マクロでページを追加することはできますか?
Excel(エクセル)
-
16
VBA(エクセル)のユーザーフォームの固定
Visual Basic(VBA)
-
17
【Excel VBA】データ貼り付け先のシート名選択
Excel(エクセル)
-
18
Excel VBAで別のブックからユーザーフォームの閉じる
その他(プログラミング・Web制作)
-
19
セルの値が0はクリアするマクロ
Excel(エクセル)
-
20
リストボックスの選択解除
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
括弧があるとHYPERLINKで飛べな...
-
原付 レッツシート開け方
-
建築模型、カーブの作り方
-
Excel複数シートから日付と文字...
-
エクセルで複数のシートをフォ...
-
ジュニアシート ブースターシー...
-
バイクのシートを取り替えても...
-
ホンダ・レブルのシートのはずし方
-
カッティングシートの上からア...
-
マグネットシートって・・・
-
gsx−s125純正車載工具の中に入...
-
シートベルトの固定解除
-
自動車用シートの座面が長すぎ...
-
防風目的で使おうと写真の白い...
-
複数wavを1つに圧縮して、cueシ...
-
アルファード 7人乗りから8人...
-
EXCEL VBA 複数のシートに同じ...
-
自分はGSX-S125に乗ってますが...
-
Excel VBA シート名変更時、重...
-
ステップワゴンのヘッドレスト...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで複数のシートをフォ...
-
括弧があるとHYPERLINKで飛べな...
-
原付 レッツシート開け方
-
エクセルVBA 4行飛ばしで転記す...
-
シートベルトの固定解除
-
防風目的で使おうと写真の白い...
-
車のシートでおもらし
-
ポケットにミシンでワッペンを...
-
Excel複数シートから日付と文字...
-
リアシート無しで運転してたら...
-
水の染み込んだバイクのシート...
-
Excel VBA シート名変更時、重...
-
電車のシートって何でこんな暑...
-
バイクのシートを取り替えても...
-
フォルツァ バッテリーを外して...
-
ポップコーンの捨て方
-
建築模型、カーブの作り方
-
マグナ250とマグナ50でパーツの...
-
Googleのスプレッドシートでシ...
-
アドレスV125G(K7)の整備に詳...
おすすめ情報