みなさま
こんにちは
ユーザーフォームのイベント処理についておしえください。
ユーザフォームには
Multipageを設定しておりPAGE1にLISTOBOXを配置しております。
ユーザフォーム内にCheckBox1を配置しそのボタンにレ点をいれると
複数行選択(fmMultiSelectMulti)できるように(fmMultiSelectMulti)を設定
チェックボックスをONにすると複数行選択画面になるのですが、
LISTBOX1.AFTERUPDTEイベントが走ってしまします。
回避方法として、同じpage1の領域のなかに適当な「コマンドボタン」
を配置しそのボタンにフォーカスをあてるという処理をいれて「CheckBox1」を押すと
LISTBOX1.AFTERUPDTEが発生しません。
適当なボタン=コマンドボタン15
フォーカスの移動が関係して、AfterUpdateが走っているのかなぁとおもっているんですが 他の方法で回避する方法ってございませんでしょうか?
合計3つのボタンが配置されてます。
ユーザフォーム内には 「CheckBox1」 1つ配置
Multipate(page1)の領域には
「listbox1」、「コマンドボタン15」が1つづつ配置されてます
-------------------------------
Private Sub CheckBox1_Click()
With ListBox1
.MultiSelect = fmMultiSelectMulti
.listStyle = fmListStyleOption
END SUB
---------Afterupdteが発生しないパターン------------
Private Sub CheckBox1_Click()
CommandButton15.SetFocus (これをつけるとlistbox After updateが発生しない)
With ListBox1
.MultiSelect = fmMultiSelectMulti
.listStyle = fmListStyleOption
END SUB
----------コマンドボタン15の処理の中身(参考)-----------------------
Private Sub CommandButton15_Click()
End Sub
No.1ベストアンサー
- 回答日時:
こんにちは
>回避する方法ってございませんでしょうか?
イベントを発生させずに処理を行いたいという意味と解釈しました。
未検証ですが・・・
おきまりの
Application.EnableEvents = False
ではダメということでしょうか?
どうもです。
だめでした。
userform1上にLISTBOXを配置するとAfterUpdateは発生しないのですが、
マルチページ上(page1)に設定すると、AfterUpdateが発生します。
マルチページ上に配置したLISTBOXではAfterUpdateが発生する理由が知りたいです。
あと、Tabstrip上にLISTBOXを配置した場合も発生しません。
No.2
- 回答日時:
AfterUpdateイベント側で最初に状態をみて、本来の処理を行うか否かを判断するしかないのではないでしょうか。
Private Sub ListBox1_AfterUpdate()
If ListBox1.MultiSelect = fmMultiSelectMulti And _
ListBox1.ListStyle = fmListStyleOption Then
Exit Sub
End If
みたいなかんじで。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Access(アクセス) Access IF文でテーブルに存在しない場合の処理について 2 2022/10/10 18:09
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Access(アクセス) アクセス テーブルの空白を変数に置換するボタンが作りたい 4 2022/07/08 11:19
- Visual Basic(VBA) userformでSheetを選択して開くコード 1 2023/05/15 16:27
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
VBA ユーザーフォームのChangeイベントを停止したい
Access(アクセス)
-
エクセルVBA テキストボックスへのセットフォーカスについて
Visual Basic(VBA)
-
ユーザーフォームで動的(Me.Controls.Add)に作成したコントロールの削除
Visual Basic(VBA)
-
-
4
イベントの違いを教えてください。
Visual Basic(VBA)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
リストビューをスクロールさせるには
Visual Basic(VBA)
-
7
複数選択のListBoxでClickイベントが拾えません
Visual Basic(VBA)
-
8
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
9
LISTBOXの内容が更新されません。
Visual Basic(VBA)
-
10
ListViewで列を指定して表示させる方法
Excel(エクセル)
-
11
vba Listviewでのチェックボックスのイベントを教えてください
Excel(エクセル)
-
12
CommandButtonのCaptionを変化させたい
Visual Basic(VBA)
-
13
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
14
Accessの連結、非連結とは何?
PowerPoint(パワーポイント)
-
15
変数をコントロール型で使用する方法
Visual Basic(VBA)
-
16
アクセスでレコードの内容が変更されたかどうかを調べるには
Access(アクセス)
-
17
エクセルVBA/マルチページ/ページ切り替え時
Access(アクセス)
-
18
ADOを使ったDBアクセス後のメモリ解放
その他(データベース)
-
19
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
20
ListViewで、非表示列って作れますか?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
アクセサリのペイントを呼び出...
-
コマンドボタンの長押し
-
excel シート上のボタンが動かない
-
VBA(エクセル)で自動的にボタン...
-
Button(コントロール)を半透明...
-
excel2003でマクロ用ボタンで検...
-
C#で動的に作ったtextboxを消す。
-
Access VBA でデータペーストを...
-
入力されたかどうか、オプショ...
-
角の丸いボタン作成について質...
-
Edge操作のアプリが例外発生に
-
コントロールの背景色を
-
バックスペース機能の作り方
-
複数ボタンの大きさを統一する...
-
チェックボックスで指定出来る...
-
アイコンとボタンの違い
-
ボタンをマウスで押し続けたと...
-
コマンドボタンやイメージにマ...
-
実行時エラー 438になった時の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
フォームの再読み込み
-
ユーザーフォームに別シートか...
-
VBA CommandButtonの文字ずれ
-
セルをマクロのボタンにしたい。
-
コマンドボタンやイメージにマ...
-
Excel VBA Application.caller...
-
VBAのボタンの位置が変わって困...
-
Access VBA でデータペーストを...
-
プロシージャからイベントをコ...
-
他のアプリケーションとの連携
-
閉じると「+」になり開くと「-...
-
C#で動的に作ったtextboxを消す。
-
ボタンをマウスで押し続けたと...
-
VBA でのボタンの移動について
-
ボタン
-
CommandButtonのCaptionを変化...
-
TextBoxでEnterキーを押すと、...
-
VB.net でトグルボタンを実現し...
おすすめ情報
こんばんは。
listboxのデータ指定方法は
ROW SOURCE a1:c4としております。
ありがとうございました。
イベント回避はできないので、(UPDATE)がはしったら抜ける処理を入れてます。
まぁ。ぼっくんもわかってないのでこちらでしめさせていただきます。(閉店ガラガラ)
それではまた バイバイキーン