Excel 「折り返して全体を表示する」 のプレビュー時

質問

いつもお世話になっております！

タイトルの件で困っています。
アンケートの自由回答をExcelに入力しています。
自由回答なので、たくさん長文があり、
ひとつのセルに「折り返して全体を表示」させています。

しかし、標準表示ですと、それが４行に改行されていたとしても
プレビュー表示で見ると、５行になっていたりして困っています。

なぜかというと、会社では、
１行の場合、行幅は１５
２行の場合は、行幅は３０
３行以上は、１行につき１５ずつ行幅を増やす規定があります。
（４行＝４５　５行＝６０・・・といった感じです。）

そこで、プレビュー表示での行数を取得するマクロ、もしくは関数などないでしょうか？？

行幅を設定するマクロは、勉強してなんとか解りましたが
行数を取得する方法を探しています。

LEN関数の文字数で判断しようにも、うまくいきませんでした・・・

データは毎月作成するもので、しかも大量です。
よい知恵がございましたら、ぜひご教授ください！！

よろしくお願いします。

回答No.1

ASIMOV · ベストアンサー

Excel は、画面表示と印刷（プレビュー）は別に処理しているらしいので、印刷時の行数取得は難しそうです

逆に条件を決め打ちするする事によって、行数を割り出してはどうでしょうか
１．フォントを等幅フォントにする（ＭＳゴッジク等Ｐの付かないフォント）
２．フォントサイズを固定する
そして、プレビューで一行の文字数を確認し、全文字数を一行文字数で割って、行数を出します

汎用性は無くなりますが、とりあえずということで．．．

お礼

お礼が遅くなってしまってごめんなさい！！

あれからいろいろ考えた結果、ＡＳＩＭＯＢさんのアドバイスを元に
なんとか作ってみました。

フォントを等幅にして、そこから２０文字づつ（約１行の長さ）
関係ないセルに「LIGHT」「MID」「LEFT」関数で切り出し（５行だとしたら５つのセルに）
それを「&」でつなぎなおし、「CHAR」で改行させるという力技です＾＾；

切り出し用のセルをいくつ使ったかで、行数がわかるので
なんとかなりそうです。

本当にありがとうございました！！
また何かありましたら、ぜひよろしくお願いします＾＾

補足

さっそくの回答ありがとうございます！！

やっぱり難しいのでしょうか・・・？？
ですが、すごいアドバイスです！！
道が見えてきました！！

アドバイスにそって、いろいろ試してみます＾＾
うまい方法が見つかったら、お礼の部分に載せます。
それでこそのデータベースですものね＾＾

それから締め切りますので
もうすこし待ってくださいね＾＾

本当にありがとうございました！！