excel自定义函数 Excel｜内置函数全览和自定义函数

Excel｜内置函数全览和自定义函数

1.1 文本函数

Excel｜内置函数全览和自定义函数

1.2 数学和三角函数

Excel｜内置函数全览和自定义函数

1.3 查找和引用函数

用于查找或引用特定内容。

Excel｜内置函数全览和自定义函数

1.4 统计函数

Excel｜内置函数全览和自定义函数

1.5 日期和时间函数

Excel｜内置函数全览和自定义函数

1.6 信息函数

返回系统当前某些状态信息，如工作簿名称、单元格格式等。

Excel｜内置函数全览和自定义函数

1.7 逻辑函数

用于对数据进行相应的逻辑判断。

Excel｜内置函数全览和自定义函数

1.8 工程函数

Excel｜内置函数全览和自定义函数

2 自定义函数

定义一个字符串连接函数：

Excel｜内置函数全览和自定义函数

使用效果：

Excel｜内置函数全览和自定义函数

附代码：

Function Contxt(ParamArray args() As Variant) As Variant
Dim tmptext As Variant
Dim i As Variant
Dim cellv As Variant
tmptext = ""
For i = 0 To UBound(args)
If Not IsMissing(args(i)) Then
Select Case TypeName(args(i))
Case "Range"
For Each cell In args(i)
tmptext = tmptext & cell
Next cell
Case "Variant()"
For Each cellv In Application.Transpose(args(i))
tmptext = tmptext & cellv
Next cellv
Case Else
tmptext = tmptext & args(i)
End Select
End If
Next i
Contxt = tmptext
End Function

－End－