VBA Mid函数

Mid 函数返回一个给定的输入字符串指定的字符数。

语法 :

Mid(String,start[,Length])

• String, 必需的参数。输入字符串从中返回指定的字符数。

• Start, 必需的参数。一个整数，它指定开始字符串的位置。

• Length, 一个可选的参数。一个整数，它指定要返回的字符数。

添加一个按钮，并添加以下功能

Private Sub Constant_demo_Click()
  Dim var as Variant
  var="Microsoft VBScript"
  msgbox("Line 1 : " & Mid(var,2))
  msgbox("Line 2 : " & Mid(var,2,5))
  msgbox("Line 3 : " & Mid(var,5,7))
End Sub

当执行函数的输出如下所示：

Line 1 : icrosoft VBScript
Line 2 : icros
Line 3 : osoft V