Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6410 / 13646 ツリー ←次へ | 前へ→

【45365】ユーザーフォームのラベルの表示について ToShiYo 06/12/20(水) 20:44 質問[未読]
【45366】Re:ユーザーフォームのラベルの表示について かみちゃん 06/12/20(水) 21:01 発言[未読]
【45367】Re:ユーザーフォームのラベルの表示について ToShiYo 06/12/20(水) 21:32 質問[未読]
【45369】Re:ユーザーフォームのラベルの表示について かみちゃん 06/12/20(水) 21:47 発言[未読]
【45374】Re:ユーザーフォームのラベルの表示について ToShiYo 06/12/21(木) 7:27 お礼[未読]

【45365】ユーザーフォームのラベルの表示について
質問  ToShiYo  - 06/12/20(水) 20:44 -

引用なし
パスワード
   セルE9以外のセルを選択したときに、ユーザーフォーム上のラベルに表示させたく
以下のコードを作成しました。
しかし、一回の選択では「Label1」が表示され、二回目の選択で初めて望みの表示(コードに書いた""が)がされます。一回目の選択でラベルに望みの表示させるにはどのようにすればよいでしょうか。アドバイスお願いします。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Application.Intersect(Target, Range("E9")) Is Nothing Then Exit Sub
  Application.EnableEvents = False
    UserForm3.Show
   UserForm3.Label1 = "E9以外のみに反応"
  Application.EnableEvents = True
End Sub

【45366】Re:ユーザーフォームのラベルの表示について
発言  かみちゃん  - 06/12/20(水) 21:01 -

引用なし
パスワード
   こんにちは。かみちゃん です。

> 一回目の選択でラベルに望みの表示させるにはどのようにすればよいでしょうか。

選択という動作がどういうものを指しているのかわかりませんが、
UserForm3.Label1.Caption = "E9以外のみに反応"
DoEvents



UserForm3.Label1.Caption = "E9以外のみに反応"
UserForm3.Repaint

ではいかがでしょうか?

【45367】Re:ユーザーフォームのラベルの表示について
質問  ToShiYo  - 06/12/20(水) 21:32 -

引用なし
パスワード
   ▼かみちゃん さん:
今晩は。いつもありがとうございます。
早速試してみましたが、
一回目のE3以外のセルを選択すると、
まず「Label1」が表示され、再度E3以外のセルを選択して初めて、ラベルに
「E9以外のみに反応」と表示されます。

>
>> 一回目の選択でラベルに望みの表示させるにはどのようにすればよいでしょうか。
>選択という動作がどういうものを指しているのかわかりませんが、

表現が悪く申し訳ありません。
シートのE9以外のセルをカーソルでクリック?(選択)したときには・・・の
意味なのですが・・・上手く表現できずに申し訳ありません。

アドバイスいただきました、下記のコードをともに使わせていただきましたが、
結果は変わりありませんでした。
ただ、Label1の文字数が随分と多いのです。それが問題なのでしょうか?

'UserForm3.Label1.Caption = "E9以外のみに反応"
'DoEvents
'
'か
'
'UserForm3.Label1.Caption = "E9以外のみに反応"
'UserForm3.Repaint

【45369】Re:ユーザーフォームのラベルの表示について
発言  かみちゃん  - 06/12/20(水) 21:47 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>シートのE9以外のセルをカーソルでクリック?(選択)したとき

私勘違いをしていました。
UserForm3のフォームモジュールに以下のように記述してはいけませんか?

Private Sub UserForm_Initialize()
 Me.Label1.Caption = "E9以外のみに反応"
End Sub

UserForm3.Show
を実行すると、モードレスでない限り、コードは、そこで停止します。

【45374】Re:ユーザーフォームのラベルの表示について
お礼  ToShiYo  - 06/12/21(木) 7:27 -

引用なし
パスワード
   ▼かみちゃん さん:

ありがとうございました。
UserForm3.show 0
で上手く、瞬時にLabel1に文字が出ました。
ありがとうございました。
これで、助かりました。

6410 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free