質問: 文字列を見やすくする場合 vb6.0を使っています。 与えた文字列を10文字ごとにスペースを、かつ50文字ごとに改行を入れて、視覚的にすっきりさせたいと考えています。 例えば63文字ある場合、 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 123 といった具合です。 このように決まった文字数の後に文字列を挿入する場合、どのようにしたらよいでしょうか?よろしくお願いいたします。
回答: 皆さんのは難しいが、初心者的に sub test01() s = "" a = "a1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890" for i = 1 to len(a) step 10 if i > 1 and (i - 1) mod 50 = 0 then s = s & chr(10) & chr(13) '------ s = s & mid(a, i, 10) & " " next i cells(1, 1) = s end sub エクセルへセットしたためcells(1, 1) = s になってます。 その場合、a1セルを全体を折り返して表示するにしておく。