|
▼しん さん:
>※1 ※2
>は解決いたしました。ありがとうございました。
Helpにキチンと書いていたでしょ?Helpを見ないと進歩しませんから
必ず見て下さい。
>あとは※3をやってみます。
SelStart とSelText のサンプル
新規userformにtextbox、commandbuttonを各1個追加
コントロール名はデフォルト
Private Sub CommandButton1_Click()
With Me.TextBox1
.SelStart = Len(.Text)
.SelText = "追加文字列"
End With
End Sub
Private Sub UserForm_Initialize()
Me.TextBox1.Text = "フォーム内にテキストボックス1を配置。" & vbCrLf _
& "コマンドボタン1を配置。"
Me.TextBox1.SelStart = 1
Me.CommandButton1.Caption = "[追加文字列]という文字列を " & _
vbCrLf & "testboxの最終位置に追加する"
End Sub
|
|