[Excel] 結合セルを含んだ行の高さを自動調整するVBA Mar022010 Author: ゴリ丸 Categories: その他, IT関連 Tags: Excel, VBA, 変換 Bookmarks: 人が登録 Prev Page: ThunderbirdでURLをクリックしてもブラウザが開かなくなった場合の対処 Excelの仕様で、結合セルを含んだ行に対しては、高さの自動調整がうまく動作しません。 VBAではRangeオブジェクトにAutoFitメソッドがありますが、これも結合セルでは同じく正常に動作しません。 それを解決するVBAを作りました。といっても、元ネタは以下のページのコードです。 エクセルで結合したセルの高さの自動調整方法?(1/1) | OKWave いくつか改善したポイントがあります。 行全体選択、列全体選択、シート全体選択時でも、処理対象セルが膨大にならない
こんにちは。わたしの環境は Excel2000ですが、 標準の機能で自動調整はできないと思います。 マクロで実現するなら以下になります。 Sub Macro1() Dim rStart As Long Dim rEnd As Long Dim lHeight As Long Dim rRng As Range Set rRng = Selection With rRng If Not .MergeCells Or .Rows.Count = 1 Then Exit Sub .MergeCells = False With .Rows(1) rStart = .Row .EntireRow.AutoFit lHeight = .Height End With rEnd = rStart + .Rows.Count - 1 .MergeCells = True Range(Rows(rStar
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く