エクセル マクロ 列幅は固定、行高さのみ可変＋余白

質問

こんにちは。

列幅は固定にしたいが、行高さは入力内容に従って「全体を折り返して表示」し且つ上下に少し余白を設けたいと思っています。

「全体を折り返して表示」にしても、フィルター操作などでいじっている内に行高さが不足してちゃんと全体を表示しなくなってしまいます。

そこで、ネットを探していたら列幅と行高さを共にフィットさせてかつ余白を設けるマクロは見つけたのですが、列幅が動いては困るのです。

列幅に関わるのであろう箇所を削除して使用するとどうにも不安定というか、ちゃんとできる事もあればできない事もあり。。。
コードは変えてないのに。。。

列幅は固定しつつ、行高さのみ可変＋余白にするコードを教えて頂けますでしょうか。
よろしくお願いします。

EXCEL2010
Windows7

回答No.1

keithin

簡易版：
sub macro1()
　dim h as range

　cells.wraptext = true
　cells.verticalalignment = xlcenter
　rows.autofit

　for each h in activesheet.usedrange.columns(1).cells
　　h.rowheight = h.height + 8
　next
end sub

＞フィルター操作などでいじっている内に行高さが不足してちゃんと全体を表示しなくなってしまいます

通常、例えばオートフィルタを操作して行高さが変わることはありません。
あなたが「フィルター操作」で具体的に一体何をしているのかは不明なので、その意味で上記のサンプルはあくまでも簡易版です。具体的に何をしたら（たとえば「並べ替えを行った」など）困りごとが起こるのか、もうちょっと具体的な状況を添えて別途のご相談で問題を解決してください。

お礼

ご回答ありがとうございます。

お礼が遅れて申し訳ありません。
当のツールがどうにもならないエラーが出てしまい(昨日は生きているのですが)、エラーがうるさいので消す方法も解らず、新しく１から作る事になり頭がいっぱいになってしまっていました。

どーっと通して作っていたので、お教え頂いたコードでできたかどうか今は解らないのですが、とにかく今は列固定の高さfitができています。

ありがとうございます！