len()函数

Posted 2020-10-27 搞笑机械师

简单的说，就是读取一个字符串的 字符长度 的函数。

实例1：

1 Sub W1()
2      If Len(Dir("d:/A.xls")) = 0 Then
3        MsgBox "A文件不存在"
4      Else
5        MsgBox "A文件存在"
6      End If
7 End Sub

实例2：

1 For x = 5 To 13
2     Cells(x - 4, 1) = "NO." & Left("000", 3 - Len(x)) & x
3 Next

 

另外：

Len函数，不仅可以表示字符串的长度，还可以表示存储某变量需要的字节数。

代码测试：

1 Sub xx()
2 Dim a As Long, b as Integer
3 MsgBox Len(a)    ‘显示结果为4
4 msgbox Len(b)   ‘显示结果为2
5 a = 11
6 MsgBox Len(a)   ‘显示结果依然为4
7 End Sub