最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

excel如何使用vba函數(shù)計(jì)算指定間隔月后的日期?

  發(fā)布時(shí)間:2016-08-19 16:13:23   作者:keoneo   我要評(píng)論
excel如何使用vba函數(shù)計(jì)算指定間隔月后的日期?很多朋友并不是很清楚,所以下面小編就為大家詳細(xì)介紹一下,不會(huì)的朋友可以參考本文,希望能對(duì)大家有所幫助

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

步驟

1、首先我們打開(kāi)一個(gè)工作樣表作為例子。

excel中使用vba計(jì)算指定間隔月后的日期

2、使用alt+f11組合快捷鍵進(jìn)入vbe編輯器,插入一個(gè)新的模塊,并在模塊中輸入以下代碼:

Option Explicit

Sub ddt()

Dim rq As Date

Dim lx As String

Dim n As Integer

Dim Msg

lx = "m"

rq = InputBox("請(qǐng)輸入一個(gè)日期")

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

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

MsgBox Msg

End Sub

excel中使用vba計(jì)算指定間隔月后的日期

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

excel中使用vba計(jì)算指定間隔月后的日期

4、稍微詳細(xì)的解釋一下代碼為什么會(huì)這樣寫(xiě),定義變量lx為一個(gè)字符串值,因?yàn)閐ateadd函數(shù)的必須參數(shù)1是一個(gè)字符串,這里做個(gè)定義其實(shí)等價(jià)于直接輸入。但是這樣便于閱讀。

excel中使用vba計(jì)算指定間隔月后的日期

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

excel中使用vba計(jì)算指定間隔月后的日期

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

excel中使用vba計(jì)算指定間隔月后的日期

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

相關(guān)文章

最新評(píng)論

砀山县| 富宁县| 内乡县| 夏津县| 东乡| 临泉县| 汽车| 莒南县| 稷山县| 玉溪市| 双柏县| 衢州市| 盘锦市| 崇义县| 东源县| 且末县| 新闻| 望城县| 偏关县| 伊宁县| 阿拉善左旗| 长春市| 平山县| 元阳县| 海城市| 松桃| 台州市| 昌吉市| 修文县| 鞍山市| 和田县| 阳西县| 元朗区| 翁牛特旗| 江津市| 木兰县| 江北区| 大方县| 海伦市| 苏州市| 汪清县|