回答編集履歴
1
値の場合の例も追記
answer
CHANGED
|
@@ -21,6 +21,7 @@
|
|
|
21
21
|
Dim t_Container As New Container_Class
|
|
22
22
|
Dim t_X As Variant
|
|
23
23
|
|
|
24
|
+
' オブジェクトの場合
|
|
24
25
|
t_Container.SetX Sheet1
|
|
25
26
|
If t_Container.IsObject Then
|
|
26
27
|
Set t_X = t_Container.X
|
|
@@ -28,6 +29,13 @@
|
|
|
28
29
|
t_X = t_Container.X
|
|
29
30
|
End If
|
|
30
31
|
|
|
32
|
+
' 値の場合
|
|
33
|
+
t_Container.SetX 1
|
|
34
|
+
If t_Container.IsObject Then
|
|
35
|
+
Set t_X = t_Container.X
|
|
36
|
+
Else
|
|
37
|
+
t_X = t_Container.X
|
|
38
|
+
End If
|
|
31
39
|
End Sub
|
|
32
40
|
```
|
|
33
41
|
|