有哪些函数可以反截图、_VBA代码解决方案第54讲：VBA代码中，字符串函数的利用...

大家好，我们今日继续讲解VBA代码解决方案的第54讲内容：VBA代码中，字符串函数的利用，

一：Len函数：功能是返回文本串的字符数

语法如下：Len(string | varname)

参数：

a)string为任何有效的字符串表达式。

b)varname为任何有效的变量名称。

两个可能的参数必须有一个，而且只能有一个参数。

二：Left函数：函数执行成功时返回string字符串左边length个字符，发生错误时返回空字符串("")

语法如下：Left(string, length)

三：Right函数：函数执行成功时返回string字符串右边length个字符，发生错误时返回空字符串("")

语法如下：Right(string, length)

参数

a)string是必需的，字符串表达式。

b)length是必需的，数值表达式，将返回的字符数量。如果为0，返回零长度字符串 ("")；如果大于或等于参数string的字符数，则返回整个字符串。

四：Mid函数：，作用是从一个字符串中截取出指定数量的字符。这个函数的3个参数各在VB和Excel中互相等价，但VB中的Length参数可以省略，而Excel中num_chars参数不可省略。

语法如下 Mid(string, start[, length])

参数

a)string是必需的，字符串表达式。

b) start是必需的，string中被取出部分的字符位置。如果超过string的字符数，将返回零长度字符串 ("")。

c) length是可选的，要返回的字符数。如果省略或超过string的字符数，将返回字符串中所有字符。

四：UCase函数：作用是将一个字符串中的小写字母转化为大写字母，而不对其中的数字，大写字母进行处理。

语法如下：UCase(string)

五 LCase函数：作用是将一个字符串中的大写字母转化为小写字母，而不对其中的数字，小写字母进行处理。

语法如下：LCase(string)

参数string是必需的，任何有效的字符串表达式。

使用VBA的字符串函数可以对字符串进行各种操作，如下面的代码所示。

Sub MyStr()

Dim Str As String

Str = "Abc123D EFG456 hijk789 Lmn0"

MsgBox "原始字符串为：" & Str & Chr(13) _

& "字符串长度为：" & Len(Str) & Chr(13) _

& "左边18个字符为：" & Left(Str, 18) & Chr(13) _

& "右边16个字符为：" & Right(Str, 16) & Chr(13) _

& "从左边第2个开始取15个字符为：" & Mid(Str, 2, 15) & Chr(13) _

& "转换为大写：" & UCase(Str) & Chr(13) _

& "转换为小写：" & LCase(Str) & Chr(13)

End Sub

代码解析：

StrFunctions过程使用字符串函数对字符串进行各种操作，如计算字符数、取得一定数量的字符、大小写转换等。

第5行代码使用Len函数返回字符串内字符的数目，

第6行代码使用Left函数从字符串左边起返回18个字符。

第7行代码使用Right函数从字符串右边起返回16个字符

第8行代码使用Mid函数从字符串第2位起返回15个字符。

第9行代码使用UCase函数将字符串转换成大写的字符串。

第10行代码使用LCase函数将字符串转换成小写的字符串。

下面我们看代码的实测：

代码截图：

运行后的截图：

今日内容回向：

1 VBA中字符串函数有哪些呢？

2 字符串操作的连接符号是什么？