常用EXCELVBA函數(shù)

1、常用VBA函數(shù)精選By藍(lán)橋玄霜目錄前言第1例ASC函數(shù)第L2例Chi函數(shù)第1.3例Choose函數(shù)第1.4例Cos函數(shù)第L5例Date函數(shù)第1.6例DateAdd函數(shù)第L7例DateD逬函數(shù)第1.8例DatePart函數(shù)第1.9例DateSerial函數(shù)第1.10例DateMlue函數(shù)第1.11例Day函數(shù)第1.12例Dir函數(shù)第L13例Fix函數(shù)第1.14例Format函數(shù)第1.15例Hour函數(shù)第1.16例IIF函數(shù)第1.17例InputEox函數(shù)第1.18例Instr函數(shù)第1.19例InstrRev函數(shù)第1.20例IsArray函數(shù)第1.21例IsNumeric函數(shù)第1.22例Join函

2、數(shù)第1.23例LBound和UBound函數(shù)第1.24例LCase和UCase函數(shù)第L25例Left和Right函數(shù)第L26例Len函數(shù)第1.27例LTiim、RTmn與Trim函數(shù)第L28例Mid函數(shù)第1.29例Month和MonthName函數(shù)第1.30例MsgBox函數(shù)第1.31例Now函數(shù)第1.32例RGB函數(shù)第1.33例Rnd函數(shù)第1.34例Round函數(shù)第1.35例Split函數(shù)第1.36例Sqr函數(shù)第1.37例StT和CStr函數(shù)第1.38例lime函數(shù)第1.39例TimeSerial和TimeQlue函數(shù)第1.40例Timer函數(shù)刖弓我們平時在工作表單元格的公式中常常使用函數(shù)，

3、Excel自帶的常用的函數(shù)多達(dá)300多個,功能強(qiáng)人，豐富多彩，但是在VBA中不能直接應(yīng)用，必須在函數(shù)名前面加上對象，比如:Application/WzdrksheetFiinction.Sum(argl,arg2,arg3)。而能在VBA中直接應(yīng)用的函數(shù)也有幾十個，下面將逐一詳細(xì)介紹常用的40個VBA函數(shù),以供犬家學(xué)習(xí)參考。第1.1例ASC函數(shù)一、題目：要求編寫一段代碼，運(yùn)行后得到字符串”Excel”的首字母和”e”的ASCH值。二、代碼：Sub示例_01()DunmyNuml%,myNum2%myNuml=Asc(HExceln)，返回69myNuin2=Asc(Hen)返回101al=my

4、Numl=Tbl=myNumla2=MmyNum2=H:b2=myNuni2EndSub三、代碼詳解1、Sub示例_01()：宏程序的開始語句。2、DunmyNuml%,myNuni2%：變量myNuml和myNuni2聲明為整型變量。也可以寫為DimmyNumlAsIntegeroInteger變量存儲為16位(2個字節(jié))的數(shù)值形式，其范圍為-32,768到32,767之間。Integer的類型聲明字符是百分比符號()。3、myNuml=Asc(”Excel”)：把Asc函數(shù)的值賦給變量myNuml。Asc函數(shù)返回一個Integer,代表字符串中首字母的字符的ASCD代碼。語法Asc(sti

5、ing)必要的stimg(字符串)參數(shù)可以是任何有效的字符串表達(dá)式。如果stung中沒有包含任何字符，則會產(chǎn)生運(yùn)行時錯誤。4、myNum2=Asc(e)：把Asc函數(shù)的值賦給變量myNum2。這里返回小寫字母e的ASCII代碼101。5、al=HmyNuml=bl=myNuml:把字符串“myNuml=賦給Al單元格，把變量myNuml的值賦給Bl單元格。6、a2=HmyNum2=H:b2=myNuin2：把字符串umyNum2=賦給A2單元格,把變量myNum2的值賦給B2單元格。7、EndSub：程序的結(jié)束語句，和“Sub示例_1_01()”相對應(yīng)。第1.2例Chr函數(shù)一、題目”：要求編寫

6、一段代碼，運(yùn)用ch-函數(shù)將asch值轉(zhuǎn)換為對應(yīng)的字符。二、代碼：Sub示例_02()DimmyCliar1$,myChar2SmyCharl=Clir(69)，返回E。myChar2=Clir(lOl)返回e。al=myCharl=:bl=myCharla2=myChar2=:b2=myChar2EndSub三、代碼詳解1、Sub示例_02()：宏程序的開始語句。2、DimmyChar1S,myChar2$:變量myChar1和myCliar?聲明為字符串變量。也可以寫為DimmyCharlAsStimg。String之字符碼的范闈是0到255。字符集的前128個字符(0到127)對應(yīng)于標(biāo)準(zhǔn)的

7、U.S.鍵盤上的字符與符號。這前128個字符與ASCII字符集中所定義的相同。后128個字符(128到255)則代表特殊字符，例如國際字符，重音符號，貨幣符號及分?jǐn)?shù)。Strmg的類型聲明字符為美元號($)。3、myCharl=C1m(69)：把Chi(69)的值賦給變量myCharl。這里返回人寫字母E。Chr函數(shù)根據(jù)字符代碼返回一個字符。語法Chi-(charcode)必要的cliarcode(字符代碼)參數(shù)是用來識別某字符的。4、myChar?=C1m(101)：把Chr函數(shù)的值賦給變量myChar2。這里返回小寫字母e。5、al=myChar1=bl=myCharl:把字符串“myCha

8、r1=“賦給Al單元格,把變量myCharl的值賦給Bl單元格。6、a2=myChar2=:b2=myChar2：把字符串“myChar2=“賦給A2單元格，把變量myChar2的值賦給B2單元格。7、EndSub：程序的結(jié)束語句，和“Sub示例_02()”相對應(yīng)。第1.3例Choose函數(shù)一、題目：要求編寫一段代碼，運(yùn)用Choose函數(shù)根據(jù)指定數(shù)字選擇對應(yīng)的字符串。二、代碼：Sub示例_03()DimNum%Num=2MsgBoxChoose(Nuni”一月役”二月”三月”)EndSub三、代碼詳解1、Sub示例103()：宏程序的開始語句。宏名為示例103。2、DunNum%:變量Num聲

9、明為整型變量。3、Nuuf2:把2賦給變量Num。4、MsgBoxChoose(Num,H一月”，”二月”，”三月”):Choose函數(shù)從參數(shù)列表中選擇并返回一個值。語法Choose(mdex,choice-1,choice-2,.,choice-n)Choose會根據(jù)mdex的值來返回選擇項(xiàng)列表中的某個值。如果mdex是1,則Choose會返回列表中的第1個選擇項(xiàng)。如果index是2,則會返回列表中的第2個選擇項(xiàng)，以此類推。Index是必要參數(shù)，數(shù)值表達(dá)式或字段，它的運(yùn)算結(jié)果是一個數(shù)值，且界于1和可選擇的項(xiàng)目數(shù)之間。當(dāng)index小于1或人于列出的選擇項(xiàng)數(shù)目時，Choose函數(shù)返回Null。如

10、果index不是整數(shù)，則會先四舍五入為與其最接近的整數(shù)。第1.4例Cos函數(shù)一、題目：要求編寫一段代碼，運(yùn)用Cos函數(shù)根據(jù)指定角度的余弦計(jì)算其正割的值。二、代碼：Sub示例_04()Dimjiaodu,zengejiaodu=1.3zenge=1/CosQiaodu)MsgBox“角度為”&jiaodu&“的正割的值=”&zengeEndSub三、代碼詳解1、Sub示例_04()：宏程序的開始語句。宏名為示例_04。2、Dimjiaodu,zenge:兩個變量都被指定為可變型數(shù)據(jù)奨型。當(dāng)聲明常數(shù)、變量或參數(shù)時，若無指定數(shù)據(jù)類型則會自動的指定成Variant(可變型)數(shù)據(jù)類型。聲明成Aanant

11、數(shù)據(jù)類型的變量可以為字符串、口期、時間、Boolean或數(shù)值。3、jiaodu=1.3:把以“弧度”為單位的角度1.3賦給變量jiaodiu4、zenge=1/Cos(jiaodu):利用1/余弦算得正割(sec()的值，賦給變量zenge。Cos函數(shù)返回一個角的余弦值。其參數(shù)是表示一個以弧度為單位的角。5、MsgBox角度為”&jiaodn&“的正割的值=”&zenge:利用MsgBox函數(shù)顯示算得的正割(sec()的值。第1.5例Date函數(shù)一、題目：要求編寫一段代碼，運(yùn)用Date函數(shù)顯示系統(tǒng)口期的值。二、代碼：Sub示例_05()DimmyDatemyDate=DateMsgBox“系統(tǒng)

12、口期為”&myDateEndSub三、代碼詳解1、Sub示例105()：宏程序的開始語句。宏名為示例105。2、DunmyDate:變量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ù)一、題目：要求編寫一段代碼，運(yùn)用DateAdd函數(shù)顯示返回一定間隔后的口期。二、代碼：Sub示例_1_06()DimdyrqAsDateDimjglxAsStringDimnAsIntegerDimMsgjglx=dyr

13、q=InputBox(H請輸入一個口期”)n=IiiputBox(輸入增加月的數(shù)目：)Msg=”新口期：”&DateAdd(jglx,n,dyrq)MsgBoxMsgEndSub三、代碼詳解1、Sub示例106()：宏程序的開始語句。宏名為示例106。2、DrmdyrqAsDate:變量dyrq聲明為口期對象型數(shù)據(jù)類型。其余幾個變量分別是字符串型、整型和可變型變量。3、jglx=m-:用字符in來指定以“月份”作為間隔。4、dyi-q=InputBox(請輸入一個口期”)：用IiiputBox函數(shù)來讓用戶輸入一個口期，并把用戶輸入的口期賦給變量dyrq。5、n=InputBox(輸入增加月的數(shù)

14、目：”)：用InputBox函數(shù)來讓用戶輸入間隔月的數(shù)目，并把用戶輸入的值賦給變量11。6、Msg=噺口期：&DateAdd(jglx,n,dyi*q):用DateAdd函數(shù)計(jì)算得到的新的口期和字符串“新口期：”連接起來賦給變量Msg。DateAdd函數(shù)返回一個日期，這一口期加上了一個時間間隔。語法DateAdd(mterval,number,date)DateAdd函數(shù)語法中有下列命名參數(shù)：interval必要。字符串表達(dá)式，是所要加上去的時間間隔。它具有好多設(shè)定值，比如”m”為月；”d”為日；”yyyy”為年等等。number必要。數(shù)值表達(dá)式，是要加上的時間間隔的數(shù)目。其數(shù)值可以為正數(shù)(得

15、到未來的口期)，也可以為負(fù)數(shù)(得到過去的口期)。date必要。表示日期的文字。7、MsgBoxMsg:利用MsgBox函數(shù)顯示Msg的值。第1.7例DateDffif函數(shù)一、題目：要求編寫一段代碼，運(yùn)用DateDiff函數(shù)返回某個指定口期距離今天的天數(shù)。二、代碼：Sub示例_07()DimzdiqAsDateDimMsgzdiq=InputBox(n請輸入一個口期:n)Msg=”離開今天的天數(shù):n&DateDiff(,d,Now,zdiq)MsgBoxMsgEndSub三、代碼詳解1、Sub示例1070：宏程序的開始語句。宏名為示例107。2、DiinzdiqAsDate:變量zdrq聲明為口

16、期對彖型數(shù)據(jù)類型。3、zdiq=InputBox(請輸入一個期)：用InputBox函數(shù)來讓用戶輸入一個口期，并把用戶輸入的口期賦給變量zdiqo4Msg=離開今天的天數(shù)：&DateDifi(d,Now,zdiq):用DateDiff函數(shù)計(jì)算得到的結(jié)果和字符串“離開今天的天數(shù)：”連接起來賦給變量Msg。5、MsgBoxMsg:利用MsgBox函數(shù)顯示Msg的值。DateDiff函數(shù)可用來決定兩個口期之間所指定的時間間隔數(shù)目。例如，可以使用DateDiff來計(jì)算兩個口期之間相隔幾日，或計(jì)算從今天起到年底還有多少個星期。DateDi任(interval,datel,date2,fii-stdayo

17、fveek,firshveekofyear)DateDiff函數(shù)語法中有下列命名參數(shù)：interval必要。字符串表達(dá)式，是所要加上去的時間間隔。它具有好多設(shè)定值，與DateAdd函數(shù)相同；此例中的啊”，表示天數(shù)；Datel,date2必要；計(jì)算中要用到的兩個口期。Fu-stdayofxveek可選。指定一個星期的第一天的常數(shù)。如果未予指定，則以星期口為第一天。五rstweekofyear可選。指定一年的第一周的常數(shù)。如果未予指定，則以包含1月1口的星期為第一周。第1.8例DatePart函數(shù)一、題目：要求編寫一段代碼，運(yùn)用DatePait函數(shù)返回某個指定口期是在一年的哪一個季度。二、代碼：S

18、ub示例_08()DimzdiqAsDateDimMsgzdiq=InputBox(n請輸入一個口期川)Msg=”季度:n&DatePartCq：zdiq)MsgBoxMsgEndSub三、代碼詳解1、Sub示例1080：宏程序的開始語句。宏名為示例108。2、DunzdiqAsDate:變量zdrq聲明為口期對彖型數(shù)據(jù)類型。3、zdiq=InputBox(請輸入一個期)：用InputBox函數(shù)來讓用戶輸入一個口期，并把用戶輸入的口期賦給變量zdiqo4、Msg=”季度：”&DatePartCq,zdrq):用DatePait函數(shù)計(jì)算得到的結(jié)呆和字符串“季度：”連接起來賦給變量Msg。5、Ms

19、gBoxMsg:利用MsgBox函數(shù)顯示Msg的值。DatePart函數(shù)DatePart(interval,date,firstdayofveek,fiistxveekofyear)語法中有下列命名參數(shù)：interval必要。字符串表達(dá)式，是所要加上去的時間間隔。它具有好多設(shè)定值，與DateAdd函數(shù)相同；此例中的“q”，表示季度；Date,必要；計(jì)算中要用到的兩個口期。Fu-stdayofveek可選。指定一個星期的第一天的常數(shù)。如果未予指定，則以星期口為第一天。五rstweekofyear可選。指定一年的第一周的常數(shù)。如果未予指定，則以包含1月1口的星期為第一周。第1.9例DateSeri

20、a1函數(shù)一、題目：要求編寫一段代碼，運(yùn)用DateSenal函數(shù)返回指定口期的Date類型。二、代碼：Sub示例_09()Dimzdiqzdiq=DateSerial(2008,8,8)MsgBoxzdi-qEndSub三、代碼詳解1、Sub示例1090：宏程序的開始語句。宏名為示例109。2、Dunzdi-q:變量zdrq聲明為可變型數(shù)據(jù)類型。3、zdiq=DateSerial(200S,&8):DateSerial函數(shù)轉(zhuǎn)換所得的結(jié)果賦給變量zdrq。DateSenal函數(shù)返回指定口期年月口的口期格式。語法DateSerial(year,month,day)DateSenal函數(shù)語法有下列的命

21、名參數(shù)：year必要；整型。從100到9999間的整數(shù)，或一數(shù)值表達(dá)式。month必要；整型。任何數(shù)值表達(dá)式。day必要；整型。任何數(shù)值表達(dá)式。4、MsgBoxzdrq:利用MsgBox函數(shù)顯示zdrq的值。第110例DateVahe函數(shù)一、題目：要求編寫一段代碼，運(yùn)用DateMlue函數(shù)返回指定口期的Date類型。二、代碼：Sub示例_010()Dimzdiqzdiq=DateQlueCAugust8,2008”)MsgBoxzdrqEndSub三、代碼詳解1、Sub示例_0100：宏程序的開始語句。宏名為示例_010o2、Dimzdrq:變量zdrq聲明為可變型數(shù)據(jù)類型。3、zdrq=Da

22、tealue(nAugiist8,2008”):DateSenal函數(shù)轉(zhuǎn)換所得的結(jié)果賦給變量zdrq。4、MsgBoxzdrq:利用MsgBox函數(shù)顯示zdrq的值。DateAalue函數(shù)將字符串轉(zhuǎn)換為口期格式。語法DateAalue(date)DateAalue函數(shù)的參數(shù)：date必要：通常是字符串表達(dá)式，表示從100年1月1口到9999年12月31口之間的一個口期。但是，date也可以是任何表達(dá)式，其所代表的口期、時間在上述范圍內(nèi)。第1.11例Day函數(shù)一、題目：要求編寫一段代碼，運(yùn)用Day函數(shù)返回指定口期的口。二、代碼：Sub示例1()Dimzdiqzdiq=#2008-12-8#Msg

23、Boxzdiq&”這天的口為:”&Day(zdiq)EndSub三、代碼詳解1、Sub示例1()：宏程序的開始語句。宏名為示例1。2、Dimzdrq:變量zdrq聲明為可變型數(shù)據(jù)類型。3、zdrq=#2008-8-8#:把日期2008-8-8賦給變量zdrq。4、MsgBoxzdrq&“這天的口為:”&Day(zdrq)：利用MsgEox函數(shù)顯示Day(zdrq)的值。Day函數(shù)返回一個其值為1到31之間的整數(shù)，表示一個月中的某一口。語法Day(date)Day函數(shù)的參數(shù)：date必要的，可以是任何能夠表示口期的Vanant、數(shù)值表達(dá)式、字符串表達(dá)式或它們的組合。第1.12例Dir函數(shù)一、題目

24、：要求編寫一段代碼，運(yùn)用Dir函數(shù)返回一個文件夾的文件列表。二、代碼：Sub示例2()Dimwjmwjm=Dir(nC:WINDOWSWIN.uiin)MsgBoxyjmwjm=DirCCWINDOWS*.mrj=DiiEndSub三、代碼詳解1、Sub示例1120：宏程序的開始語句。宏名為示例112。2、Dunwjm:變量yjm聲明為可變型數(shù)據(jù)類型。3、wjm=Dir(”C:WINDOWSWIN.mi”):如果該文件存在則返回“WIN.INI”(在C:Wmdows文件夾中)，把返回的文件名賦給變量wjmo如果該文件不存在則4、wjm=Dir(”C：WINDOWS*.inT):返回帶指定擴(kuò)展名

25、的文件名。如果超過一個*ini文件存在，函數(shù)將返回按條件第一個找到的文件名。5、wjm=Dir:若第二次調(diào)用Dir函數(shù)，但不帶任何參數(shù)，則函數(shù)將返回同一目錄下的下一個*im文件。Du函數(shù)返回一個字符串Strmg,用以表示一個文件名、目錄名或文件夾名稱，它必須與指定的模式或文件屬性、或磁盤卷標(biāo)相匹配。Dir(pathname,attributes)Dir函數(shù)的語法具有以下幾個部分：patlmame可選參數(shù)。用來指定文件名的字符串表達(dá)式，可能包含目錄或文件夾、以及驅(qū)動器。如果沒有找到patlmame,則會返回零長度字符串(”)。attributes可選參數(shù)。常數(shù)或數(shù)值表達(dá)式，其總和用來指定文件屬性

26、。如果省略，則會返回匹配patlmame但不包含屬性的文件。第1.13例Fix函數(shù)一、題目：要求編寫一段代碼，運(yùn)用Fix函數(shù)返回某數(shù)值的整數(shù)部分。二、代碼：Sub示例3()MsgBox“99.8的整數(shù)部分是：”&Fix(99.8)MsgBox“一99.8的整數(shù)部分是：”&Fix(-99.8)EndSub三、代碼詳解1、Sub示例1130：宏程序的開始語句。宏名為示例113。2、MsgBox“99.8的整數(shù)部分是：”&Fix(99.8):利用MsgBox函數(shù)顯示Fix(99.8)的值。3、MsgBox“-99.8的整數(shù)部分是：”&Fix(-99.8):利用MsgBox函數(shù)顯示Fix(-99.8)

27、的值。Fix函數(shù)返回參數(shù)的整數(shù)部分。語法Fix(number)number必要的是任何有效的數(shù)值表達(dá)式。Int及Fix函數(shù)在返回某數(shù)值的整數(shù)部分時有何不同。當(dāng)參數(shù)為負(fù)數(shù)時，lilt函數(shù)返回小于或等于該參數(shù)之最大整數(shù)，而Fix函數(shù)則返回人于或等于該參數(shù)之最小整數(shù)。第1.14例Format函數(shù)一、題目：要求編寫一段代碼，運(yùn)用Fonmt函數(shù)對指定字符串返回指定格式的輸出。二、代碼：Sub示例4()Dimsj,rqsj=1000,H大役“小”)MsgBoxdx&”比1000要”&Cheshi&HM&Abs(1000-dx)EndSub三、代碼詳解1、Sub示例1160：宏程序的開始語句。宏名為示例11

28、6。2、DimChesluAsString,dxAsInteger:變量Cheshi聲明為字符串?dāng)?shù)據(jù)類型，dx聲明為整型。3、dx=560:把數(shù)字560賦給變量dx。4、Cheshi=HF(dx1000,吠字,小”):根據(jù)變量dx是否大于1000的條件來判斷，并且把返回的結(jié)果賦給變量Cheslu05、MsgBoxdx&“比1000要&ChesluAbs(1000-dx):利用NIsgBox函數(shù)顯示最后的值。其中Abs函數(shù)是取表達(dá)式的絕對值函數(shù)。HF函數(shù)根據(jù)表達(dá)式的值，來返回兩部分中的其中一個。IIF(expr,tmepart,falsepait)UF函數(shù)的語法含有下面這些命名參數(shù)：expi-必

29、要參數(shù)。用來判斷真?zhèn)蔚谋磉_(dá)式。tiuepart必要參數(shù)。如果expr為True,則返回這部分的值或表達(dá)式。falsepart必要參數(shù)。如果expr為False,則返回這部分的值或表達(dá)式。第1.17例InputBox函數(shù)一、題目：要求編寫一段代碼，運(yùn)用IiiputBox函數(shù)，用戶輸入一定范闈的數(shù)值并返回結(jié)果。二、代碼：SubSub示例_1_170DimMsg$,bt$,Defaults,MyVhlue,aaMsg=”輸入一個10到25之間的數(shù)值：bt=“InputBox函數(shù)示例”Default=,10設(shè)置缺省值。100：MyAalue=InputBox(Msg,bt?Default)IfMyAa

30、luev106Myalue25Tlienaa=MsgBox(*輸入數(shù)值超出范圍，請重新輸入或者退出,1)IfaaovbOKThenExitSubGoTo100ElseMsgBoxn你輸入的是”&MyXalueEndIfEndSub三、代碼詳解1、Sub示例1170：宏程序的開始語句。宏名為示例117。2、DunMsgS,btS,Default,My,alue,aa:變量Msg、Default和bt聲明為字符串?dāng)?shù)據(jù)類型，其它的沒有顯式聲明，都為可變型數(shù)據(jù)類型。3、Msg=輸入一個10到25之間的數(shù)值：“：設(shè)置提示信息，把字符串賦給變量Msg。4、bt=InputBox函數(shù)示例”：設(shè)置標(biāo)題，把字符

31、串賦給變量bt5、Default=*10:設(shè)置缺省值，把字符串賦給變量Defaulto6MyValue=InputBox(Msg,bt,Default):通過IiiputBox函數(shù)顯示信息、標(biāo)題及缺省值，把函數(shù)返回值賦給變量My乜lue。7、IfMyAalue25Then:如果IiiputBox函數(shù)返回的數(shù)值小于10或者人于25,那么執(zhí)行下面的語句。8、aa=MsgBox(輸入數(shù)值超出范I制，請重新輸入或者退出?！保?):如果IiiputBox函數(shù)返回的數(shù)值超出了范圍，顯示一個消息框，消息框里面的第2個參數(shù)是1,表示消息框上有兩個按鈕：“確定”和“取消”按鈕。并把消息框返回的結(jié)果賦給變量aa。

32、9、IfaaOx-bOKThenExitSub:如果用戶按了消息框上的“取消”按鈕，就退出本程序。10、GoTo100:如果用戶按了消息框上的“確定”按鈕，就轉(zhuǎn)而從行號100開始執(zhí)行代碼。11、MsgBox”你輸入的是”&MyValue:如果用戶輸入了符合要求的數(shù)值，按了回車鍵或者“確定”按鈕，消息框顯示用戶輸入的值。IiiputBox函數(shù)在一對話框來中顯示提示，等待用戶輸入正文或按下按鈕,并返回包含文本框內(nèi)容的字符串。語法IiiputBox(prompt,title,default,xpos,ypos,helpfile,context)IiiputBox函數(shù)的語法具有以下幾個命名參數(shù)：Pro

33、mpt必需的。作為對話框消息出現(xiàn)的字符串表達(dá)式。Prompt的最人長度大約是1024個字符，由所用字符的寬度決定。如果Prompt包含多個行，則可在各行之間用回車符(ChrU3)、換行符(Chr(10)或回車換行符的組合(Chr(13)&Chr(10)來分隔。Title可選的。顯示對話框標(biāo)題欄中的字符串表達(dá)式。如果省略Title,則把應(yīng)用程序名放入標(biāo)題欄中。Default可選的。顯示文本框中的字符串表達(dá)式，在沒有其它輸入時作為缺省值。如果省略Default,則文本框?yàn)榭?。其它參?shù)省略，請參見Excel幫助文件。第1.18例Instr函數(shù)一、題目：要求編寫一段代碼，運(yùn)用Instr函數(shù)，在一字符串

34、中查找另一字符串并返回結(jié)果。二、代碼：Sub示例8()DimbssStnng,yczChai;wzbssStrmg=nABpAApCDPBBPHyczCliar=HPnMsgBox“bssStrmg=,H,ABpAApCDPBBP,n&Chi(10)&_nyczChar=P時：”&Chi(10)&Chi(10)&_”InStr(4,bssString,yczChar,1)返回值為_IiiSti(4,bssStiing,yczChai;1)wz=Instr(l,bssStiing,yczChar,0)wz=Instr(bssStringyczChar)，返回9。wz=Instr(l,bssStr

35、mgW”)，返回0。EndSub三、代碼詳解1、Sub示例118()：宏程序的開始語句。宏名為示例118。2、DimbssStrmg,yczCliai;wz:變量bssStiing、yczChar和ws聲明為可變型變量。3、bssStrmg=HABpAApCDXPBBPn:把被搜索的字符串賦給變量bssStnng。4、yczChar=P:把要查找的字符P賦給變量yczChar。5、MsgBoxnbssStimg=ABpAApCDPBBP,HM,&Chr(10)&_HyczChar=P時：”&Chr(lO)&Chr(lO)&_”InStr(4,bssString,yczChar,1)返回值為&_InStr(4,bssStrmg,yczChar,1)：用消息框顯奈從第四個字符開始，以文本比較的方式找字符P，返回值為6(小寫p的位置)。小寫p和人寫P在文本比較下是一樣的，也就是當(dāng)函數(shù)的最后一個參數(shù)為1時，查找不分人小寫。把要查找的字符P的位置賦給變量yczChaio式中Clir(10)是換行符。6、wz=Instr(l,bssS