Question

我想使用这个属性：

Public Property Get HasNoData() As Boolean

   HasNoData = (numberOfColumns < 2 And numberOfRows < 2)

End Property

Sub test()

Dim numberOfColumns As Long
Dim numberOfRows As Long

numberOfColumns = 5
numberOfRows = 3

If HasNoData Then
MsgBox True
Else:
MsgBox False

End If

End Sub

每当我得到 TRUE 时，无论条件是否满足。我可能会把整个想法弄错，所以请告诉我。

Answer 1

现在您的代码存在一些问题：

属性只能是类的成员
变量取决于所谓的范围，具体而言，您的两个变量numberOfColumns和numberOfRows仅在test() Sub的范围内可用，因此它们及其值不能可以在HasNoData()属性中看到，除非它们作为参数传递或设置为类
VBA Msgbox将String作为参数，而您提供了布尔

我认为你真正想要的是将“HasNoData”变成一个带有两个参数的函数，一个用于行，一个用于列。试试这个：

Public Function HasNoData(NumRows, NumCols) As Boolean
   HasNoData = (NumCols < 2 And NumRows < 2)
End Function

Sub test()
    If HasNoData(3, 5) Then
        MsgBox "There is data!"
    Else
        MsgBox "There is no data."
    End If
End Sub

非常基本的使用VBA属性

1 个答案: