VB類模塊中屬性的參數——VBA中Range對象的Value屬性和Value2屬性的一點區別

在VB中，屬性是可以有參數的，而VBA中屬性使用參數非常常見。比如最常用的：Worksheet.Range("A1:A10")

 VB的語法，使用參數的不一定是方法，也有可能是屬性！(雖然屬性的本質是方法)

例一：參數當作“索引”使用

定義一個類模塊，模塊名稱Ints。為簡化模型，使用了只讀屬性。

Private arr(3) As Integer

Public Property Get ArrValue(Index As Integer) As Integer
    ArrValue = arr(Index)
End Property

'初始化arr(3)的值
Private Sub Class_Initialize()
    arr(0) = 1
    arr(1) = 2
    arr(2) = 3
    arr(3) = 4
End Sub

調用：

Sub Test()
    Dim c As New Ints
    Debug.Print c.ArrValue(2)   'ArrValue是屬性，並且帶有參數( 索引 )
    '輸出結果=3
End Sub

例2：可選參數
定義一個類模塊，模塊名稱MyCal。

這個類的作用是計算兩個數的和，當加數為負數時，使加數=0 (示例使用，沒多少實際意義）

Private m As Integer
Private n As Integer

Public Property Get intm() As Integer
    intm = m
End Property

Public Property Let intm(ByVal xvalue As Integer)
    m = xvalue
End Property


Public Property Get intn(Optional b As Boolean = False) As Integer
    intn = n
End Property

'加數為負數時，n賦值為0
Public Property Let intn(Optional b As Boolean = False, ByVal xvalue As Integer)
    If b And n <= 0 Then
        n = 0
    Else
        n = xvalue
    End If
End Property

'計算兩個數的和
Public Function MySum() As Integer
      MySum = intm + intn
End Function

調用：

Sub Test()
Dim c As New MyCal

c.intm = 4
c.intn = -4

Debug.Print c.MySum    '輸出 0

c.intm = 4
c.intn(True) = -4

Debug.Print c.MySum    '輸出 4

End Sub

VBA中Range對象的Value就是有可選參數的屬性

而Range對象的另外一個屬性Value2是非參數化的屬性

Value屬性參數的意義：