コードの簡略化(変数を少なくできますか?)
カレンダーの作成(4ヶ月分)で
月、曜日、月-日、Do_ITを書き出すセル幅及び高さを
VBAのコードでそれぞれ指定しています。
現在、以下のコードですが
いかにも変数(i2-i10)の数が多くと無駄のように思えます。
もう少し、スッキリ短く成るコードに出来ませんか ?
Dim i1 As Integer, i2 As Integer, i3 As Integer, i4 As Integer
Dim i5 As Integer, i6 As Integer, i7 As Integer, i8 As Integer
Dim i9 As Integer, i10 As Integer
'セル幅の調整
Columns("B:H").ColumnWidth = 10
'セルの高さ調整 (月の行)
For i1 = 1 To 40 Step 13
Rows(i1).RowHeight = 14
Next
'セルの高さ調整 (曜日の行)
For i2 = 2 To 41 Step 13
Rows(i2).RowHeight = 14
Next
'セルの高さ調整(月-日の行)
For i3 = 3 To 11 Step 2
Rows(i3).RowHeight = 16
Next
'セルの高さ調整(月-日の行)
For i4 = 16 To 24 Step 2
Rows(i4).RowHeight = 16
Next
'セルの高さ調整 (月-日の行)
For i5 = 29 To 37 Step 2
Rows(i5).RowHeight = 16
Next
'セルの高さ調整 (月-日の行)
For i6 = 42 To 50 Step 2
Rows(i6).RowHeight = 16
Next
'セルの高さ調整 - Do it
For i7 = 4 To 12 Step 2
Rows(i7).RowHeight = 40
Next
'セルの高さ調整 - Do it
For i8 = 17 To 25 Step 2
Rows(i8).RowHeight = 40
Next
'セルの高さ調整 - Do it
For i9 = 30 To 38 Step 2
Rows(i9).RowHeight = 40
Next
'セルの高さ調整 - Do it
For i10 = 43 To 51 Step 2
Rows(i10).RowHeight = 40
Next
お礼
ASP + VBScript のようです 勉強になりました