Excel VBA質問箱 IV

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

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


24815 / 76732 ←次へ | 前へ→

【57264】Re:ユーザーフォーム内のテキストボックスのフォーカス移動について
発言  ichinose  - 08/8/4(月) 6:48 -

引用なし
パスワード
   ▼ken さん:
おはようございます。

>前回は有り難う御座いました。
>SetFocusを使ってみましたが
>フォーカスが点滅しません。

SetFocusを使ってみましたが、
今度は、マルチページ内のテキストボックスにはフォーカスされなくなりましたが、
本来フォーカスが当たるべきテキストボックスにもフォーカスされません。

というように以前と表示に変化があったことを
わかるように記述してください。

>他に良い方法はありますでしょうか?


>>▼ken さん:
>>こんばんは。
>>>ユーザーフォーム内にテキストボックスとマルチページを配置して
>>>ユーザーフォームを開いたときにのマルチページのページをセル入力により
>>>区別して開く様にしましたするとテキストボックスのフォーカスが最初にならず
>>>マルチページのテキストボックスにフォーカスがかかってしまいます。
>>>この場合どのようにしたら良いのでしょうか?
>>>プロパティを変えてみたりTextbox1.Activateと記入しても変わりません。

ユーザーフォームがモーダレスモードで表示されていませんか?

ならば、

UserForm_Initialize()
というイベントプロシジャーに処理を記述するのではなく、

UserForm_Activate に記述してみてみてください。

尚、UserForm_Activate イベントプロシャーに記述するのは、

Textbox1.Setfocusのみで

それ以前に行う Multipage1.value=xxx
等の処理は そのままUserForm_Initialize内の記述でも結構です。


Private Sub UserForm_Activate()
  TextBox1.SetFocus
End Sub

Private Sub UserForm_Initialize()
  With MultiPage1
    If Val(Cells(1, 1).Value) >= 0 And _
     Val(Cells(1, 1).Value) <= 3 Then
     .Value = Val(Cells(1, 1).Value)
     End If
    End With
End Sub

尚、UserForm_Initialize内のコードは一例です。


以下の記述は、私は今までにも何度か同様の内容を記述したことがありますが・・。

ここに記述することに情報漏れがあれば、私とkenさんでは、
見ているブックが、コードが違うものを見ながらあれこれ言っているのと
同じです。

kenさんと私(閲覧者)が同じものを見られるような記述をしてください。
そのためには、kenさんが体験したうまくいかない内容を誰でもその記述どおりに
ブックを作成すれば、コードを実行すれば再現できる再現手順書が必要です。

この記述、結構手間が掛かりますが、VBAを本気でやる気があるならば、
これをすることがkenさんにとって、VBA上達の決して無駄にはなりません
(↑これに関してきっぱり)。

是非、次回からは上記のこと検討してみてください。

尚、これでもうまくいかない場合は、投稿は明日夕方になってしまいます。
(その場合は、どなたかよろしくお願いします)
0 hits

【57259】ユーザーフォーム内のテキストボックスのフォーカス移動について ken 08/8/3(日) 17:19 質問
【57261】Re:ユーザーフォーム内のテキストボックス... ichinose 08/8/3(日) 20:26 発言
【57262】Re:ユーザーフォーム内のテキストボックス... ken 08/8/3(日) 21:03 質問
【57264】Re:ユーザーフォーム内のテキストボックス... ichinose 08/8/4(月) 6:48 発言
【57282】Re:ユーザーフォーム内のテキストボックス... ken 08/8/4(月) 20:45 質問
【57307】Re:ユーザーフォーム内のテキストボックス... ichinose 08/8/6(水) 8:14 発言
【57316】Re:ユーザーフォーム内のテキストボックス... ken 08/8/6(水) 23:19 お礼

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