Question

关于VBA instr()函数

InStr([start, ]string1, string2[, compare])
string2可不可以为双引号（"）？ 如果能，怎么设置？
string2不可以为引号啊
你说的好像是最后值为2吧

Answer 1

可以，输入代码设置。

代码：

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。

扩展资料：

输入值的集合X被称为f的定义域；可能的输出值的集合Y被称为f的值域。函数的值域是指定义域中全部元素通过映射f得到的实际输出值的集合。注意，把对应域称作值域是不正确的，函数的值域是函数的对应域的子集。

计算机科学中，参数和返回值的数据类型分别确定了子程序的定义域和对应域。因此定义域和对应域是函数一开始就确定的强制进行约束。另一方面，值域是和实际的实现有关。

一般的，在一个变化过程中，假设有两个变量x、y，如果对于任意一个x都有唯一确定的一个y和它对应，那么就称x是自变量，y是x的函数。x的取值范围叫做这个函数的定义域，相应y的取值范围叫做函数的值域。

参考资料来源：百度百科-函数

Answer 2

完全可以，有两种方法。
1.instr(start,string1,"""") '一定是四个双引号
2.instr(start,string1,chr(34)) '双引号的Ascii是34，所以可以这样写

Answer 3

inStr(3,"x5ydscdsx","d",1)=4'即是从字符串"x5ydscdsx"第3个位置找字符串"d"第一次出现的位置,执行的是文本比较。返回值为4

Private Sub Form_Click()
x = InStr(3, "x5ydscdsx", "d", 1)
Print x
End Sub

不要说好像，自己要做做看

Answer 4

vba中“_”表示下划线；a
=
instr(c,
"_")
应该为“_”在c中的位置。