VBAマクロ

質問

マクロボタンをクリックしてマクロを実行する事において、
マクロの実行が１年に１回だけしか有効に実行されないようにする為には
どのような記述をすれば良いでしようか。
２回目以降のクリックにおいては既に実行されている旨の表示が必要です。
宜しくお願いします。

回答No.3

taisuke555 · ベストアンサー

私の回答が悪かったのですが、質問の内容が変わってしまいましたね。

Range("a1").Value = Format(Date, "yyyy/m/d クリックしました。")
または
Range("a1").Value = Format(Date, "yyyy/mm/dd クリックしました。")

のようにすれば、2002/　と表示されます。
m/d,mm/dd　は 2月や3日のように１桁の場合、02や03のように前0を付けるか付けないかです。

★range("a1").value="=today()" はいりません。
---------------------------------------------------------------
---------------------------------------------------------------
・・・ではなくて、
Sub test()
　　With Range("A1")
　　　　If (.Value = "" Or .Value < DateSerial(Year(Date), 1, 1)) Then 'システム日付の年の１月１日より以前ならば
　　　　　　'１年に１度の処理
　　　　　　'ここに記入
　　　　　　.Value = Date 'システム日付をA1セルにセット
　　　　Else
　　　　　　MsgBox "１年に１度しか処理できません"
　　　　End If
　　End With
End Sub

として、A1セルの書式を　ユーザー設定で[yyyy/m/d "クリックしました"]
のようにしたらどうでしょう？という事です。

お礼

有り難うございました、大変助かりました。

回答No.2

taisuke555

もう１つの質問は、ここから来ているのでしょうか？

比較をしたい場合は、値が日付のみ入っている方が、比較しやすいと思いますので、

Range("a1").Value = Date
のみマクロで記述し、

A1セルの書式を　ユーザー設定で[yyyy/m/d "クリックしました"]
のように見た目だけ変更した方が楽かもしれません。

=Today()を入れてしまうと、ブックを開くたびに、日付が変更されてしまうので、
Dateの方がよいかと思います。

補足

有り難うございます、もう１つの質問の件ですが、
range("a1").value="=today()"
range("a1").value= date & "クリックしました。"
で　西暦が　02/ と二桁で表示されます、2002/ と４桁で表示出来るようにされるでしょうか。

回答No.1

taknt

過去にいつ実行されたのかをファイルかレジストリ、もしくはセル上に年月日時分をもたせ、それと比較したらいいと思いますよ。