TA貢獻1776條經驗 獲得超12個贊
可以，輸入代碼設置。
代碼：
Sub 示例_1_18()
Dim bssString, yczChar, wz
bssString ="ABpAApCDPBBP"
yczChar = "P"
MsgBox "bssString = "" ABpAApCDPBBP """ & Chr(10) & _
"yczChar= ""P"" 時： " & 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貢獻1883條經驗 獲得超3個贊
完全可以，有兩種方法。
1.instr(start,string1,"""") '一定是四個雙引號
2.instr(start,string1,chr(34)) '雙引號的Ascii是34，所以可以這樣寫
TA貢獻1820條經驗 獲得超9個贊
inStr(3,"x5ydscdsx","d",1)=4'即是從字符串"x5ydscdsx"第3個位置找字符串"d"第一次出現的位置,執行的是文本比較。返回值為4
Private Sub Form_Click()
x = InStr(3, "x5ydscdsx", "d", 1)
Print x
End Sub
不要說好像，自己要做做看
舉報