もし、作業した年月日が今の年月日の1か月前と同じであるならば"〇"がつくマクロを苦みたい

Question

こんにちは。
現在VBAのマクロを学習しているものです。

現在、下記のようなことを実現しようとしていますが思うようにいかないためこの場にて質問をします。
どうぞよろしくお願いいたします。

##実現したいこと

「実行ボタン」を押下すると「対応済みかどうか」の列（＝D列）に"〇"が表示されるようにしたい。そのための第一歩として、実行ボタンを押下するとD2に「〇」を表示させたい。

##困っていること

現在のマクロで実行ボタンを押下しても、特に何も表示されません、、、、
A2には前月（9月）の日付が入っているため、想定通りであるならば動くはずなのですが、、、、

どこが間違っているのか、ご教授いただけますと幸いです。
どうぞよろしくお願いいたします。

##現在の私のマクロ

Sub 対応完了ボタン()

    If Month(A2) = Month(Now()) - 1 Then
    Worksheets("Sheet1").Cells(2, 4).Value = "〇"
    End If
    

End Sub

Comments

[y_waiwai]

一ヶ月前とは、３０日前？３１日前？日が一致しないとダメ？どれでしょう

[ypk]

ご指摘ありがとうございます。
日付というのは9/1~9/30までを想定しています

[meg_]

質問のコードは動きましたか？

Answer 1

まず他の回答者様が書かれている通り

Month("A2")

だと参照ではなくなるので

Month(Range("A2").Value)

と書きましょう

直したのが下の書き方

Sub 対応完了ボタン()
    If Month(Range("A2").Value) = Month(Now()) - 1 Then
        Worksheets("Sheet1").Cells(2, 4).Value = "〇"
    End If
End Sub

で実行するときちんと動きます
質問者様のシートを拝見すると["A2"]セルは#2020/09/10#で月は[9]
Month(Now()) - 1 で実行時点で10月なので値は[9]
あとは["Sheet1"]シートの2行名4列に○を設定する。

動いてはいるのですが、表記ゆれがある為うまく動かない時があります。
例としては「ボタンが設置されているのが["Sheet1"]シートではない場合」
書き方を統一して「ボタンが設置してあるシートに対して」として書き直します。

Sub 対応完了ボタン()
    If Month(Range("A2").Value) = Month(Now()) - 1 Then
        Cells(2, 4).Value = "〇"
    End If
End Sub

すべて省略形で揃えました

また逆にシートを厳密に指定したいのであれば

Sub 対応完了ボタン()
    If Month(Worksheets("Sheet1").Range("A2").Value) = Month(Now()) - 1 Then
        Worksheets("Sheet1").Cells(2, 4).Value = "〇"
    End If
End Sub

となります。

どちらにも利点欠点がありますが、よくここで質問される内容から
後者の書き方をオススメしておきます。

Comments

[ypk]

ご丁寧にありがとうございます、、、！シートを厳密に指定した方が良いのですね！
また、無事に動きました。ありがとうございました

[kuma_kuma_]

> シートを厳密に指定した方が良いのですね！
はい。よくここで目にするExcel上の質問で大体のうまくいかない理由が
「シートの指定を厳密に行っていなかった。」のが原因となっています。
基本で教えるなら「省略形」なのですが、後々間違いの元となりますのでこの様な回答とさせていただいています。

Answer 2

Month(A2)

その書き方だと「セルのA2」の値という意味になりません。

Option Explicit

Sub 対応完了ボタン()
MsgBox Month(A2)

If Month(Range("A2").Value) = Month(Now()) - 1 Then
    Worksheets("Sheet1").Cells(2, 4).Value = "〇"
End If

End Sub

Msgboxで表示してみたりしてどんな値が入っているか確認してみては？

「セルのA2の値」は、
Range("A2").Value
と書きます。

やってみたら、「12」が返ってくるけど何の値だろう。。。。。

Comments

[ypk]

ご丁寧にありがとうございます！
無事に動きました、、、！12について、ちょっと自分も確認してみます、、、！