Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


48238 / 76732 ←次へ | 前へ→

【33430】スピンボタンでの年と月の増減
質問  mickeypapa E-MAIL  - 06/1/11(水) 22:53 -

引用なし
パスワード
   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
2 hits

【33430】スピンボタンでの年と月の増減 mickeypapa 06/1/11(水) 22:53 質問
【33433】Re:スピンボタンでの年と月の増減 かみちゃん 06/1/11(水) 23:17 発言
【33439】Re:スピンボタンでの年と月の増減 mickeypapa 06/1/12(木) 9:03 お礼
【33437】Re:スピンボタンでの年と月の増減 ichinose 06/1/12(木) 7:17 発言
【33441】Re:スピンボタンでの年と月の増減 mickeypapa 06/1/12(木) 9:13 お礼
【33443】Re:スピンボタンでの年と月の増減 ichinose 06/1/12(木) 10:13 発言
【33484】Re:スピンボタンでの年と月の増減 mickeypapa 06/1/12(木) 17:38 お礼

48238 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free