myaddin.cls

来自「《Wrox Excel 2003 VBA Programmers Referen」· CLS 代码 · 共 49 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 1  'NoTransaction
END
Attribute VB_Name = "Simple"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Base 1
Option Explicit

Public Function Sequence(ByVal Items As Long, _
  Optional ByVal Start As Integer = 1, _
  Optional ByVal Step As Integer = 1) As Variant()

  MsgBox "Sequence"
  
  ' Can't create an array of negative elements
  If Items < 1 Then
    Sequence = CVErr(2015)
    Exit Function
  End If

  MsgBox "Create Array"
  Dim result As Variant
  ReDim result(Items)
  Dim I As Long

  MsgBox "Loop"
  For I = 1 To Items
    result(I) = Start + ((I - 1) * Step)
  Next

  MsgBox "Return value"
  Sequence = result
  MsgBox "Assigned returned value"
End Function


Public Sub Test()
  MsgBox "Test"
End Sub