类模块的用法

dogingate

之前一直没有看懂，现在恍然大悟，很简单么

在过程中有sub和function,sub无返回值，function有返回值

那么在类模块中也有sub和function，你若要有返回值，就用function，比如
public function functionname(args) as datatype
code...
functionname=你想返回的内容
end function

在模块中调用的时候就是set var=类名.functionname(args)

如果不要返回值，改成
public sub subname(args) as datatype
code...
end sub


在模块中调用的时候就是
类名.subname args
注意：没有返回值就不要用括号

至于你要获得类的属性就用get
public proverty get ProvertyName()
end proverty
设置类的属性值就用let
public proverty let ProvertyName()
end proverty

当这个类的属性是一个object时用set
public proverty set ProvertyName()
end proverty
附件是我整理的一些常用的代码，放到一个类模块中了，方便调用

excel海

类远不是这么简单啊,我一直想学习

FOB_FN_L

Public Function FindStuff(criteria As String, criteriaDate As Date, _

  lookupSheet As String, criteriaColumn As Integer, startDateColumn As Integer, _

  endDateColumn As Integer, resultsColumn As Integer)

  
Dim foundStuff As Boolean: foundStuff = False

  Dim wrkSheet As Worksheet

  For Each wrkSheet In Worksheets

    If LCase(wrkSheet.Name) = LCase(lookupSheet) Then

      Dim rowIndex As Long

      For rowIndex = 1 To wrkSheet.UsedRange.Rows.Count

        If wrkSheet.Cells(rowIndex, criteriaColumn) = criteria Then

          If IsDate(wrkSheet.Cells(rowIndex, startDateColumn)) And IsDate(wrkSheet.Cells(rowIndex, endDateColumn)) Then

                 If wrkSheet.Cells(rowIndex, startDateColumn) <= criteriaDate And wrkSheet.Cells(rowIndex, endDateColumn) >= criteriaDate Then

              FindStuff = wrkSheet.Cells(rowIndex, resultsColumn)

              foundStuff = True

              Exit For

            End If

          End If

        End If

      Next

    End If

  Next

  
  If Not foundStuff Then

    FindStuff = "N\A"

  End If

End Function

FOB_FN_L

Option Explicit
OnFunction FindSkus(searchCell)
  Dim RegEx As Object
  RegEx = CreateObject("VBScript.RegExp")
  RegEx.Global = True

  RegEx.Pattern = "(\d){7,8}"


  Dim foundSkus
  If RegEx.Test(searchCell) Then
    Dim matches As Object
    matches = RegEx.Execute(searchCell)
    Dim match As Object
    For Each match In matches
      foundSkus = foundSkus & match & ","
    Next

    foundSkus = Left(foundSkus, Len(foundSkus) - 1)

  End If


  FindSkus = foundSkus
End Function

ggmmlol

2333333

看来你这绝不可能是人造革，因为——你这是真的牛皮！

microyip

首先，保存自己认为常见的代码，是个良好的习惯，值得肯定。
另外，从文字描述上看，可能存在一定理解上误区，但作为目前你个人用自己方式理解，也不予以否定。所以，下面把我个人的理解简述一下
类，就是“类似”、“类型”、“种类”的意思，每个类里都会有各种自定义属性（包括变量、Sub过程、Function函数）

在类里开始位置行设定的全局变量
Public 变量，作为类内全局变量，可以作为属性对外进行直接输出以及直接输入
Private 变量，作为类内全局变量，不作为属性，不对外进行直接输出以及直接输入

在类里设定的Sub过程、Function函数
Public Sub，可以作为属性对外进行直接执行的过程
Private Sub，不作为属性，不对外进行直接执行的过程Public Function，可以作为属性对外进行直接执行的函数并相应返回值
Private Function，不作为属性，不对外进行直接执行的函数

在类里设定对外的自定义属性，必须Public Property开始，使用Let、Get进行设定、获取
Public Property Let 自定义属性(参数传入)，实际就是一个Sub过程，利用参数传入对指定的类内全局变量进行设定
Public Property Get 自定义属性() As 变量类型，实际就是一个无输入参数Function函数，对外输出指定的类内全局变量或者计算后数值



更高阶的Property应用，一般人用得少，就不予阐述了

FOB_FN_L

ggmmlol 发表于 2020-3-17 11:07
2333333

看来你这绝不可能是人造革，因为——你这是真的牛皮！

晕，GGM大神你太有才了，这几天在整理VBA代码，且无意对你那神秘的正则又能看懂一些了，

FOB_FN_L

ggmmlol 发表于 2020-3-17 11:07
2333333

看来你这绝不可能是人造革，因为——你这是真的牛皮！

    Sub windowsDataWP()
    Dim obj As Object
    Dim RegExp As Object
    Set RegExp = CreateObject("VBScript.RegExp")
    Dim strPattern As String

    RegExp.Pattern = "Effective\s+[0-9/]+\s+Distance.\s+([0-9.]+)\s+Effective"
    RegExp.Global = True
    RegExp.IgnoreCase = True

    Dim dataobj As New MSForms.DataObject
    Dim str As String
   Set obj = CreateObject("wscript.shell")

Application.Wait (Now + TimeValue("00:00:01"))
rowCounter = 4
windowName = Sheets("Sheet1").Range("B1").value
obj.AppActivate Trim(windowName)

Application.Wait (Now + TimeValue("00:00:02"))
zip1 = 1
Do While zip1 <> ""
    obj.AppActivate windowName
    zip1 = Sheets("Sheet1").Range("B" & rowCounter).value
    zip1 = CStr(zip1)
    If Len(zip1) < 5 Then
        zip1 = "0" + zip1
    End If
   
    zip2 = Sheets("Sheet1").Range("C" & rowCounter).value
    zip2 = CStr(zip2)
    If Len(zip2) < 5 Then
    End If
   
    obj.SendKeys "{TAB 4}"
    obj.SendKeys zip1
    obj.SendKeys "{TAB 2}"
    obj.SendKeys zip2
    obj.SendKeys "{ENTER}"
   
    Application.Wait (Now + TimeValue("00:00:02"))
    obj.SendKeys "%es"
    Application.Wait (Now + TimeValue("00:00:01"))
    obj.SendKeys "^c"
    Application.Wait (Now + TimeValue("00:00:01"))
   
    dataobj.GetFromClipboard
   
    str = dataobj.GetText
   
    Set allMatches = RegExp.Execute(str)
    result = ""
   
    If allMatches.Count <> 0 Then
   
        result = allMatches.Item(0).SubMatches.Item(0)
   
    End If

    ExtractSDI = result
   
    Worksheets("Sheet1").Range("D" & rowCounter).value = ExtractSDI
   
    rowCounter = rowCounter + 1
   
    zip1 = Sheets("Sheet1").Range("B" & rowCounter).value
   
    Loop

End Sub


看这个怎么样，正则的

boy8199

类 是 一种封装. 封装 就要牺牲性能.

当 要独立保留变量时,也就是说 多个实例 相互不影响时,使用它.

否则,函数\过程 就够了.

dogingate

boy8199 发表于 2020-3-17 12:01
类 是 一种封装. 封装 就要牺牲性能.

当 要独立保留变量时,也就是说 多个实例 相互不影响时,使用它.

我不想记那么多function和sub的名字，我直接从类里面，那个.提示多好