VBA常用技巧代码解析
技巧4 获得当月的最后一天
在实际工作中经常需要根据给定的日期计算其所属月份的最后一天，此时可以使用DateSerial函数完成计算，如下面的代码所示。
#001 Sub Serial()
#002 Dim DateStr As Byte
#003 DateStr = Day(DateSerial(Year(Date), Month(Date) + 1, 0)) #004 MsgBox \本月的最后一天是\月\号\#005 End Sub
代码解析：
Serial过程配合使用了4个VBA内置函数Year、Month、Day和DateSerial完成计算并使用消息框显示当月最后一天的日期。
Year、Month和Day函数分别返回代表指定日期的年、月、日的整数，语法如下：
Year(Date) Month(Date) Day(Date)
其中参数Date可以是任何能够表示日期的Variant、数值表达式、字符串表达式或它们的组合。
DateSerial函数返回包含指定的年、月、日的Variant (Date)，语法如下：
DateSerial(year, month, day)
其中参数year、 month、day分别表示指定的年、月、日。
为了指定某个日期， DateSerial 函数中的每个参数的取值范围应该是可接受的，即日的取值范围应在1-31之间，而月的取值范围应在1-12之间。但是，当一个数值表达式表示某日之前或其后的年、月、日数时，也可以为每个使用这个数值表达式的参数指定相对日期。当任何一个参数的取值超出可接受的范围时，它会自动地在可接受的时间单位进行调整，例如本例中的day参数设置为0，则被解释成month参数指定月的前一天，即表达式Month(Date) + 1指定的下一个月的前一天，也就是本月的最后一天。
运行Serial过程结果如图 4-1所示。
图 4-1 获得当月的最后一天
6
VBA常用技巧代码解析
技巧5 四舍五入运算
在实际工作中经常需要对数值或计算结果进行四舍五入运算，此时可以使用VBA内置的Round函数。Round函数返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果，语法如下：
Round(expression [,numdecimalplaces])
参数expression是必需的，要进行四舍五入运算的数值表达式。
参数numdecimalplaces是可选的，数字值，表示进行四舍五入运算时，小数点右边应保留的位数。如果忽略，则Round函数返回整数。
但是VBA内置的Round函数在对数值进行四舍五入运算时实行的是Bankre舍入，而不是算术舍入。按Bankre舍入规则，如果保留位数的下一个数字正好是5则其后没有其他有效数字，则按保留位最后一位“偶舍奇入”的方法进行处理。比如Round(1.5)的保留位最后为1，是奇数，小数位的5入上去，因此Round(1.5)的运算结果是2；而Round(4.5)的保留位最后为4，是偶数，小数位的5舍去，因此Round(4.5) 的运算结果是4而不是5。
Bankre舍入规则虽然有其合理性，但不符合实际工作的需要。在实际应用中使用以下两种方法避免Bankre舍入：
5-1 极小值修正法
在使用Round函数时对需要舍入的数值先加上极小值再调用VBA内置的Round函数，如下面的代码所示。
#001 Sub aTestRound()
#002 MsgBox \& Round(4.5) & Chr(13) & \& Round(4.5 + 0.0000001)
#003 End Sub
代码解析：
aTestRound过程分别调用VBA内置的Round函数和加上极小值再调用VBA内置的Round函数在洗染店框中显示两者运算结果，如图 5-1所示。
图 5-1 加上极小值进行运算结果
7
VBA常用技巧代码解析
从运算结果中可以发现，加上极小值后Round(4.5)已正确运算为5而不是4。
5-2 调用工作表函数法
还可以使用工作表函数Round代替VBA内置的Round函数。工作表函数Round和VBA内置的Round函数的用法相同，但它采用算术舍入而不是Bankre舍入，所以不会有“偶舍奇入”的问题，如下面的代码所示。
#001 Sub bTestRound()
#002 MsgBox \& Round(4.5) & Chr(13) & \& Application.Round(4.5, 0)
#003 End Sub
代码解析：
bTestRound过程分别调用VBA内置的Round函数和工作表Round函数在消息框中显示两者运算结果，如图 5-2所示。
图 5-2 工作表函数运算结果
从运算结果中可以发现，使用工作表Round函数后Round(4.5)已正确运算为5而不是4。
技巧6 使用字符串函数
使用VBA的字符串函数可以对字符串进行各种操作，如下面的代码所示。
#001 Sub StrFunctions() #002 Dim Str As String
#003 Str = \
#004 MsgBox \原始字符串为：\
8
VBA常用技巧代码解析
#005 & \字符串长度为：\#006 & \左边8个字符为：\#007 & \右边6个字符为：\
#008 & \从左边第2个开始取5个字符为：\#009 & \转换为大写：\#010 & \转换为小写：\#011 End Sub
代码解析：
StrFunctions过程使用字符串函数对字符串进行各种操作，如计算字符数、取得一定数量的字符、大小写转换等。
第5行代码使用Len函数返回字符串内字符的数目，Len函数语法如下：
Len(string | varname)
参数string为任何有效的字符串表达式。 参数varname为任何有效的变量名称。
两个可能的参数必须有一个，而且只能有一个参数。 第6行代码使用Left函数从字符串左边起返回8个字符。 第7行代码使用Right函数从字符串右边起返回6个字符 Left函数语法如下：
Left(string, length)
Right函数语法如下：
Right(string, length)
参数string是必需的，字符串表达式。
参数length是必需的，数值表达式，将返回的字符数量。如果为0，返回零长度字符串 (\；如果大于或等于参数string的字符数，则返回整个字符串。
第8行代码使用Mid函数从字符串第2位起返回5个字符。Mid函数语法如下：
Mid(string, start[, length])
参数string是必需的，字符串表达式。
参数start是必需的，string中被取出部分的字符位置。如果超过string的字符数，将返回零长度字符串 (\。
参数length是可选的，要返回的字符数。如果省略或超过string的字符数，将返回字符串中所有字符。
第9行代码使用UCase函数将字符串转换成大写的字符串。
9
VBA常用技巧代码解析
第10行代码使用LCase函数将字符串转换成小写的字符串。 UCase函数的语法如下：
UCase(string)
LCase函数的语法如下：
LCase(string)
参数string是必需的，任何有效的字符串表达式。 运行StrFunctions过程结果如图 6-1所示。
图 6-1 使用字符串函数
技巧7 使用日期函数
使用VBA的日期函数可以对日期进行各种计算，如下面的代码所示。
#001 Sub DatFunctions() #002 Dim Str As String #003 Dim Week As String
#004 Str = InputBox(\请输入日期：\#005 If Len(Str) > 0 Then #006 If IsDate(Str) Then
#007 Select Case Weekday(Str, vbMonday) #008 Case 1
#009 Week = \一\
10