|
TextBoxとSpinButtonをそれぞれ
年 Spin
月 Spin
の様に配置して、スピンボタンで
それぞれ年と月の増減をさせようと考え以下のように
コードを書いたのですが、どうも力業のような感じで
日付として増減するには他に方法があるように思えるのですが
ご教授宜しくお願いいたします。
Private Sub spin1_SpinDown()'--------年
With txtYear
.Value = Val(.Value) - 1
End With
End Sub
Private Sub spin1_SpinUp()
With txtYear
.Value = Val(.Value) + 1
End With
End Sub
Private Sub spin2_SpinDown()'--------月
With txtMonth
If .Value = 1 Then
.Value = "12"
txtYear.Value = Val(txtYear.Value) - 1
Else
.Value = Val(.Value) - 1
End If
End With
End Sub
Private Sub spin2_SpinUp()
With txtMonth
If .Value = 12 Then
.Value = "1"
txtYear.Value = Val(txtYear.Value) + 1
Else
.Value = Val(.Value) + 1
End If
End With
End Sub
Private Sub UserForm_Initialize()
'----------------3ヶ月前のデータより呼び出す
txtYear = Format(DateAdd("M", -2, Date), "yyyy")
txtMonth = Format(DateAdd("M", -2, Date), "M")
End Sub
|
|