[[20180313152931]] 『連結したセルをAutoFit』(こら) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『連結したセルを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 >


例えば、以下のように3行目高さだけ伸ばすとか。

 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.