第70集 类的封装
可以对一些常用功能进行封装,方便合作开发。
344、 封装宏代码
1、插入类模块:功能库
Sub 公式变数值(rg As Range)
rg = rg.Value
End Sub
Sub 自定义格式变数值(rg As Range)
rg = rg.Text
End Sub
Sub 表达式变公式(rg As Range)
rg = “=” & rg.Value
End Sub
Sub 删除重复数据(rg As Range)
Dim d As New Dictionary, x As Integer
Dim arr
arr = rg
For x = 1 To UBound(arr)
d(arr(x, 1)) = “”
Next x
rg.Clear
rg.Cells(1, 1).Resize(d.Count) = Application.Transpose(d.Keys)
End Sub
2、模块中输入以下代码:
Sub 表达式变公式()
Dim g As New 功能库
g.公式变数值 Range(“b3”)
g.自定义格式变数值 Range(“c3”)
g.表达式变公式 Range(“d3”)
End Sub
Sub 删除重复值()
Dim cc As New 功能库
cc.删除重复数据 Selection
End Sub
345、 封装函数
1、插入类模块:函数库
Function 求和(rg As Range)
求和 = Application.Sum(rg)
End Function
Func