vb中mid函数是如何使用的

Posted 2023-05-09

1、打开一个Excel的文件，在表格中输入一些字符串，比如学习一首唐诗，如下图所示。

2、接着，鼠标左键单击【开发工具】菜单标签，在VBA控件下拉菜单中，并选择表单的按钮控件，如下图所示。

3、然后，在表格中绘制出表单按钮控件，并修改控件名称，比如使用Mid函数，并鼠标左键单击【查看代码】按钮，如下图所示。

4、接着，在代码窗口中输入VBA语句，输入定义变量的语句，并给变量赋值，如下图所示。

5、然后，在代码窗口中输入单元格的位置，并输入Mid函数，如下图所示。

6、接着，在Mid函数的参数中，输入字符串的取值范围，如下图所示。

7、最后，在设计窗口上，鼠标左键单击按钮，可以看到表格中的单元格，显示出一句唐诗的字符串数据了，如下图所示。通过这样的操作，就学会用VBA的Mid函数给单元格赋值了。

参考技术A Mid就是从一个字符串中取子字符串，比如a="aabbcc",我们想取出"bb"就可以用Mid("aabbcc",3,2)
Mid有3个参数，第一参数是要从哪个字符串中取
第二个参数是指从第几个开始取
第三个参数是指取几个
例如：Mid("aabbcc",3,2)就是指从"aabbcc"的第3个字符开始，取2个字符，因此返回值为"bb".

VB6.0自定义函数中的参数问题

VB6.0自定义函数的时候，怎么定义一个可有可无的参数？就好像Mid(Str，n1,n2)函数一样，最后的那个n2就可以不需要设定，没有赋值的时候，Mid函数返回另一种值，这就是一个可有可无的参数。自定义的函数怎么弄？
比如，定义了一个myName(a,b,c,d)函数，以后在调用的时候，c的值可以不需要设定，写为myName(a,b,,d)就可以，而不提示出错。
谢谢 tianqing20wen ！虽然讲解地不详细，但是还是提供了线索。原来“Optional”就是用来定义一个参数是否可选。我在网上又搜了一下“Optional”，之后知道了：
比如定义函数Fuction abc(Optional a ,Optional b)
1、如果要判断可选参数a是否赋值，用IsMissing()函数，若IsMissing(a)=Ture，则未赋值；
2、如果调用时设置为 abc(,3) ，即b=3、未对a赋值，则 IsMissing(a)=Ture；设置为 abc(3) ，即a=3、未未对b赋值；设置为 abc()，即未对a赋值且未对b赋值。
3、如果定义函数Fuction abc(Optional a As String ,Optional b As Integer)，即a定义为字符型变量，b定义为整形变量，如果调用函数abc，且未给a或b赋值，那么a自动得到值为空字符串，b得到值为0，IsMissing(a)=False，IsMissing(a)=False。因为a、b都被限定了类型的缘故。

好了，又补充了这些东西，是为了今后遇到了相同问题的朋友看到这个问答后能得到更多的东西。

Public Sub A(Optional A As Integer = 1, Optional B As Double = 2)
MsgBox "A=" & A
MsgBox "B=" & B
End Sub
Private Sub Form_Click()
Call A(, 23)
End Sub 参考技术A 点赞！感谢提问并分享！