2017-12-13 3 views
0

多分それは長い一日だったので......
私はそれを取得しません。
なぜこのコードは「無効な修飾子」メッセージを表示しますか?あなたのエラーへブール値/無効な修飾子を表示

Sub UsingBooleans() 
Dim MastNameNew As Boolean 
MsgBox "mastnamenew value = " & MastNameNew.Value 
End Sub 
+2

「MsgBox」mastnamenew value = "&MastNameNew'である必要があります。 – aaa

+0

'MastNameNew'はオブジェクトではなくブール変数で、' .Value'などのプロパティはありません。 – AntiDrondert

答えて

0

MastNameNew"False (0)""True (1)"としてのみ可能な値を持つブール変数です。したがって、Booleanのプロパティはありません。 あなたは次に、コードの下に使用し、「偽」またはTrueとしてお答えしたい場合は、以下のコード を見つけてください:

Sub UsingBooleans() 
Dim MastNameNew As Boolean 
MsgBox "mastnamenew value = " & MastNameNew 
End Sub 

をそして、あなたは「0」または「1」として答えをしたいならば、以下のコードを使用します。

Sub UsingBooleans() 
Dim MastNameNew As Boolean 
MsgBox "mastnamenew value = " & CInt(MastNameNew) 
End Sub 
関連する問題