今天小編為大家分享excel中使用vba計算指定間隔月后的日期方法，不會的朋友可以參考本文，希望能對大家有所幫助！

步驟

1、首先我們打開一個工作樣表作為例子。

2、使用alt+f11組合快捷鍵進入vbe編輯器，插入一個新的模塊，并在模塊中輸入以下代碼：

Option Explicit

Sub ddt()

Dim rq As Date

Dim lx As String

Dim n As Integer

Dim Msg

lx = "m"

rq = InputBox("請輸入一個日期")

n = InputBox("輸入增加月的數(shù)目：")

Msg = "新日期:" & DateAdd(lx, n, rq)

MsgBox Msg

End Sub

3、這里我們先對變量做聲明，其中rq變量為日期類型，lx為字符串，n為整數(shù)型。msg我并沒有設(shè)置具體類型，vba會將其默認(rèn)為可變類型variant。

4、稍微詳細(xì)的解釋一下代碼為什么會這樣寫，定義變量lx為一個字符串值，因為dateadd函數(shù)的必須參數(shù)1是一個字符串，這里做個定義其實等價于直接輸入。但是這樣便于閱讀。

5、輸入日期我們并沒有做錯誤糾正，那么只有對excel了解的人，才會輸入正確的日期格式，這里我只做一個簡單的示例，提示大家輸入2016/8/19這樣的格式日期。增加的月數(shù)我們是賦值給了n這個變量。

6、最后用msgbox來輸出最后的結(jié)果，其中，dateadd函數(shù)的第一參數(shù)是以月增加，第二參數(shù)是增加數(shù)，第三參數(shù)是指定的日期。運行代碼我們可以得到結(jié)果。增加20個月后的結(jié)果。

以上就是excel如何使用vba函數(shù)計算指定間隔月后的日期方法介紹，操作很簡單的，大家學(xué)會了嗎?希望這篇文章能對大家有所幫助！