VBA编译错误:未找到方法或数据成员
问题描述:
everyone。这是我的代码。调试时它说:“VBA编译错误:方法或数据成员找不到”,并强调线:Familienkutsche.strFarbe =“布劳” 如果我outcomment它,它说,关于后面的线一样的东西。它不喜欢什么?一切都写在一块,所以为什么他不承认任何“strFarbe”或“Geschwindigkeit”?话虽如此,如果我删除Familienkutsche,只是离开.strFarbe =“布劳”一切正常。先谢谢你。VBA编译错误:未找到方法或数据成员
Option Explicit
Public strFarbe As String
Private bytTempo As Byte
Private blnTempoSperre As Boolean
Public Property Let Geschwindigkeit(Speed As Long)
If (Speed > 250) Then
bytTempo = 250
blnTempoSperre = True
Else
bytTempo = Speed
blnTempoSperre = False
End If
End Property
Public Property Get Geschwindigkeit() As Long
Geschwindigkeit = bytTempo
End Property
Public Property Get abgeriegelt() As Boolean
abgeriegelt = blnTempoSperre
End Property
Public Sub Autos()
Dim Familienkutsche As Auto
Let Familienkutsche = New Auto
Familienkutsche.strFarbe = "Blau"
Familienkutsche.Geschwindigkeit = 320
Debug.Print Familienkutsche.Geschwindigkeit
Debug.Print Familienkutsche.abgeriegelt
End Sub
答
你的代码的第一部分必须是在类模块Auto
。
Public Sub Autos()
必须在标准模块。然后,它的工作原理(与改变Let
到Set
)。
输出:
250
Wahr
这不会编译; '让Familienkutsche =新Auto'应该是'Set Familienkutsche = New Auto' –
嗨,亚历克斯。感谢您的快速回复。我做了建议的更改,但它仍然不能编译并返回相同的错误。 =(((( – Lola
是一个'Class'? – PatricK