リンクしてきたデータの文字列を折り返すには…???

質問

リンクして引っ張ってきたデータを、
何文字目で改行するか，その都度決めることはできますか？
リンクしてくるデータが、毎回同じ文字数目で改行したいわけではなくて、
今回は８文字目と１６文字目で折り返したい…
今回は９文字目と２０文字目で折り返したい…など。
ついでに!!!
折り返した文字列の頭に１文字空白を挿入したいのですが。
そんな贅沢でワガママなことはできますか？
もしかして、申し上げている意味自体が不明でしょうか？

回答No.4

nishi6 · ベストアンサー

質問では、規則性はなさそうだし、折り返し数も２個以上かもしれないということで、指定した文字数で折り返すユーザー定義関数を作りました。手順も書きましたのでチャレンジしてみて下さい。最初はみんな超初心者です。

折り返し箇所の指定は任意の個数可能です。長くなるので、9個目で改行、6個目で改行のように指定を昇順に指定しない場合は対応していません。

扱うのは全角文字の文章と想像しています。（半角でもＯＫですが）『ついでに』の先頭の空白は全角空白にしています。

使い方ですが、今、Ｂシートの該当セルは　=VLOOKUP(・・・・・)　となっていると思いますが、これを
=Orikaeshi(VLOOKUP(・・・・・),8,16) や
=Orikaeshi(VLOOKUP(・・・・・),9,20,26,32) のようにします。
また、該当セルの書式設定の配置は折り返して全体を表示するにチェックを入れておきます。うまくいけばいいえすが。

ツール→マクロ→Visual Basic Editor でVBE画面に移り、
挿入→標準モジュール　で標準モジュールを挿入しそこに下記コードを貼り付けて下さい。

'指定文字数で折り返し。（先頭に全角空白を挿入）
Public Function Orikaeshi(Bunsyo As String, ParamArray aryNagasa() As Variant)
Dim L As Integer 'カウンタ
Dim mojisuu As Integer '１行文字数
Dim wkBunsyo As String '処理用変数

Bunsyo = "　" & Bunsyo
For L = 0 To UBound(aryNagasa())
If L = 0 Then
mojisuu = aryNagasa(L)
Else
mojisuu = aryNagasa(L) - aryNagasa(L - 1)
End If
wkBunsyo = wkBunsyo & Left(Bunsyo, mojisuu) & vbLf
Bunsyo = Mid(Bunsyo, mojisuu + 1)
Next
wkBunsyo = wkBunsyo & Bunsyo
Orikaeshi = wkBunsyo
End Function

お礼

締め切ってしまってから気がつきました…。
改行ごとの頭に空白を入れたかったのでした。
説明不足で申し訳ありませんでした。
でも、他はすばらしくうまく行きました。

「改行ごとに頭に空白を入れるには？」として、新たに質問をしておきますので、
また機会がありましたらお世話してください。
ありがとうございました。