VBA LEN 函数返回字符串中的字符数。
Len(文本)
获取多行字符数:
Sub LenExample1()
MsgBox Len("") '返回:0
MsgBox Len("45") '退货:2
MsgBox Len("excel") '退货:5
MsgBox Len("www.moonexcel.com.ua") '退货:20
variable = "moonexcel"
MsgBox Len(variable) '退货:9
End Sub
在执行操作之前检查用户名至少包含 3 个字符的条件下使用 Len 函数:
Sub LenExample2()
name = InputBox("输入用户名:", "姓名")
If Len(name) >= 3 Then
MsgBox "做得好" & name & "!"
End If
End Sub