Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

19967 / 76732

←次へ　｜　前へ→


	【62190】Re:フォーム内のテキストボックス

neptune - 09/6/28(日) 21:38 -


	引用なし

	パスワード

▼しんさん：
>※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

0 hits

▼

【62181】フォーム内のテキストボックス しん 09/6/28(日) 15:00