お世話になります。 あるEXCELシートのよくあるユーザーが作成したフォーム(報告書の類）が あります。その記述フィールドは複数のセルを結合させています。列幅は 調整することが禁じられていますが、記述フィールドが足りない場合は、行の 高さを広げることで入力文字数を増やすことができます。 手入力でこの報告書に入力する場合は、報告文が多少長くなっても行高さを 調整すマニュアルで程よく調整できるので普段は問題ありません。ところが このたび、この報告書をVBAで自動作成することになりました。 報告文の記述は、1行の場合もあるいし、10行以上になる場合もありデータ量 が一定ではありません。入力した文字数に合わせて行の高さを調整するスマート な方法をご存知ないでしょうか。 セルが結合されていない１つのセルの場合は、行に対してAutoFitをすれば 高さがピッタリに調整されるのですが、結合セルではAutFitすると1行デフォルト高さに強制設定されて1行分しか報告文が見えなくなってしまいます。 入力フィールドの列幅は固定なので、1行当たり折り返しなく入力できる文字数 を数えておいて、入力する文字数をその1行当たりの文字数で割り、何行分の 文字列なのかを得て、それに合う行高さを設定すればよいと思いますが・・・ もっとスマートな方法はないでしょうか。（この方法ではフォントサイズが 変更されると使えません。） 尚、結合セル配置仕様は、折り返して全体表示、左詰め、上詰めです。 何かよいテクニックがあればアドバイスいただけないでしょうか。 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

お世話になります。説明の記述がわかりにくかったので簡潔に書き直させてく ださい。 再現方法： Sub test() '下記のようにひとつのセルに長い文字列を入れた場合は、AutoFitする 　　’ことで全文字列が表示されるようにそのセル高さが自動調整される。 With Range("A1") 'マージなし　.MergeCells = True .HorizontalAlignment = xlLeft .VerticalAlignment = xlTop .WrapText = True .Value = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" .EntireRow.AutoFit End With 　　’ところが、下記のように複数のセルを結合させた領域に長い文字列 　　’を入力してAutoFitしてもデフォルトのセル高さに強制設定されて 　　’しまい、入力した文字列をすべて表示できない。 　　’結局画面を見ながら手動でセルの高さを調整するしかない。 　　’ 　　’質問： 　　’VBAを使って入力される文字のフォントの種類、サイズにかかわらず、 　　’結合セルに入力した文字列全体が表示できるセル高さに調整すること 　　’はできないでしょうか。 　　’ With Range("A2:B2") .MergeCells = True .HorizontalAlignment = xlLeft .VerticalAlignment = xlTop .WrapText = True .Value = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" .EntireRow.AutoFit End With End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS      ⇒Windows XP Version⇒Excel 2003 ++++++++++++++++++++

こんにちわ ちょっと以下を試してみて下さい。 Sub Test_1() ' まっさらな行に実行 With Range("A3:B3") .UnMerge .Clear .Cells(1).Value = String(47, "a") .HorizontalAlignment = xlCenterAcrossSelection .VerticalAlignment = xlTop .WrapText = True .Merge .HorizontalAlignment = xlLeft End With End Sub Sub Test_2() ' 確実に実行 Dim MyA As Variant With Range("A3:B3") ' C列 以降同行の情報 MyA = .EntireRow.Cells(3).Resize(, Columns.Count - 2).Formula ' ↓ 何処かまっさらな行をコピー .Worksheet.Rows(10000).Copy .EntireRow .Cells(1).Value = String(47, "a") .HorizontalAlignment = xlCenterAcrossSelection .VerticalAlignment = xlTop .WrapText = True .Merge .HorizontalAlignment = xlLeft .EntireRow.Cells(3).Resize(, Columns.Count - 2).Formula = MyA End With Erase MyA End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

appleさん、 ご提案の方法で私の問題は解決できました。本当にありがとうございました。 ところで、もしご存知でしたら参考のため下記の2点を教えていただけますで しょうか。 １．教えていただいた手順を手動で操作するとVBA実行と結果が異なりました。 手動の場合、最後のMergeの操作で行の高さがかなり大きくなりぴったりに なりません。 ２．まっさらなセルの上で操作しないと求められる結果が得られません。（ アドバイスのとおり）。 上記2点には、それぞれ何か理屈があるのでしょうか。 appleさんがどのようにして今回の解決方法を見つけられたのかとても不思議 です。偶然見つけられのでしょうか。 いずれにせよ、すごい裏技だと感心しきりです。 ありがとうございました。

こんにちわ ＞上記2点には、それぞれ何か理屈があるのでしょうか それはわたしには分かりません。 ' 実はずっと前に「同様の質問」がありました。 ＞どのようにして今回の解決方法を見つけられたのか 結合してない複数列範囲（１行）において、長い文字列を入力して 「書式」→「セル」→「配置」として、 「横位置：選択範囲内で中央」、「文字の制御：折り返して全体を表示する」とした時 「行高」が「自動的に調整される場合」と「調整されない場合」があることには気付いていました。 その理由について、色々とやってみた時 何もいじっていない新規シートのセルならば「自動的に調整される」という事に気付きました。 ならば、下方のまっさらな行をコピーしてみたらどうだろうと試してみた結果が今回のコードです。 （それを「結合セルの場合」にということで多少アレンジしてます。）

appleさん、ありがとうございました。