[[20041205000628]]　『VBAでEOMONTH[開始日、月]』（Nori）　ページの最後に飛ぶ

『VBAでEOMONTH[開始日、月]』（Nori）

こんばんは。

VBAでプログラムをつくっているのですがいきづまったのでご相談いたします。

実は「年」と「月」(例2005年1月など)を表した変数にひと月足した値を出力したいと思っているのですが、
下記のようにやると「SubまたはFunctionが定義されていません」と出てしまいます。
何がいけないのでしょうか？

ちなみにComboBox3には2005年や2006年など年を入れ
ComboBox4には1や2など月を入れているのですが、
aだけなら○○年○○月とちゃんと値を出力します。

VBAではEOMONTH関数は使えないのでしょうか？
もし使えないようなら代わりになるようなものはありませんでしょうか？
Functionプロシージャなどに変え色々試してみたのですが、
どうしてもできないのでよろしくお願いいたします。

Private Sub CommandButton1_Click()

    Dim a As Date, x As Date

　　　　a = ComboBox3.Text & ComboBox4.Text & "月"

        x = EOMONTH(a, 1)

    Range("az64").Value = x
End Sub

 DateAdd 関数 を使っては？　
 (INA)

 発想を変えて記録してみる。。。だめかな？？？
v(=∩_∩=)v
（SoulMan）
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2004/12/5  ユーザー名 : SoulMan
'

    Range("E4").Select
    ActiveCell.FormulaR1C1 = "=EOMONTH(2004/12/5,1)"
End Sub

こんばんは。

書き込みが遅くなってすいません。
また、INAさん、SoulManさん貴重なアドバイスをありがとうございます。

早速INAさんのアドバイスどおりやったらできました！！

念のため成功したものを書いておきます。

Private Sub CommandButton1_Click()

    Dim a As Date, x As Date

　　　　a = ComboBox3.Text & ComboBox4.Text & "月"

        x = DateAdd("m", 1, a)

　　Range("az64").Value = x
End Sub

SoulManさんにおきましても「発想をを変える」という貴重なヒントを教えて頂き本当にありがとうございます。

お世話になってばかりで申し訳ございませんが、また何かあったらよろしくお願いいたします。

コメント返信：