|
ゴメンナサイ、泊数は本来要らないと思って適当に書いてありました
以下の様に修正して下さい
Private Sub ComboBox1_Change()
Dim i As Long
Dim dtmFirst As Date
Dim dtmEnd As Date
dtmFirst = ChangeDateType(ComboBox1.Value)
dtmEnd = DateAdd("m", 3, dtmFirst)
With ComboBox2
.Enabled = True
.Clear
For i = dtmFirst To dtmEnd
.AddItem Format(i, strDateForm)
Next i
End With
End Sub
のプロシージャを
Private Sub ComboBox1_Change()
Dim i As Long
Dim dtmFirst As Date
Dim dtmEnd As Date
dtmFirst = ChangeDateType(ComboBox1.Value)
dtmEnd = DateAdd("m", 3, dtmFirst)
With ComboBox2
.Enabled = True
.Clear
For i = dtmFirst To dtmEnd
.AddItem Format(i, strDateForm)
Next i
End With
TextBox1.Text = ""
End Sub
の様に
|
|