EDateエラーの回避コードをおしえてください

質問

Excel2007でマクロ作成中の初心者です。

セルＧ2の1か月前の日付が、セルＭ5と同じときは、「計算済みです」として
それ以外は、更新しますか？のコードを作成中

Private Sub CommandButton3_Click()
Dim myBtn As Integer
Dim myMsg As String, myTitle As String
Sheets("計算").Select
If EDate(Range("G2").Value, -1).Value = Range("M5").Value Then
myMsg = Format(Range("G2").Value, "ggge年m月") & "分 は計算済みです。" & Chr(13) & "これを
　" & Format(Worksheets("管理").Range("D3").Value, "m月") & "分 に更新しますか？"
myTitle = "単価の確認"
myBtn = MsgBox(myMsg, vbYesNo + vbExclamation, myTitle)
End If
If myBtn = vbYes Then
Exit Sub
Sheets("計算").Select
End If
End Sub

ここまで作ったら、If EDateのところで「コンパイルエラー」が発生します。エラー回避のコード教えてください。

回答No.2

jin34 · ベストアンサー

If WorkSheetFunction.EDate(Range("G2").Value, -1) = Range("M5").Value Then
で通ると思いますが。。。
それでもだめならmyMsg=...の行に途中改行が入っていて半角スペース＆アンダーバーがないとか。

お礼

ご回答ありがとうございます。教えていただいたコードで完璧にできました。他のサイトでEDateは使えないという情報があったんで早合点してしまいました。ごめんなさい。

回答No.1

jin34

SUM関数みたいにワークシートに入力して使う関数はワークシート関数と呼ばれていて、
EDATE関数もそれに当たります。
これをマクロで使うときには関数の頭にWorkSheetFunction.を付けます。
ここではWorkSheetFunction.Edate(...となります。
ちなみにワークシートにこれを入力して使うときには、
エラーが出るとセルに”VALUE!"みたいな表示が出るだけですが、
マクロの場合は今回のようにコードの実行がストップしますので、
エラー回避するコーディングが必要になります。
がんばってください。

補足

VBAではEDATE関数はつかえず、かわりにDateAddが使えるそうです。やってみましたが、またまたエラー発生です。
どうすればいいのでしょうか。
If DateAdd("m", -1, Range("G2").Value = Range("M5").Value Then