VBA マクロについて
自作のカレンダーに自動で日付を判定、入力してくれる
ロジックを作っていたのですが、
2、4、6、9、11月以外は31日分表示されるはずが。。。
表示されませんでした。
恐らくロジックがおかしくて i=31 が通っていないものと
思われますが、ちょっとよく分かりません。
初心者で低レベルな質問ですけど、どなたかお願いします。
Sub AutoCarender()
'自動でカレンダーの日付を入力するプログラム
Dim month, i As Integer
'表示させたい月
month = 3
If (month = 2) Then
i = 28
ElseIf (month = 4 Or 6 Or 9 Or 11) Then
i = 30
Else
i = 31
End If
Dim tate, yoko As Integer
Dim week As Integer
week = (Weekday(2009 / month / 1, 2))
yoko = Choose(week, 1, 3, 5, 7, 9, 11, 13)
tate = 3
For j = 1 To i
'"シートの名前"を指定
Worksheets("Sheet1").Cells(tate, yoko).Value = j
yoko = yoko + 2
If (yoko > 13) Then
yoko = 1
tate = tate + 2
End If
Next
End Sub
