Excel VBA質問箱 IV

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

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


9251 / 13644 ツリー ←次へ | 前へ→

【28420】SetFocusができないんです。 わさび 05/9/6(火) 10:38 質問[未読]
【28423】Re:SetFocusができないんです。 ichinose 05/9/6(火) 13:05 発言[未読]
【28425】Re:SetFocusができないんです。 わさび 05/9/6(火) 14:02 お礼[未読]

【28420】SetFocusができないんです。
質問  わさび  - 05/9/6(火) 10:38 -

引用なし
パスワード
   いつもお世話になっております。

下記のように、[Alt]+[A]でユーザーフォーム「MAIN_01」をアクティブにした際に、
フォーム上のテキストボックス「OP_03」の文字を全て選択した状態で
フォーカスを与えたいのですが、
「MAIN_01.Show」を実行した直後しかできません。

「MAIN_01」をアクティブにすることはできています。
またステップインモードで確認すると、ちゃんとすべて実行されてはいます。
が、フォーカスされてはいません。

どこが良くないのか、どうかご指摘ください。
よろしくお願い致します。

---------------------------
Sub SCkey()

  Application.OnKey "%a", "myFORM_act"
  
End Sub
---------------------------
Sub myFORM_act()
  
  AppActivate MAIN_01.Caption

  With MAIN_01.OP_03
    .SelStart = 0
    .SelLength = Len(MAIN_01.OP_03.Text)
    .SetFocus
  End With
 
End Sub
---------------------------

【28423】Re:SetFocusができないんです。
発言  ichinose  - 05/9/6(火) 13:05 -

引用なし
パスワード
   ▼わさび さん:
こんにちは。


>下記のように、[Alt]+[A]でユーザーフォーム「MAIN_01」をアクティブにした際に、
>フォーム上のテキストボックス「OP_03」の文字を全て選択した状態で
>フォーカスを与えたいのですが、
>「MAIN_01.Show」を実行した直後しかできません。
>
>「MAIN_01」をアクティブにすることはできています。
>またステップインモードで確認すると、ちゃんとすべて実行されてはいます。
>が、フォーカスされてはいません。
>
>どこが良くないのか、どうかご指摘ください。
>よろしくお願い致します。
バグっぽいねえ・・・。


>
>---------------------------
>Sub SCkey()
>
>  Application.OnKey "%a", "myFORM_act"
>  
>End Sub
>---------------------------
>Sub myFORM_act()
>  
>  AppActivate MAIN_01.Caption
>
>  With MAIN_01.OP_03
    .Visible = False
    .Visible = True
>    .SelStart = 0
>    .SelLength = Len(MAIN_01.OP_03.Text)
>    .SetFocus
>  End With
> 
>End Sub
>---------------------------
としてみてください。
Excel2002では出来ましたよ!!

【28425】Re:SetFocusができないんです。
お礼  わさび  - 05/9/6(火) 14:02 -

引用なし
パスワード
   ichinose さん

こんにちは!またまたお助けいただき、本当にありがとうございます。

>バグっぽいねえ・・・。
ば、バグですか…
てっきり私がミスってるだけかと思ってたので、ちょっとビックリです。


>>---------------------------
>>Sub SCkey()
>>
>>  Application.OnKey "%a", "myFORM_act"
>>  
>>End Sub
>>---------------------------
>>Sub myFORM_act()
>>  
>>  AppActivate MAIN_01.Caption
>>
>>  With MAIN_01.OP_03
>    .Visible = False
>    .Visible = True
>>    .SelStart = 0
>>    .SelLength = Len(MAIN_01.OP_03.Text)
>>    .SetFocus
>>  End With
>> 
>>End Sub
>>---------------------------
>としてみてください。
>Excel2002では出来ましたよ!!

Excel2000でも確認できました!フォーカスされました!
ありがとうございましたm(_ _)m

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