[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『連結したセルをAutoFit』(こら)
カレンダーを作成し、日付の下の1セル内に、別シートからデータを転記していたのですが、転記データが1セル内に収まらなくなってしまったため、下記のようなカレンダーに変えました。
ここでの各日付の下の2行は日付列ごとに連結しているものと考えてください。
この連結したセルを、AutoFitで自動で高さを変更したいのですが、どのようにしたらよいでしょうか。
A B C D E F G 1 2 日 月 火 水 木 金 土 3 25 26 27 28 1 2 3 4 5 6 4 5 6 7 8 9 10 7 8 9 11 12 13 14 15 16 17 10 11 12 18 19 20 21 22 23 24 13 14 15 25 26 27 28 29 30 31 16 17 18 1 2 3 4 5 6 7 19 21
< 使用 Excel:Excel2016、使用 OS:Windows10 >
Sub test() Dim i As Long Dim iH As Double
iH = Range("A3").Font.Size
For i = 3 To 21 Step 3 Rows(i + 2).RowHeight = iH - Rows(i & ":" & i + 1).RowHeight Next i End Sub
ただし、セルにはマージンがあるようなのと、数字は下気味になるので、縦位置中央揃えだと、下がって感じると思います。 下詰めにしておいて、もう少し高さを減らすように調整すると、良い感じになる事でしょう。
(???) 2018/03/13(火) 16:50
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.