- 745 名前：デフォルトの名無しさん mailto:sage [2008/02/12(火) 18:44:34 ]
- 質問です。
以下のが「スタック領域が不足しています」で通りません。
多分再帰が問題なんだろうけど、よくわかりません。
VistaのExcel2007です
If文以降に問題があると思うんですけど…
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ein As Integer
Dim Fin As Integer
Dim Year As Integer
Dim Month As Integer
Year = Range("C2").Value
Month = Range("E2").Value
Ein = Weekday(Year & Month & "1", 1)
Cells(5, 1 + Ein) = ("1")
If Month = 2 Then
Fin = 28
Else
Fin = 31
End If
Cells(10, 10).Value = Fin
End Sub
