- Excel VBA 質問スレ Part39 [転載禁止]©2ch.net
17 ：デフォルトの名無しさん[]：2015/12/02(水) 00:33:35.11 ID:BpyWczK7 - >>11
添削してみた
変数はわかりやすい名前にした方が良いと思うぞ
If z = 2 And Day(DateSerial(w, 2, 29)) = 29 Then
y = 29
Else: y = 28
If z = 4 Or z = 6 Or z = 9 Or z = 11 Then '変更
y = 30
Else: y = 31
End If
End If
For x = 1 To y
v = x * 2 '変更
Range("B3").Offset(0, v) = x
b = Weekday(DateSerial(w, z, x)) '変更
u = v + 1
Range("B3").Offset(0, u) = WeekdayName(b) '変更
Next x
|