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 質問
【62182】Re:フォーム内のテキストボックス neptune 09/6/28(日) 16:06 回答
【62186】Re:フォーム内のテキストボックス しん 09/6/28(日) 18:25 お礼
【62187】Re:フォーム内のテキストボックス しん 09/6/28(日) 19:15 お礼
【62190】Re:フォーム内のテキストボックス neptune 09/6/28(日) 21:38 回答
【62192】Re:フォーム内のテキストボックス しん 09/6/28(日) 22:54 お礼
【62194】Re:フォーム内のテキストボックス neptune 09/6/28(日) 23:09 回答
【62195】Re:フォーム内のテキストボックス しん 09/6/28(日) 23:37 お礼
【62196】Re:フォーム内のテキストボックス neptune 09/6/29(月) 10:21 回答
【62198】Re:フォーム内のテキストボックス しん 09/6/29(月) 23:52 お礼
【62189】Re:フォーム内のテキストボックス しん 09/6/28(日) 21:23 お礼
【62191】Re:フォーム内のテキストボックス neptune 09/6/28(日) 21:41 回答

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