Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


41448 / 76732 ←次へ | 前へ→

【40364】Re:セルに表示されている文字数
発言  momo  - 06/7/12(水) 15:40 -

引用なし
パスワード
   いなば さん:

 いなばさんのご質問、私も同じ状況でいき詰まっておりました。
 きれいにレイアウトができるのを一番の強みに思っていたのですが。。
 私の場合は、報告書のデータベースのようなものを現在作成しているのですが、
 任意のデータを呼び出して、報告書を印字できるようにしたかったのです。
 報告内容は、数行のものから数ページに渡るものまで、さまざまですが、
 文字ごとで、横幅が違うので、「いったい、何文字目で改行されるのか」がまったくわかりません。
 AMEさんの言われるように、新バージョンに期待するほかないのでしょうか?
 
 ちなみに、やりたいこととは程遠いのですが、次のようなコードも組んでみましたが、結果は、「見にくい!」のひと言。

Sub 各セルに割り当てる()

bunsho = "なが〜〜い文字数の文章(最大A4で4ページほど)"

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

9 hits

【40166】セルに表示されている文字数 いなば 06/7/7(金) 17:43 質問
【40167】Re:セルに表示されている文字数 ぱっせんじゃー 06/7/7(金) 17:52 発言
【40170】Re:セルに表示されている文字数 いなば 06/7/7(金) 18:16 質問
【40173】Re:セルに表示されている文字数 AME 06/7/7(金) 19:10 発言
【40181】Re:セルに表示されている文字数 いなば 06/7/7(金) 23:01 お礼
【40190】Re:セルに表示されている文字数 AME 06/7/8(土) 8:11 発言
【40364】Re:セルに表示されている文字数 momo 06/7/12(水) 15:40 発言
【40381】Re:セルに表示されている文字数 漂流民 06/7/12(水) 22:57 発言

41448 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free