Excel_VBA常用技巧_第09章函数的使用.docVIP

VBA常用技巧代码解析 PAGE PAGE 34 VBA常用技巧 目录 TOC \o 1-4 \h \z \u VBA常用技巧 1 第9章 函数的使用 2 技巧1 调用工作表函数求和 2 技巧2 查找最大、最小值 2 技巧3 不重复值的录入 4 技巧4 获得当月的最后一天 6 技巧5 四舍五入运算 7 5-1 极小值修正法 7 5-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 数组的使用 27 17-1 代码运行时创建数组 27 17-2 文本转换为数组 28 17-3 使用动态数组去除重复值 30 函数的使用 调用工作表函数求和 在对工作表的单元格区域进行求和计算时，使用工作表Sum函数比使用VBA代码遍历单元格进行累加求和效率要高得多，代码如下所示。 #001 Sub rngSum() #002 Dim rng As Range #003 Dim d As Double #004 Set rng = Range(A1:F7) #005 d = Application.WorksheetFunction.Sum(rng) #006 MsgBox rng.Address(0, 0) 单元格的和为 d #007 End Sub 代码解析： rngSum过程调用工作表Sum函数对工作表的单元格区域进行求和计算。 在VBA中调用工作表函数需要在工作表函数前加上WorksheetFunction属性。应用于Application对象的WorksheetFunction属性返回WorksheetFunction对象，作为VBA中调用工作表函数的容器，在实际应用中可省略Application对象识别符。 查找最大、最小值 在VBA中没有内置的函数可以进行最大、最小值的查找，借助工作表Max、Min函数可以快速地在工作表区域中查找最大、最小值，如下面的代码所示。 #001 Sub seeks() #002 Dim rng As Range #003 Dim myRng As Range #004 Dim k1 As Integer, k2 As Integer #005 Dim max As Double, min As Double #006 Set myRng = Sheet1.Range(A1:F30) #007 For Each rng In myRng #008 If rng.Value = WorksheetFunction.max(myRng) Then #009 rng.Interior.ColorIndex = 3（共有56总颜色：1-56，颜色的种类用 数字代替） #010 k1 = k1 + 1 #011 max = rng.Value #012 ElseIf rng.Value = WorksheetFunction.min(myRng) Then #013 rng.Interior.ColorIndex = 5 #014 k2 = k2 + 1 #015 min = rng.Value #016 Else #017 rng.Interior.ColorIndex = 0 #018 End If #019 Next #020 MsgBox 最大值是: max 共有 k1 个 _ #021 Chr(13) 最小值是: min 共有 k2 个