質問番号:5013953でフォーカスを移動しない方法を質問し、解決しました続きの質問です。
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If ComboBox1.Value = "" Then
MsgBox "値が不正です。", vbInformation, "フォーム名"
Cancel = True
End If
End Sub
この場合、コンボボックスをExitで移動しなくしたまでは良かったのですが、
これによって他の部分で不具合が生じたので再度質問させてください。。
フォームにデータを入力中に中断する必要が出た場合、コマンドボタンで[終了]をつくったのです。
Private Sub 終了cmd_Click()
End
End Sub
このコードでは先のコードの影響で終了することができないのです。
これを解決する方法を教えてください。
No.1ベストアンサー
- 回答日時:
こんにちは。
いずれにしても、このコードで、ユーザーフォームが終了するとか言う意味ではありません。
>Private Sub 終了cmd_Click()
>End
>End Sub
End は、Exit Sub とは似ていますが、サブルーチンの時に、終了してしまうステートメントです。
前回の質問
Private Sub [コンボボックス名1]_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If [コンボボックス名2] = "" Then
・
・
前回の質問は、 [コンボボックス名1] --> [コンボボックス名2] となっているので、そういうことから確認する手間を考えて、回答はしなかったのですが、同じ、Control でよいのなら、話は違ってきます。
>リストのソースを設定してあるコンボボックスから次のコンボボックスに移動する際、入力にエラーあればフォーカスを移動しないようにするコードはどのようにすればいいのですか?
それに、これもよく分からなかったです。「入力にエラーがあれば」が、「空欄があれば」に変わっています。
'-----------------------------------------------
Private Sub UserForm_Initialize()
終了cmd.TakeFocusOnClick = False
'----- 設定--
End Sub
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If 終了cmd.TakeFocusOnClick = False Then
If ComboBox1.Value = "" Then
Cancel = True
MsgBox "値がありません。", vbInformation, Me.Name
End If
End If
End Sub
Private Sub 終了cmd_Click()
終了cmd.TakeFocusOnClick = True
Unload Me
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
終了cmd.TakeFocusOnClick = True
End Sub
'---------------------------------------------------
このようにすればよいのではないかと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) VBAのトグルボタンでのマクロについて質問です 3 2022/10/10 17:23
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Excel(エクセル) エクセルのイベントプロシージャーでF列の最終行のセルの入力をトリガーにしたいのですが 1 2022/10/14 09:36
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) Excel VBA ユーザーフォーム1のコンボボックスに別ブックの値を反映させたいです。 6 2023/03/21 16:12
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
エクセルVBA テキストボックスへのセットフォーカスについて
Visual Basic(VBA)
-
フォーカスを移動させない方法
Visual Basic(VBA)
-
ユーザーフォームのSetFocusが働かない?
その他(プログラミング・Web制作)
-
-
4
Excelマクロ、フォーム入力での矢印移動禁止
Excel(エクセル)
-
5
テキストボックスのカーソル位置の取得・設定方法
Visual Basic(VBA)
-
6
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
7
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
8
コマンドボタンのEnterイベント後に、フォーカスを移動したい。
その他(Microsoft Office)
-
9
どこにもフォーカスを当てたくない
Access(アクセス)
-
10
テキストボックス入力後、警告メッセージを表示し、フォーカスを移動させない方法について
Access(アクセス)
-
11
Vba ListViewの行挿入に関して教えてください
Visual Basic(VBA)
-
12
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
首吊りどこ締めるの
-
尿検査の前日は自慰控えたほう...
-
尿検査前日に自慰行為した時の...
-
1日前の検尿
-
今朝、毎朝の習慣でオナニーし...
-
変な話しになります。尿検査で...
-
射精をして1週間以内に尿検査を...
-
検便についてです。 便は取れた...
-
腕を見たら黄色くなってる部分...
-
2つの数値のうち、数値が小さい...
-
彼女のことが好きすぎて彼女の...
-
EXCELで条件付き書式で空白セル...
-
口の中に黒い血の塊
-
値が入っているときだけ計算結...
-
男です。昨日の午後3時くらいに...
-
白血球が多いとどんな心配があ...
-
Excelで""で囲む方法
-
リンク先のファイルを開かなく...
-
小数点以下を繰り上げたものを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
中出しをするとお腹が痛い・・・。
-
麻疹風疹の抗体検査結果につい...
-
エクセルでエラーが出て困って...
-
白血球が多いとどんな心配があ...
-
彼女のことが好きすぎて彼女の...
-
検便についてです。 便は取れた...
-
勃起する時って痛いんですか? ...
-
至急!尿検査前日にオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
精子が黄色?
-
小数点以下を繰り上げたものを...
-
値が入っているときだけ計算結...
-
口の中に黒い血の塊
-
健否~書類の書き方~
-
甲状腺が腫れているが血液検査...
-
はしかの抗体検査は何科の病院...
-
テスターで断線を調べる方法教...
おすすめ情報