excel表格中的日期怎么通過vba計(jì)算日期所在季度?
我要評(píng)論excel中使用vba求當(dāng)前日期所在季度
Excel2003綠色版 EXCEL2003精簡(jiǎn)綠色版 (附excel2003綠色工具)
- 類型：辦公軟件
- 大?。?/span>13.3MB
- 語言：簡(jiǎn)體中文
- 時(shí)間：2012-06-19
1、首先我們打開一個(gè)工作樣表作為例子。
2、使用alt+f11組合快捷鍵進(jìn)入vbe編輯器，插入一個(gè)新的模塊，并在模塊中輸入以下代碼：
Sub 查詢季度()
Dim jd As Date
Dim Msg
jd = InputBox("請(qǐng)輸入一個(gè)日期:")
Msg = "季度: " & DatePart("q", jd)
MsgBox Msg
End Sub
3、我們聲明jd變量為日期類型，這里聲明Msg變量并沒有給出具體類型，所以vba會(huì)默認(rèn)為variant類型。
4、給jd變量賦值，我們使用inputbox函數(shù)，并設(shè)置一個(gè)提示“請(qǐng)輸入一個(gè)日期：”，然后使用datepart函數(shù)來對(duì)inputbox返回的日期值，進(jìn)行季度判斷。其參數(shù)為q。記住q的輸入必須以雙引號(hào)包括。
5、因?yàn)槲覀冞@里求的是指定日期所在的季度，所以不需要對(duì)星期天數(shù)起止或年度天數(shù)起止進(jìn)行判斷，也就是簡(jiǎn)寫了日期的參數(shù)。
6、我們運(yùn)行一下這個(gè)宏，指定日期為2016/8/19，來看看得到的結(jié)果。得到3季度，與正確答案一致。
相關(guān)推薦：
Excel怎么篩選介于兩個(gè)日期之間的數(shù)據(jù)?
excel輸入的數(shù)據(jù)直接顯示成日期格式該怎么辦?
相關(guān)文章
excel如何使用vba函數(shù)計(jì)算指定間隔月后的日期?
excel如何使用vba函數(shù)計(jì)算指定間隔月后的日期？很多朋友并不是很清楚，所以下面小編就為大家詳細(xì)介紹一下，不會(huì)的朋友可以參考本文，希望能對(duì)大家有所幫助2016-08-19- 今天小編為大家分享利用excel vba編程在窗體上畫盆子方法，教程很不錯(cuò)，值得大家學(xué)習(xí)，推薦到腳本之家，一起來學(xué)習(xí)吧2016-08-19
- 這篇教程主要是向腳本之家的朋友分享excel vba編程制作一個(gè)惡作劇小程序方法，教程比較基礎(chǔ)，但很不錯(cuò)，推薦過來，一起來學(xué)習(xí)吧2016-08-17
excel怎么借助vba畫一個(gè)簡(jiǎn)筆畫西紅柿?
excel怎么借助vba畫一個(gè)簡(jiǎn)筆畫西紅柿？excel中可以使用vba變成來繪制一些圖形，今天我們就來看看繪制一個(gè)簡(jiǎn)筆畫番茄的教程，很簡(jiǎn)單，需要的朋友可以參考下2016-08-17- 這篇教程是向腳本之家的朋友分享excel vba編程怎么畫西紅柿方法，教程很不錯(cuò)，值得大家學(xué)習(xí)，推薦過來，一起來學(xué)習(xí)吧2016-08-17
- excel中怎么使用vba查看字符串的asc值？我們想要查看某個(gè)字符串的asc的值，就可以使用vba來查看，具體該怎么實(shí)現(xiàn)呢？下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下2016-08-17
- excel怎么借用VBA繪制小卡車？excel中直接繪制圖形很困難，我們要借助vba窗體，下面我們就來看看詳細(xì)的畫法，很簡(jiǎn)單，需要的朋友可以參考下2016-08-16
- excel怎么使用vba一鍵隱藏所有工作表？excel中很多工作表機(jī)密性比較大，想要隱藏起來，該怎么隱藏呢？一個(gè)一個(gè)隱藏太慢，下面我們就來看看使用vba一鍵隱藏所有工作表的詳細(xì)2016-08-15
- excel怎么將表格中的美元轉(zhuǎn)換為人民幣？excel表格中全是美元，想將美元全部轉(zhuǎn)換成人民不，該怎么轉(zhuǎn)換呢？下面我們就來看看詳細(xì)的教程，需要的朋友可以參考下2016-08-14
- 這篇教程是向腳本之家介紹excel vba編程在窗體上畫微波爐方法，方法很簡(jiǎn)單的，有需要的朋友可以參考本文，希望能對(duì)大家有所幫助2016-08-12