常用VBA函數(shù)資料

常用VBA函數(shù)精選前言我們平時在工作表單元格的公式中常常使用函數(shù)，Excel自帶的常用的函數(shù)多達300多個，功能強大，豐富多彩，但是在VBA中不能直接應(yīng)用，必須在函數(shù)名前面加上對象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)。而能在VBA中直接應(yīng)用的函數(shù)也有幾十個，下面將逐一詳細介紹常用的40個VBA函數(shù)，以供大家學(xué)習(xí)參考。第1.1例ASC函數(shù)一、題目：要求編寫一段代碼，運行后得到字符串”Excel”的首字母和”e”的ASCII值。二、代碼：Sub示例_1_01()DimmyNum1%,myNum2%myNum1=Asc("Excel")'返回69myNum2=Asc("e")'返回101[a1]="myNum1=":[b1]=myNum1[a2]="myNum2=":[b2]=myNum2EndSub三、代碼詳解1、Sub示例_1_01()：宏程序的開始語句。2、DimmyNum1%,myNum2%：變量myNum1和myNum2聲明為整型變量。也可以寫為DimmyNum1AsInteger。Integer變量存儲為16位（2個字節(jié)）的數(shù)值形式，其范圍為-32,768到32,767之間。Integer的類型聲明字符是百分比符號(%)。3、myNum1=Asc("Excel")：把Asc函數(shù)的值賦給變量myNum1。Asc函數(shù)返回一個Integer，代表字符串中首字母的字符的ASCII代碼。語法Asc(string)必要的string（字符串）參數(shù)可以是任何有效的字符串表達式。如果string中沒有包含任何字符，則會產(chǎn)生運行時錯誤。4、myNum2=Asc("e")：把Asc函數(shù)的值賦給變量myNum2。這里返回小寫字母e的ASCII代碼101。5、[a1]="myNum1=":[b1]=myNum1：把字符串“myNum1=“賦給A1單元格，把變量myNum1的值賦給B1單元格。Choose會根據(jù)index的值來返回選擇項列表中的某個值。如果index是1，則Choose會返回列表中的第1個選擇項。如果index是2，則會返回列表中的第2個選擇項，以此類推。Index是必要參數(shù)，數(shù)值表達式或字段，它的運算結(jié)果是一個數(shù)值，且界于1和可選擇的項目數(shù)之間。當(dāng)index小于1或大于列出的選擇項數(shù)目時，Choose函數(shù)返回Null。如果index不是整數(shù)，則會先四舍五入為與其最接近的整數(shù)。第1.4例Cos函數(shù)一、題目：要求編寫一段代碼，運用Cos函數(shù)根據(jù)指定角度的余弦計算其正割的值。二、代碼：Sub示例_1_04()Dimjiaodu,zengejiaodu=1.3zenge=1/Cos(jiaodu)MsgBox“角度為”&jiaodu&“的正割的值＝”&zengeEndSub三、代碼詳解1、Sub示例_1_04()：宏程序的開始語句。宏名為示例_1_04。2、Dimjiaodu,zenge：兩個變量都被指定為可變型數(shù)據(jù)類型。當(dāng)聲明常數(shù)、變量或參數(shù)時，若無指定數(shù)據(jù)類型則會自動的指定成Variant（可變型）數(shù)據(jù)類型。聲明成Variant數(shù)據(jù)類型的變量可以為字符串、日期、時間、Boolean或數(shù)值。3、jiaodu=1.3：把以“弧度”為單位的角度1.3賦給變量jiaodu。4、zenge=1/Cos(jiaodu)：利用1/余弦算得正割（sec()）的值，賦給變量zenge。Cos函數(shù)返回一個角的余弦值。其參數(shù)是表示一個以弧度為單位的角。5、MsgBox“角度為”&jiaodu&“的正割的值＝”&zenge：利用MsgBox函數(shù)顯示算得的正割（sec()）的值。第1.5例Date函數(shù)一、題目：要求編寫一段代碼，運用Date函數(shù)顯示系統(tǒng)日期的值。二、代碼：Sub示例_1_05()DimmyDatemyDate=DateMsgBox“系統(tǒng)日期為”&myDateEndSub三、代碼詳解1、Sub示例_1_05()：宏程序的開始語句。宏名為示例_1_05。2、DimmyDate：變量myDate被指定為可變型數(shù)據(jù)類型。3、myDate=Date：把系統(tǒng)日期的值賦給變量myDate。Date函數(shù)返回系統(tǒng)當(dāng)前的日期。4、MsgBox“系統(tǒng)日期為”&myDate：利用MsgBox函數(shù)顯示系統(tǒng)日期的值。第1.6例DateAdd函數(shù)一、題目：要求編寫一段代碼，運用DateAdd函數(shù)顯示返回一定間隔后的日期。二、代碼：Sub示例_1_06()DimdyrqAsDateDimjglxAsStringDimnAsIntegerDimMsgjglx="m"dyrq=InputBox("請輸入一個日期")n=InputBox("輸入增加月的數(shù)目：")Msg="新日期:"&DateAdd(jglx,n,dyrq)MsgBoxMsgEndSub三、代碼詳解1、Sub示例_1_06()：宏程序的開始語句。宏名為示例_1_06。2、DimdyrqAsDate：變量dyrq聲明為日期對象型數(shù)據(jù)類型。其余幾個變量分別是字符串型、整型和可變型變量。3、jglx="m"：用字符m來指定以“月份”作為間隔。4、dyrq=InputBox("請輸入一個日期")：用InputBox函數(shù)來讓用戶輸入一個日期，并把用戶輸入的日期賦給變量dyrq。5、n=InputBox("輸入增加月的數(shù)目：")：用InputBox函數(shù)來讓用戶輸入間隔月的數(shù)目，并把用戶輸入的值賦給變量n。6、Msg="新日期:"&DateAdd(jglx,n,dyrq)：用DateAdd函數(shù)計算得到的新的日期和字符串“新日期：”連接起來賦給變量Msg。DateAdd函數(shù)返回一個日期，這一日期加上了一個時間間隔。語法DateAdd(interval,number,date)DateAdd函數(shù)語法中有下列命名參數(shù)：interval必要。字符串表達式，是所要加上去的時間間隔。它具有好多設(shè)定值，比如”m”為月；”d”為日；”yyyy”為年等等。number必要。數(shù)值表達式，是要加上的時間間隔的數(shù)目。其數(shù)值可以為正數(shù)（得到未來的日期），也可以為負數(shù)（得到過去的日期）。date必要。表示日期的文字。7、MsgBoxMsg：利用MsgBox函數(shù)顯示Msg的值。第1.7例DateDiff函數(shù)一、題目：要求編寫一段代碼，運用DateDiff函數(shù)返回某個指定日期距離今天的天數(shù)。二、代碼：Sub示例_1_07()DimzdrqAsDateDimMsgzdrq=InputBox("請輸入一個日期：")Msg="離開今天的天數(shù):"&DateDiff("d",Now,zdrq)MsgBoxMsgEndSub三、代碼詳解1、Sub示例_1_07()：宏程序的開始語句。宏名為示例_1_07。2、DimzdrqAsDate：變量zdrq聲明為日期對象型數(shù)據(jù)類型。3、zdrq=InputBox("請輸入一個日期")：用InputBox函數(shù)來讓用戶輸入一個日期，并把用戶輸入的日期賦給變量zdrq。4、Msg="離開今天的天數(shù):"&DateDiff("d",Now,zdrq)：用DateDiff函數(shù)計算得到的結(jié)果和字符串“離開今天的天數(shù)：”連接起來賦給變量Msg。5、MsgBoxMsg：利用MsgBox函數(shù)顯示Msg的值。DateDiff函數(shù)可用來決定兩個日期之間所指定的時間間隔數(shù)目。例如，可以使用DateDiff來計算兩個日期之間相隔幾日，或計算從今天起到年底還有多少個星期。DateDiff(interval,date1,date2[,firstdayofweek[,firstweekofyear]])DateDiff函數(shù)語法中有下列命名參數(shù)：interval必要。字符串表達式，是所要加上去的時間間隔。它具有好多設(shè)定值，與DateAdd函數(shù)相同；此例中的"d"，表示天數(shù)；Date1，date2必要；計算中要用到的兩個日期。Firstdayofweek可選。指定一個星期的第一天的常數(shù)。如果未予指定，則以星期日為第一天。firstweekofyear可選。指定一年的第一周的常數(shù)。如果未予指定，則以包含1月1日的星期為第一周。第1.8例DatePart函數(shù)一、題目：要求編寫一段代碼，運用DatePart函數(shù)返回某個指定日期是在一年的哪一個季度。二、代碼：Sub示例_1_08()DimzdrqAsDateDimMsgzdrq=InputBox("請輸入一個日期:")Msg="季度:"&DatePart("q",zdrq)MsgBoxMsgEndSub三、代碼詳解1、Sub示例_1_08()：宏程序的開始語句。宏名為示例_1_08。2、DimzdrqAsDate：變量zdrq聲明為日期對象型數(shù)據(jù)類型。3、zdrq=InputBox("請輸入一個日期")：用InputBox函數(shù)來讓用戶輸入一個日期，并把用戶輸入的日期賦給變量zdrq。4、Msg="季度:"&DatePart("q",zdrq)：用DatePart函數(shù)計算得到的結(jié)果和字符串“季度：”連接起來賦給變量Msg。5、MsgBoxMsg：利用MsgBox函數(shù)顯示Msg的值。DatePart函數(shù)DatePart(interval,date,[,firstdayofweek[,firstweekofyear]])語法中有下列命名參數(shù)：interval必要。字符串表達式，是所要加上去的時間間隔。它具有好多設(shè)定值，與DateAdd函數(shù)相同；此例中的"q"，表示季度；Date，必要；計算中要用到的兩個日期。Firstdayofweek可選。指定一個星期的第一天的常數(shù)。如果未予指定，則以星期日為第一天。firstweekofyear可選。指定一年的第一周的常數(shù)。如果未予指定，則以包含1月1日的星期為第一周。第1.9例DateSerial函數(shù)一、題目：要求編寫一段代碼，運用DateSerial函數(shù)返回指定日期的Date類型。二、代碼：Sub示例_1_09()Dimzdrqzdrq=DateSerial(2008,8,8)MsgBoxzdrqEndSub三、代碼詳解1、Sub示例_1_09()：宏程序的開始語句。宏名為示例_1_09。2、Dimzdrq：變量zdrq聲明為可變型數(shù)據(jù)類型。3、zdrq=DateSerial(2008,8,8)：DateSerial函數(shù)轉(zhuǎn)換所得的結(jié)果賦給變量zdrq。DateSerial函數(shù)返回指定日期年月日的日期格式。語法DateSerial(year,month,day)DateSerial函數(shù)語法有下列的命名參數(shù)：year必要；整型。從100到9999間的整數(shù)，或一數(shù)值表達式。month必要；整型。任何數(shù)值表達式。day必要；整型。任何數(shù)值表達式。4、MsgBoxzdrq：利用MsgBox函數(shù)顯示zdrq的值。第1.10例DateValue函數(shù)一、題目：要求編寫一段代碼，運用DateValue函數(shù)返回指定日期的Date類型。二、代碼：