Ｐａｇｅ 629 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ユーザーフォームのload,unloadとxボタンの無効の両立がしたい 飛影 03/1/28(火) 11:47 ┗Re:ユーザーフォームのload,unloadとxボタンの無効の両立がしたい Jaka 03/1/28(火) 12:53 ┗ありがとうございます。コードで質問があります 飛影 03/1/28(火) 13:29 ┗Re:ありがとうございます。コードで質問があります Jaka 03/1/28(火) 13:48 ┗わかりました。ありがとうございました。 飛影 03/1/28(火) 14:41 ─────────────────────────────────────── ■題名 ： ユーザーフォームのload,unloadとxボタンの無効の両立がしたい ■名前 ： 飛影 ■日付 ： 03/1/28(火) 11:47 -------------------------------------------------------------------------
| こんにちは。VBA初心者の飛影です。 今まで×ボタンの無効をuserform_querycloseを使っていましたが、 これだとユーザーフォームをunloadしようとするとuserform_querycloseにとんでしまいます。今まではhide、showで何とかできていましたがこれが原因で連続処理できなくなってしまいました。なんとかload、unloadと×ボタンの無効の両立ができないでしょうか？ すいませんがわかる方がおられたら教えてください。 |
| こんにちは。 どう言う事なのか、よく解りませんが．．。 １例 Private Sub CommandButton1_Click() Me.Caption = Me.Caption & "-" Unload Me End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If Right(Me.Caption, 1) <> "-" Then Cancel = True Else Cancel = False End If End Sub |
| Jakaさん ありがとうございます。 まさにやりたいことの答えでした。 コードでわからない部分があるのですいませんが教えてください。 >Private Sub CommandButton1_Click() > Me.Caption = Me.Caption & "-" ↑ この1文がなくて動かなかったのですがこれはどういう分なのですか？ > Unload Me >End Sub > >Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) > If Right(Me.Caption, 1) <> "-" Then > Cancel = True > Else > Cancel = False > End If >End Sub |
| >コードでわからない部分があるのですいませんが教えてください。 >>Private Sub CommandButton1_Click() >> Me.Caption = Me.Caption & "-" > ↑ > この1文がなくて動かなかったのですがこれはどういう分なのですか？ えーと、コマンドボタン以外で終了されるのが嫌だと受け取ったもんで、 コマンドボタンを押した時フォームタイトル名の最後に「-」を付け足し、その後に行われるUserForm_QueryCloseでコマンドボタンからの信号かを判断しただけです。 コマンドボタンを押すと、フォームタイトル名の最後に「-」が、チロっと見えちゃいますけど。 If CloseMode <> vbFormCode Then こんな感じでも良かったんだけど．．．。 |
| ▼Jaka さん： >>コードでわからない部分があるのですいませんが教えてください。 >>>Private Sub CommandButton1_Click() >>> Me.Caption = Me.Caption & "-" >> ↑ >> この1文がなくて動かなかったのですがこれはどういう分なのですか？ > >えーと、コマンドボタン以外で終了されるのが嫌だと受け取ったもんで、 >コマンドボタンを押した時フォームタイトル名の最後に「-」を付け足し、その後に行われるUserForm_QueryCloseでコマンドボタンからの信号かを判断しただけです。 >コマンドボタンを押すと、フォームタイトル名の最後に「-」が、チロっと見えちゃいますけど。 >If CloseMode <> vbFormCode Then >こんな感じでも良かったんだけど．．．。 ありがとうございました。うまくいきました。 わかりにくい質問ですいませんでした。 |