一篇文章带你透彻理解VBA内置函数和EXCEL函数调用

文章目录

• VBA 常用内置函数一览表
• • 一、数学与数值函数
  • 二、字符串处理函数
  • 三、日期与时间函数
  • 四、逻辑与判断函数
  • 五、类型转换函数
  • 六、数组与其他常用函数
• VBA调用EXCEL函数
• • 一、通过 WorksheetFunction 调用 Excel 函数（推荐）
  • 二、WorksheetFunction函数调用示例
  • 三、通过 Evaluate 调用 Excel 函数（灵活）
  • 四、VBA 中常用 Excel 函数速查
• AutoFill方法让公式自动填充

我们都知道，EXCEL函数有自己的函数可以直接调用，其实VBA中也有内置的函数可以使用，下面我把常用的进行整理

VBA 常用内置函数一览表

一、数学与数值函数

补充一个生成最小值到最大值的写法：Int((Max – Min + 1) * Rnd + Min)

二、字符串处理函数

补充：strconv(字符串，方式) 也可以实现大小写转换，vbUpperCase（大写），vbLowerCase（小写），vbProperCase（首字母大写）

三、日期与时间函数

这个里面有稍微复杂的两个内置函数，分别是 DateAdd 和 DateDiff 函数，下面详细写一下写法：

（1）DateAdd函数

在VBA中，DateAdd 函数用于在日期基础上添加或减去指定的时间间隔，基本用法为:

DateAdd(interval, number, date)

• interval：字符串表达式，表示要添加的时间间隔类型
• number：数值表达式，表示要添加的间隔数（可为负数表示减去）
• date：要操作的日期

其中interval的表达形式有很多，具体可以参考下表：

具体应用可以参考如下代码：

Sub DateAdd_Examples()
Dim originalDate As Date
originalDate = #3/15/2024#

' 添加1年
Debug.Print "加1年: " & DateAdd("yyyy", 1, originalDate) ' 2025/3/15

' 减去2个月
Debug.Print "减2个月: " & DateAdd("m", -2, originalDate) ' 2024/1/15

' 添加45天
Debug.Print "加45天: " & DateAdd("d", 45, originalDate) ' 2024/4/29

' 添加3小时
Debug.Print "加3小时: " & DateAdd("h", 3, Now)

' 添加90分钟
Debug.Print "加90分钟: " & DateAdd("n", 90, Now)
End Sub

（2）DateDiff函数

在VBA中，DateDiff 函数用于计算两个日期之间的时间间隔。以下是其具体语法：

DateDiff(interval, date1, date2, [firstdayofweek], [firstweekofyear])

• interval：时间间隔类型（字符串），其值的选取和DateAdd函数基本一致，也是“yyyy”这样类似的
• date1：第一个日期（较早日期）
• date2：第二个日期（较晚日期）
• firstdayofweek：可选，指定一周的第一天（默认周日）
• firstweekofyear：可选，指定一年的第一周（默认1月1日所在周）

具体应用可以参考如下代码：

Sub DateDiff_Examples()
Dim date1 As Date, date2 As Date

date1 = #3/15/2024#
date2 = #6/20/2024#

' 计算天数差
Debug.Print "天数差: " & DateDiff("d", date1, date2) ' 97

' 计算月数差（整月）
Debug.Print "月数差: " & DateDiff("m", date1, date2) ' 3

' 计算年数差
Debug.Print "年数差: " & DateDiff("yyyy", date1, date2) ' 0

' 计算周数差
Debug.Print "周数差: " & DateDiff("ww", date1, date2) ' 14

' 计算季度差
Debug.Print "季度差: " & DateDiff("q", date1, date2) ' 1
End Sub

四、逻辑与判断函数

补充：IIf(2 > 0, "成立", "不成立") 类比EXCEL的IF函数，也是条件判断

五、类型转换函数

六、数组与其他常用函数

VBA调用EXCEL函数

一、通过 WorksheetFunction 调用 Excel 函数（推荐）

在 VBA 中，除了可以使用大量 VBA 内置函数 外，还可以直接调用 Excel 工作表函数。这使得 VBA 既具备编程能力，又能复用 Excel 强大的计算函数库。而通过WorksheetFunction 调用是 最标准、最常用 的方式，适用于绝大多数 Excel 函数，基本语法如下：

Application.WorksheetFunction.函数名(参数1, 参数2, …)

或简写为：

WorksheetFunction.函数名(参数1, 参数2, …)

二、WorksheetFunction函数调用示例

（1）求和 SUM

Dim result As Double
result = WorksheetFunction.Sum(Range("A1:A10"))

（2）平均值 AVERAGE

result = WorksheetFunction.Average(Range("A1:A10"))

（3）最大值 / 最小值

maxVal = WorksheetFunction.Max(Range("A1:A10"))
minVal = WorksheetFunction.Min(Range("A1:A10"))

（4）计数相关

cnt1 = WorksheetFunction.Count(Range("A1:A10")) ' 数值个数
cnt2 = WorksheetFunction.CountA(Range("A1:A10")) ' 非空个数

（5）条件类函数IF

result = WorksheetFunction.If(A1.Value > 60, "及格", "不及格")

（6）条件类函数 SUMIF

result = WorksheetFunction.SumIf(Range("A:A"), ">=60", Range("B:B"))

（7）条件类函数 COUNTIF

cnt = WorksheetFunction.CountIf(Range("A:A"), ">=60")

三、通过 Evaluate 调用 Excel 函数（灵活）

Evaluate 允许你 像在单元格中一样写公式，非常适合动态公式或复杂表达式。例如：

result = Evaluate("SUM(A1:A10)")

也可以使用变量：

result = Evaluate("SUM(" & rng.Address & ")")

四、VBA 中常用 Excel 函数速查

AutoFill方法让公式自动填充

如果VBA给EXCEL中的单元格填入公式，能不能像EXCEL里面，填好了一个单元格的公式，直接用填充柄就可以将其他部分的公式也填写完整呢？这里我们就需要用到AutoFill方法了，基本用法如下：

Range.AutoFill(Destination, Type)

• Destination：要填充的目标区域（必须包含源区域）
• Type：填充类型常量（见下表）

（1）基本序列填充

Sub BasicAutoFill()
' 在A列填充数字序列
Range("A1").Value = 1
Range("A1").AutoFill Destination:=Range("A1:A10"), Type:=xlFillSeries

' 在B列填充月份
Range("B1").Value = "一月"
Range("B1").AutoFill Destination:=Range("B1:B12"), Type:=xlFillMonths

' 在C列填充日期序列
Range("C1").Value = Date
Range("C1").AutoFill Destination:=Range("C1:C10"), Type:=xlFillDays
End Sub

（2）复制值和格式

Sub CopyWithAutoFill()
' 复制公式
Range("A1").Formula = "=ROW()"
Range("A1").AutoFill Destination:=Range("A1:A10"), Type:=xlFillCopy

' 复制值和格式
Range("B1").Value = "示例"
Range("B1").Interior.Color = vbYellow
Range("B1").Font.Bold = True
Range("B1").AutoFill Destination:=Range("B1:B5"), Type:=xlFillFormats

' 仅复制值（不复制公式）
Range("C1").Formula = "=TODAY()"
Range("C1").AutoFill Destination:=Range("C1:C5"), Type:=xlFillValues
End Sub

（3）公式填充

Sub FormulaWithAutoFill()
range("C1") = "=SUM(A1:B1)"
range("C1").autofill range("C1:C3"), type:=xlFillDefault
End Sub

本期重点带大伙了解了VBA中支持的各种函数，给大家整理了关键的几张对照表，忘记的时候可以回来查阅，后续会继续分享更多VBA编程相关内容，我是不懂代码的杰瑞学长，我们下期再见！

如果觉得文章对你有帮助，欢迎点赞 + 收藏 + 关注，一起进步！