| |
いなば さん：
いなばさんのご質問、私も同じ状況でいき詰まっておりました。
きれいにレイアウトができるのを一番の強みに思っていたのですが。。
私の場合は、報告書のデータベースのようなものを現在作成しているのですが、
任意のデータを呼び出して、報告書を印字できるようにしたかったのです。
報告内容は、数行のものから数ページに渡るものまで、さまざまですが、
文字ごとで、横幅が違うので、「いったい、何文字目で改行されるのか」がまったくわかりません。
ＡＭＥさんの言われるように、新バージョンに期待するほかないのでしょうか？
ちなみに、やりたいこととは程遠いのですが、次のようなコードも組んでみましたが、結果は、「見にくい！」のひと言。
Sub 各セルに割り当てる()
bunsho = "なが〜〜い文字数の文章（最大Ａ４で４ページほど）"
CR = Chr(10)
rw = 1
clm = 1
clmMax = 30
For i = 1 To Len(bunsho)
moji = Mid(bunsho, i, 1)
If moji = CR Then
rw = rw + 1: clm = 1
Else
Sheets("1").Cells(rw, clm).Value = moji
clm = clm + 1
If clm > clmMax Then
rw = rw + 1: clm = 1
End If
End If
Next
End Sub
|
|
momo
- 06/7/12(水) 15:40 -
