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も見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
-
4
Excel VBA:フォーム←→セルのアクティブ切り替え
Excel(エクセル)
-
5
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
6
UserForm1.Showでエラーになります。
工学
-
7
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
8
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
9
別ブックをダイアログボックスで指定してそこにあるシートをコピーしたい
Excel(エクセル)
-
10
[Ctrl]+FをVBAで表現
Visual Basic(VBA)
-
11
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
12
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
13
終了してもプログラムが実行したまま(VB)
Visual Basic(VBA)
-
14
【Excel】マクロでページを追加することはできますか?
Excel(エクセル)
-
15
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
16
VBA(エクセル)のユーザーフォームの固定
Visual Basic(VBA)
-
17
【Excel VBA】データ貼り付け先のシート名選択
Excel(エクセル)
-
18
Excel VBAで別のブックからユーザーフォームの閉じる
その他(プログラミング・Web制作)
-
19
指定したシート名以外を非表示にするには?VBA
Excel(エクセル)
-
20
リストボックスの選択解除
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
原付 レッツシート開け方
-
エクセルで複数のシートをフォ...
-
台所流しの水音を小さくしたい
-
括弧があるとHYPERLINKで飛べな...
-
ポップコーンの捨て方
-
建築模型、カーブの作り方
-
車のシートがへたってきました...
-
マクロの別シートのデータ振り...
-
XR250BAJAのシートのはずし方を...
-
リアシート無しで運転してたら...
-
ホンダ・レブルのシートのはずし方
-
シートベルトの固定解除
-
エストレヤのシートが外せない…
-
車のシートでおもらし
-
SRシートを流用(CB400SS)
-
ハイエースの2ndシート交換を...
-
ドライブレコーダーのSDカード...
-
ホンダのフリードの7人乗りは...
-
心理学で言う(研究の分野での)...
-
バイクのシートをペイントする...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで複数のシートをフォ...
-
括弧があるとHYPERLINKで飛べな...
-
原付 レッツシート開け方
-
エクセルVBA 4行飛ばしで転記す...
-
防風目的で使おうと写真の白い...
-
シートベルトの固定解除
-
車のシートでおもらし
-
ポケットにミシンでワッペンを...
-
Excel複数シートから日付と文字...
-
リアシート無しで運転してたら...
-
水の染み込んだバイクのシート...
-
Excel VBA シート名変更時、重...
-
電車のシートって何でこんな暑...
-
バイクのシートを取り替えても...
-
フォルツァ バッテリーを外して...
-
ポップコーンの捨て方
-
建築模型、カーブの作り方
-
マグナ250とマグナ50でパーツの...
-
Googleのスプレッドシートでシ...
-
アドレスV125G(K7)の整備に詳...
おすすめ情報