質問編集履歴
1
情報抜け
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -4,6 +4,7 @@
|
|
|
4
4
|
使い方がまずいのでしょうか？
|
|
5
5
|
|
|
6
6
|
エラー 438 「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」
|
|
7
|
+
エラーは「Debug.Print persons.Item(1)」の部分で発生します
|
|
7
8
|
|
|
8
9
|
（最終的には、例えば「名前」をキーとして、対象レコードを取得してエクセルに反映したりしたいです。
|
|
9
10
|
調べるとitemメソッドが利用できるように思いました）
|
|
@@ -65,4 +66,24 @@
|
|
|
65
66
|
End Sub
|
|
66
67
|
|
|
67
68
|
|
|
69
|
+
```
|
|
70
|
+
|
|
71
|
+
```lang-VBA
|
|
72
|
+
Public 名前 As String
|
|
73
|
+
Public 住所 As String
|
|
74
|
+
Public 電話番号 As String
|
|
75
|
+
Public 誕生日 As String
|
|
76
|
+
Public 性別 As String
|
|
77
|
+
|
|
78
|
+
Public Property Get 年齢() As Integer
|
|
79
|
+
|
|
80
|
+
年齢 = DateDiff("yyyy", 誕生日, Date)
|
|
81
|
+
|
|
82
|
+
End Property
|
|
83
|
+
|
|
84
|
+
Public Property Get self() As Person
|
|
85
|
+
|
|
86
|
+
Set self = Me
|
|
87
|
+
|
|
88
|
+
End Property
|
|
68
89
|
```
|