最初に入力するテキストボックスの文字列を反転させる(選択状態にする)
 ユーザーフォームが表示された時に、最初に入力させたいテキストボックス
にフォーカスが移り、表示されている文字全体を青い色で選択状態にするための
方法を2つご紹介します。
 1つめは、SelStartプロパティで選択する文字列の位置を先頭にして、SelLength
プロパティで選択する文字数を設定します。

Private Sub UserForm_Initialize()

    TextBox1.Text = "Textテキスト"
    TextBox1.SelStart = 0
    TextBox1.SelLength = Len(TextBox1.Text)
    
End Sub

 次は、一度最後のコントロールにフォーカスを移動させてから、SendKeys
ステートメントを使って、タブキーで最初のテキストボックスへ移動した時と
同じ状態にしています。

Private Sub UserForm_Initialize()

    With UserForm1
        TextBox1 = "Textテキスト"
        TextBox2.SetFocus  'TabIndex最後のコントロールにフォーカスをセット
        SendKeys "{TAB}"   'TabIndex 最初の TextBox1 にフォーカスをセット
    End With
    
End Sub

Excel97/2000



戻る


Excel Word Access VBA! モーグ