質問編集履歴
1
情報抜け
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -9,6 +9,8 @@
|
|
|
9
9
|
|
|
10
10
|
|
|
11
11
|
エラー 438 「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」
|
|
12
|
+
|
|
13
|
+
エラーは「Debug.Print persons.Item(1)」の部分で発生します
|
|
12
14
|
|
|
13
15
|
|
|
14
16
|
|
|
@@ -133,3 +135,43 @@
|
|
|
133
135
|
|
|
134
136
|
|
|
135
137
|
```
|
|
138
|
+
|
|
139
|
+
|
|
140
|
+
|
|
141
|
+
```lang-VBA
|
|
142
|
+
|
|
143
|
+
Public 名前 As String
|
|
144
|
+
|
|
145
|
+
Public 住所 As String
|
|
146
|
+
|
|
147
|
+
Public 電話番号 As String
|
|
148
|
+
|
|
149
|
+
Public 誕生日 As String
|
|
150
|
+
|
|
151
|
+
Public 性別 As String
|
|
152
|
+
|
|
153
|
+
|
|
154
|
+
|
|
155
|
+
Public Property Get 年齢() As Integer
|
|
156
|
+
|
|
157
|
+
|
|
158
|
+
|
|
159
|
+
年齢 = DateDiff("yyyy", 誕生日, Date)
|
|
160
|
+
|
|
161
|
+
|
|
162
|
+
|
|
163
|
+
End Property
|
|
164
|
+
|
|
165
|
+
|
|
166
|
+
|
|
167
|
+
Public Property Get self() As Person
|
|
168
|
+
|
|
169
|
+
|
|
170
|
+
|
|
171
|
+
Set self = Me
|
|
172
|
+
|
|
173
|
+
|
|
174
|
+
|
|
175
|
+
End Property
|
|
176
|
+
|
|
177
|
+
```
|