當前位置:成語大全網 - 新華字典 - 求EXCEL VBA中InStr的詳細用法。

求EXCEL VBA中InStr的詳細用法。

儀器功能

壹、題目:

需要寫壹段代碼,用Instr函數在壹個字符串中找到另壹個字符串,返回結果。

第二,代碼:

子示例_1_18()

Dim bssString,yczChar,wz

bssString ="ABpAApCDPBBP "

yczChar = "P "

MsgBox " BSS string = " " ABpAApCDPBBP " " " & amp;Chr(10)_

"當yczChar = " " P " ":" &;Chr(10)Chr(10)_

" instr (4,bssstring,yczchar,1)返回" &;_

儀器(4,bssString,yczChar,1)

wz = Instr(1,bssString,yczChar,0)

Wz = Instr(bssString,yczChar)'返回9。

' Wz = Instr(1,bssString," W ")'返回0。

末端接頭

第三,代碼細節

1,Sub example _1_18():宏程序的開始語句。宏名為Example _1_18。

2.Dim bssString,yczChar,wz:變量bssString,yczChar和ws被聲明為可變變量。

3.bssString ="ABpAApCDXPBBP ":將搜索到的字符串賦給變量bssString。

4.yczChar = "P ":把要搜索的字符P賦給變量yczChar。

MsgBox " BSS string = " " ABpAApCDPBBP " " " & amp;Chr(10)_

"當yczChar = " " P " ":" &;Chr(10)Chr(10)_

" instr (4,bssstring,yczchar,1)返回" &;_

Instr (4,bssstring,yczchar,1):用消息框顯示從第四個字符開始的字符p,通過文本比較找到,返回值為6(小寫p的位置)。小寫p和大寫p在文本比較中是壹樣的,即當函數的最後壹個參數是1時,搜索是不區分大小寫的。把要搜索的字符p的位置賦給變量yczChar。其中Chr(10)是壹個換行符。

6.wz = instr (1,bssstring,yczchar,0):從第壹個字符開始,通過二進制比較進行搜索,返回值為9(大寫p的位置)。小寫p和大寫p在二進制比較下是不壹樣的,也就是當函數的最後壹個參數為0時,搜索是區分大小寫的。將找到的字符p的位置賦給變量wz。

7.wz = Instr(bssString,yczChar):最後壹句話也可以這樣寫,因為默認的比較方式是二進制比較(最後壹個參數可以省略)。第壹個參數被省略,默認搜索從第壹個字符開始。返回值是9。

8.wz = instr (1,bssstring," w "):在搜索的字符串中查找字符w,由於沒有找到,返回值為0。

儀器功能

返回壹個Variant (Long)值,該值指定壹個字符串在另壹個字符串中首次出現的位置。

InStr([start,]string1,string2[,compare])

InStr函數的語法有以下參數:

開始可選參數。對於數值表達式,設置每次搜索的起點。如果省略,它將從第壹個字符的位置開始。如果指定了比較參數,則必須有壹個開始參數。

String1必需的參數。接受搜索的字符串表達式。

String2必需的參數。正在搜索的字符串表達式。

比較可選參數。指定字符串比較。如果省略compare,選項Compare的設置將決定比較的類型。

比較參數設置為:

常量值描述

VbUseCompareOption -1使用選項Compare語句設置來執行比較。

VbBinaryCompare 0執行二進制比較。

VbTextCompare 1根據原始文本執行比較。

VbDatabaseCompare 2僅適用於Microsoft Access,並根據數據庫中的信息執行比較。