日付をかえるボタンを作りたいのですが・・・。

質問

こんにちは。
Excel2000を使って、次のようなことはできるのでしょうか？

セルＡ１に任意の日付が入っています。
ボタンのような物を押すと、その日付が次の日になる、
そんなボタンを作りたいのです。
書類を１か月分まとめて印刷するのですが、
いちいち日付をかえるのが面倒なので。

マクロを使うのかなという気はするのですが、
いざやってみようと思うと、うまくいきません。
どうすればいいのでしょうか？

回答No.2

oneworld · ベストアンサー

１．コントロールツールでボタンをシート上に作成します。
２．作成したボタンをダブルクリックします。
３．VBA画面に下記の文がでます。
　　　Private Sub CommandButton1_Click()

　　　End Sub
４．そこの中に下記の文を貼り付けて下さい。
　　　Cells(1, 1).Value = DateAdd("d", 1, Cells(1, 1).Value)

セルA1はセルA1の日付に１日を加えた日付　とゆう意味になります。

お礼

早速のご回答ありがとうございました。
ボタン、出来上がりました。
ところで、出来上がったボタンの名称を変更することってできますか？

できるようでしたら方法を教えていただきたいのですが・・・。
すみません、質問の要領が悪くて申し訳ないです。

回答No.4

oneworld

No.２です。
モジュールに記述しない方法としては
ボタンをデザインモードで選択時に
コントロールツールボックスのプロパティでset出来ます。
Caption項目にボタンの名称を入力します。
その他各種の変更も項目ごとに設定して遊んでみて下さい。

お礼

さっそく補足をして頂いてありがとうございます。
細かいことだからまあいいかな、とも思っていたんですが、
やっぱり思い通りにできるとうれしいものです。

助かりました。ありがとうございます。

プロパティの中にはいろいろな項目があったので
いろいろいじってみたいと思います。

回答No.3

imogasi

コマンドボタンの表示変更。色変更のコードもおまけ。
Mojule1の方に、下記を貼り付け、実行。
Module1の追加はＡＬＴ＋Ｆ１１でＶＢＥ画面と成る。
ＡＬＴ＋Ｉ、ＡＬＴ＋Ｍです。
Sub test01()
Worksheets("sheet1").CommandButton1.Caption = "翌日"
Worksheets("sheet1").CommandButton1.BackColor = vbYellow
Worksheets("sheet1").CommandButton1.ForeColor = vbBlue
End Sub

お礼

さっそく補足をして頂いてありがとうございます。
細かいことだからまあいいかな、とも思っていたんですが、
やっぱり思い通りにできるとうれしいものです。

助かりました。ありがとうございます。

回答No.1

imogasi

日付けが入っているセルをＡ１と仮定します。
もしＡ１の日付が（文字列でなく）日付形式なら（例
2002/9/22）簡単です。たった１行、それも＋１するだけ。
Private Sub CommandButton1_Click()
Cells(1, 1) = Cells(1, 1) + 1
End Sub
セルがＢ３ならCells(3,2)のようになります。

お礼

早速のご回答ありがとうございました。
ボタン、出来上がりました。
ところで、出来上がったボタンの名称を変更することってできますか？

できるようでしたら方法を教えていただきたいのですが・・・。
すみません、質問の要領が悪くて申し訳ないです。