3 回答

TA貢獻(xiàn)1776條經(jīng)驗(yàn) 獲得超12個(gè)贊
可以,輸入代碼設(shè)置。
代碼:
Sub 示例_1_18()
Dim bssString, yczChar, wz
bssString ="ABpAApCDPBBP"
yczChar = "P"
MsgBox "bssString = "" ABpAApCDPBBP """ & Chr(10) & _
"yczChar= ""P"" 時(shí): " & Chr(10) & Chr(10) & _
"InStr(4, bssString, yczChar, 1) 返回值為 " & _
InStr(4, bssString, yczChar, 1)
wz = Instr(1, bssString, yczChar, 0)
wz = Instr(bssString,yczChar) ' 返回 9。
wz = Instr(1, bssString, "W") ' 返回 0。

TA貢獻(xiàn)1883條經(jīng)驗(yàn) 獲得超3個(gè)贊
完全可以,有兩種方法。
1.instr(start,string1,"""") '一定是四個(gè)雙引號
2.instr(start,string1,chr(34)) '雙引號的Ascii是34,所以可以這樣寫

TA貢獻(xiàn)1820條經(jīng)驗(yàn) 獲得超9個(gè)贊
inStr(3,"x5ydscdsx","d",1)=4'即是從字符串"x5ydscdsx"第3個(gè)位置找字符串"d"第一次出現(xiàn)的位置,執(zhí)行的是文本比較。返回值為4
Private Sub Form_Click()
x = InStr(3, "x5ydscdsx", "d", 1)
Print x
End Sub
不要說好像,自己要做做看
添加回答
舉報(bào)