Function TPB(myC As Range)
TPB = IIf(myC.Borders.LineStyle = xlNone, "0 ", "1")
End Function
Sub カレンダー作成()
Range("C6:I11").Value = ""
MakeCalendar
End Sub
Sub MakeCalendar()
'条件分岐を使ったプロシージャ
Dim nen As Integer, tsuki As Integer
nen = Range("G2").Value
tsuki = Range("W4").Value
Dim FirstDay As Date
'ユーザーが指定した年月の1日目を日付として生成
FirstDay = DateSerial(nen, tsuki, 1)
Dim lastDay As Integer
lastDay = Day(DateSerial(nen, tsuki + 1, 1) - 1)
Dim i As Integer
For i = 1 To lastDay
Cells(RowNo, ColumnNo).Value = i
If ColumnNo = 9 Then
ColumnNo = 3
RowNo = RowNo + 1
Else
ColumnNo = ColumnNo + 1
End If
Next
