VBAでクラスモジュールを使用していますが、
メソッドの使用がうまくいきません。
p2.SetAgeAndName ("佐藤",22) がコンパイルエラーとなります。
どう変更したらよいでしょうか。
よろしくお願いいたします。
VBA
1Sub 名前年齢() 2 Dim p1 As Person1 3 Dim p2 As Person1 4 Set p1 = New Person1 5 Set p2 = New Person1 6 p1.MyName = "田中" 7 p1.MyAge = 28 8 p1.ShowAgeAndName 9 p2.SetAgeAndName ("佐藤",22) ←←エラー箇所 10 MsgBox p2.MyName & p2.MyAge 11End Sub
<クラスモジュール : Person1>
VBA
1Private name As String 2Private age As Long 3 4Public Sub SetAgeAndName(name1 As String, age1 As Long) 5 name = name1 6 age = age1 7End Sub 8 9Public Sub ShowAgeAndName() 10 MsgBox name & "さん" & age & "歳" 11End Sub 12 13Property Let MyName(name1 As String) 14 name = name1 15End Property 16 17Property Let MyAge(age1 As Long) 18 age = age1 19End Property 20 21Property Get MyName() As String 22 MyName = name 23End Property 24 25Property Get MyAge() As Long 26 MyAge = age 27End Property
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2022/07/31 08:09