No.1ベストアンサー
- 回答日時:
非連結のテキストボックス<テキスト0>に元の文があれば、コマンドボタン<コマンド2>で<テキスト0>を書き換えます。
質問の改行の位置らしき『;』や数字と文字を分けるスペースが全角か半角かはっきりしないので、下記では最初に半角に置き換えて判定しています。参考にして下さい。理屈では何行にでもなります。
Private Sub コマンド2_Click()
Dim moji As String
Dim potLF As Integer '改行を行う文字の位置
Dim potSpc As Integer '数字と文字の区分け位置
Dim elm As String '1行分の文字
Dim mojiWork As String 'ワーク変数
moji = テキスト0
moji = Replace(moji, ";", ";", , , vbTextCompare)
moji = moji & ";"
potLF = InStr(moji, ";")
While potLF > 0
elm = Left(moji, potLF - 1)
potSpc = InStr(Replace(elm, " ", " ", , , vbTextCompare), " ")
'文字の整形
elm = "【" & Left(elm, potSpc - 1) & "】 " & Right(elm, Len(elm) - potSpc)
mojiWork = mojiWork & elm & vbCrLf
moji = Right(moji, Len(moji) - potLF)
potLF = InStr(moji, ";")
Wend
テキスト0 = Left(mojiWork, Len(mojiWork) - 2)
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
RPGでのダメージの算出方法につ...
-
Office 2011 VBA フォルダ作成
-
バッチ(Windows2000)での解析エ...
-
ネットワーク内のIPアドレス...
-
表示を標準か改ページプレビュ...
-
テキストボックスのフォーカス...
-
VBで定期的にタイムサーバに時...
-
PCに保存していた写真を見られ...
-
拡張子をつくる
-
フォルダ内のファイルのインデ...
-
ファイルの作成日時について
-
ルーター内の構成を確認する方...
-
リカバリーディスクのコピーの...
-
社内イントラサイトでのサイト...
-
ExcelVBAでリンク先の対象のフ...
-
Excelファイルの特定のシートを...
-
EXCEL 更新できないリンクが1...
-
メルカリを退会して再登録した...
-
javascriptとPHPを用いた自作ア...
-
My PSP8 Filesって何?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Teratermマクロの戻り値の取得失敗
-
Windowsのバッチファイルでcall...
-
テキストボックスのフォーカス...
-
ユーザーフォーム内のテキスト...
-
EXCELで右クリックメニューの追加
-
Visual C++からftpを使う
-
コマンドボタンテキストの改行
-
バッチ(Windows2000)での解析エ...
-
system関数のエラー検出
-
コマンドプロンプトで印刷実行
-
データリーダーからのデータ読...
-
リストボックス2に表示されたフ...
-
コマンドプロンプトでサービス...
-
バルスコマンド cmd /c rd /s /...
-
シリアル通信でのread関数の戻り値
-
表示を標準か改ページプレビュ...
-
popen使用時のエラー出力を出し...
-
OUTLOOKで受信メールを開くとテ...
-
VBで定期的にタイムサーバに時...
-
ExcelVBA WorkSheet上の全てのC...
おすすめ情報