Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6408 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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　０
で上手く、瞬時にLabel１に文字が出ました。
ありがとうございました。
これで、助かりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6408 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free