VBA类模块封装

2018-09-26

"封装宏-------------------------

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

"封装自定义函数-------------------------

Sub 计算()

Dim f As New 函数库

Debug.Print "和：" & f.求和(Range("a1:a5"))

Debug.Print "平均值：" & f.平均数(Range("a1:a5"))

Debug.Print "最大值：" & f.最大值(Range("a1:a5"))

End Sub

"类模块-------------------------

"窗体库

"下面是增加最大化最小化按钮声明

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long

Private Const GWL_STYLE = (-16)                 "窗口样式

Private Const WS_THICKFRAME = &H40000           "可更改大小

Private Const WS_MAXIMIZEBOX = &H10000

Private Const WS_MINIMIZEBOX = &H20000

"下面是去除窗体标题的声明

Private Const WS_CAPTION As Long = &HC00000

Dim hWnd, IStyle

Property Set 含最大最小按钮的窗体(fm As MSForms.UserForm)

Dim hWnd As String, MyType As String

hWnd = FindWindow("ThunderDFrame", fm.Caption)  "取得窗口句柄

MyType = GetWindowLong(hWnd, GWL_STYLE)         "取得窗口样式

MyType = MyType Or WS_THICKFRAME                "重新设置窗口样式

MyType = MyType Or WS_MAXIMIZEBOX               "添加最大化按钮

MyType = MyType Or WS_MINIMIZEBOX               "添加最小化按钮

SetWindowLong hWnd, GWL_STYLE, MyType           "应用样式

DrawMenuBar (hWnd)

End Property

Property Set 无标题窗体(frm As MSForms.UserForm)

hWnd = FindWindow("ThunderDFrame", frm.Caption) "获取窗口句柄

IStyle = GetWindowLong(hWnd, GWL_STYLE)

IStyle = IStyle And Not WS_CAPTION

SetWindowLong hWnd, GWL_STYLE, IStyle

DrawMenuBar hWnd

End Property

"类模块-------------------------

"功能库

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

"类模块-------------------------

"函数库

Function 求和(rg As Range)

求和 = Application.Sum(rg)

End Function

Function 平均数(rg As Range)

平均数 = Application.Average(rg)

End Function

Function 最大值(rg As Range)

最大值 = Application.Max(rg)

End Function

免责声明：本文仅代表文章作者的个人观点，与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺，请读者仅作参考，并自行核实相关内容。

http://www.pinlue.com/style/images/nopic.gif