|
▼わさび さん:
こんにちは。
>下記のように、[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では出来ましたよ!!
|
|