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で質問しましょう!
似たような質問が見つかりました
- その他(ブラウザ) cvsファイルをダウンロードすると、自動で拡張子がExcelのものになる 5 2022/07/20 21:21
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Excel(エクセル) 【エクセル関数】アルファベットで以上だったらカウントする 4 2022/07/09 14:07
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Excel(エクセル) 文字化け。メモ帳でUTF-8に変換後、エクセルへ貼り付けたいです。 3 2022/08/14 07:21
- Excel(エクセル) 数式の置換がうまく行かない 6 2022/05/04 15:51
- Excel(エクセル) [オートフィルター]機能について 3 2023/02/04 14:32
- Excel(エクセル) エクセルVBA Msgboxでの変数の活用 4 2023/07/23 08:33
- フリーソフト サクラエディタの正規表現(grep機能)の使い方 3 2022/06/22 10:29
- その他(プログラミング・Web制作) プログラミング python pandas 固定長データの出力 2 2022/08/16 11:22
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストボックスのフォーカス...
-
シリアル通信でのread関数の戻り値
-
ネットワーク内のIPアドレス...
-
Gitで空白のみの変更を削除した...
-
Beep音を出すには?
-
バッチ(Windows2000)での解析エ...
-
バルスコマンド cmd /c rd /s /...
-
system関数のエラー検出
-
【vba】コマンドボタン又は図形...
-
VBSで指定した時刻にメッセージ...
-
GP-IB通信を別PCでモニタしたい
-
scilabのグラフの表示について
-
VBで、このようなことはどうや...
-
コマンドボタン選択でリストボ...
-
cisco2600ルータについて
-
PCに保存していた写真を見られ...
-
Excelで外部のファイルの場所を...
-
FFFTPの自動化バッチについて
-
OpenFileDialogを使った後にも...
-
バッチファイルで特定のファイ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Teratermマクロの戻り値の取得失敗
-
Windowsのバッチファイルでcall...
-
Visual C++からftpを使う
-
テキストボックスのフォーカス...
-
system関数のエラー検出
-
ユーザーフォーム内のテキスト...
-
FlashROMにデータを書き込むに...
-
バッチ(Windows2000)での解析エ...
-
ネットワーク内のIPアドレス...
-
データリーダーからのデータ読...
-
RPGでのダメージの算出方法につ...
-
シリアル通信でのread関数の戻り値
-
コマンドプロンプトで印刷実行
-
AutoHotkey KeyWaitコマンドに...
-
表示を標準か改ページプレビュ...
-
EXCELで右クリックメニューの追加
-
コマンドボタンテキストの改行
-
C言語のコマンドの"flag"って何...
-
VBで定期的にタイムサーバに時...
-
gmailでのimap設定
おすすめ情報