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