我检查了其他类似的问题，但大部分时间都是＆＃34;设置＆＃34;这被遗忘了。我不认为我忘记了一个，这就是我要问的原因。
我有这个模块：
index.html错误是第Option Explicit
Option Base 0
Public AssetFamilyCollection As New Collection
Public AssetCollection As New Collection
Sub test_demarrage()
Dim wsTest As Worksheet
Dim paf As ProcessAssetFamily
Dim fmly As AssetFamily
Dim i As Integer
Set wsTest = ThisWorkbook.Worksheets("test")
Set AssetFamilyCollection = CreateAssetFamilyCollection()
Set AssetCollection = CreateAssetCollection()
Set paf = New ProcessAssetFamily
Set paf.AssetFamilyCollection = AssetFamilyCollection
paf.DefaultValue
paf.CountAssetByFamily (AssetCollection)
End Sub
行
以下是ProcessAssetFamily类的代码
paf.CountAssetByFamily (AssetCollection)