セルの日付をボタンで変えるには？

質問

セルA1に2005年1月という書式で日付が入っているのですが（シリアル値で。日は1日で固定）、この日付を、ボタンで変更したいです。

［前月］ボタン　月を1減らす
［次月］ボタン　月を1増やす
［前年］ボタン　年を1減らす
［次年］ボタン　年を1増やす

ということをコマンドボタンで行いたいと思っています。

Formatを駆使すればなんとかできそうなのですが、もっとましな方法はないでしょうか。

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

>Formatを駆使すればなんとかできそうなのですが、
Formatは関係ないのでは？
DateAdd関数で出来ると思います。
+1年の場合だと、

Range("A1").Value = DateAdd("yyyy",1,Range("A1").Value)

後は、ヘルプを参照して下さい。

回答No.4

imogasi

A1に2005/1/1といれ、書式をyyyy"年"mm"月"としておきます。
シート上にコマンドボタンを１つ貼りつけ、ダブルクリックするとＶＢＥ画面になり
Private Sub CommandButton1_Click()
End Sub
となりますから、下記１行入れます。
Private Sub CommandButton1_Click()
Cells(1, 1) = DateSerial(Year(Cells(1, 1)), Month(Cells(1, 1)) + 1, 1)
End Sub
デザインモードを脱して、ボタンをクリックすると
2005年01月
2005年02月
2005年03月
・・・
と進みます。
前月ボタンは
Month(Cells(1, 1))-1
に変えれば良い。
なおボタンはＣａｐｔｉｏｎを次月や前月に設定すること。
前年、翌年も
Year(Cells(1, 1))+1
などで出来ます。

回答No.2

imogasi

A1に2005/1/1といれ、書式をyyyy"年"mm"月"としておきます。
シート上にコマンドボタンを１つ貼りつけ、ダブルクリックするとＶＢＥ画面になり
Private Sub CommandButton1_Click()
End Sub
となりますから、下記１行入れます。
Private Sub CommandButton1_Click()
Cells(1, 1) = DateSerial(Year(Cells(1, 1)), Month(Cells(1, 1)) + 1, 1)
End Sub
デザインモードを脱して、ボタンをクリックすると
2005年01月
2005年02月
2005年03月
・・・
と進みます。
前月ボタンは
Month(Cells(1, 1))-1
に変えれば良い。
なおボタンはＣａｐｔｉｏｎを次月や前月に設定すること。
前年、翌年も
Year(Cells(1, 1))+1
などで出来ます。

回答No.3

imogasi

A1に2005/1/1といれ、書式をyyyy"年"mm"月"としておきます。
シート上にコマンドボタンを１つ貼りつけ、ダブルクリックするとＶＢＥ画面になり
Private Sub CommandButton1_Click()
End Sub
となりますから、下記１行入れます。
Private Sub CommandButton1_Click()
Cells(1, 1) = DateSerial(Year(Cells(1, 1)), Month(Cells(1, 1)) + 1, 1)
End Sub
デザインモードを脱して、ボタンをクリックすると
2005年01月
2005年02月
2005年03月
・・・
と進みます。
前月ボタンは
Month(Cells(1, 1))-1
に変えれば良い。
なおボタンはＣａｐｔｉｏｎを次月や前月に設定すること。
前年、翌年も
Year(Cells(1, 1))+1
などで出来ます。