excelvba常用技巧第09章1函数的使用

《excelvba常用技巧第09章1函数的使用》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、VBA常用技巧代码解析VBA常用技巧目录VBA常用技巧1第9章函数的使用2技巧1调用工作表函数求和2技巧2查找最大、最小值2技巧3不重复值的录入4技巧4获得当月的最后一天6技巧5四舍五入运算75-1极小值修正法75-2调用工作表函数法8技巧6使用字符串函数8技巧7使用日期函数10技巧8判断是否为数值14技巧9格式化数值、日期和时间15技巧10个人所得税自定义函数17技巧11人民币大写函数19技巧12列号转换为列标21技巧13判断工作表是否为空表22技巧14查找指定工作表23技巧15查找指定工作簿是否打开25技巧16取得应用程序的安装路径25技巧17数组

2、的使用2717-1代码运行时创建数组2717-2文本转换为数组2817-3使用动态数组去除重复值3032VBA常用技巧代码解析第9章函数的使用技巧1调用工作表函数求和在对工作表的单元格区域进行求和计算时，使用工作表Sum函数比使用VBA代码遍历单元格进行累加求和效率要高得多，代码如下所示。#001SubrngSum()#002DimrngAsRange#003DimdAsDouble#004Setrng=Range("A1:F7")#005d=Application.WorksheetFunction.Sum(rng)#006MsgBoxrng.Add

3、ress(0,0)&"单元格的和为"&d#007EndSub代码解析：rngSum过程调用工作表Sum函数对工作表的单元格区域进行求和计算。在VBA中调用工作表函数需要在工作表函数前加上WorksheetFunction属性。应用于Application对象的WorksheetFunction属性返回WorksheetFunction对象，作为VBA中调用工作表函数的容器，在实际应用中可省略Application对象识别符。技巧2查找最大、最小值在VBA中没有内置的函数可以进行最大、最小值的查找，借助工作表Max、Min函数可以快速地在工作表区域中查找

4、最大、最小值，如下面的代码所示。#001Subseeks()32VBA常用技巧代码解析#002DimrngAsRange#003DimmyRngAsRange#004Dimk1AsInteger,k2AsInteger#005DimmaxAsDouble,minAsDouble#006SetmyRng=Sheet1.Range("A1:F30")#007ForEachrngInmyRng#008Ifrng.Value=WorksheetFunction.max(myRng)Then#009rng.Interior.ColorIndex=3#010k1=

5、k1+1#011max=rng.Value#012ElseIfrng.Value=WorksheetFunction.min(myRng)Then#013rng.Interior.ColorIndex=5#014k2=k2+1#015min=rng.Value#016Else#017rng.Interior.ColorIndex=0#018EndIf#019Next#020MsgBox"最大值是:"&max&"共有"&k1&"个"_#021&Chr(13)&"最小值是:"&min&"共有"&k2&"个"#022EndSub代码解析：seeks过程在工作

6、表单元格区域中查找最大、最小值，并将其所在的单元格底色分别设置为红色和蓝色。第2行到第5行代码声明变量类型。第6行代码使用关键字Set将单元格引用赋给变量myRng。第7行到第19行代码遍历单元格区域，使用工作表Max、Min函数判断单元格数值是否是所在区域的最大、最小值，如果是，将其所在的单元格底色设置为红色或蓝色，并保存其数值和数量。第20、21行代码使用消息框显示最大、最小值数值和数量。运行seeks过程后将工作表区域最大、最小值所在的单元格的底色设置为红色或蓝色并用消息框显示其数值和数量，如图21所示。32VBA常用技巧代码解析图21查找最

7、大、最小值技巧1不重复值的录入在工作表中录入数据时，有时希望能限制重复值的录入，比如在示例的A列单元格只能录入唯一的人员编号，此时可以利用工作表的Change事件结合工作表的CountIf函数来判断所录入的人员编号是否重复，示例代码如下。#001PrivateSubWorksheet_Change(ByValTargetAsRange)#002WithTarget#003If.Column<>1Or.Count>1ThenExitSub#004IfApplication.CountIf(Range("A:A"),.Value)>1Then#005.Se

8、lect#006MsgBox"不能输入重复的人员编号!",64#007Application.