質問編集履歴
2
検証内容変更
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -120,6 +120,10 @@
|
|
|
120
120
|
|
|
121
121
|
|
|
122
122
|
|
|
123
|
-
####（５）検証の
|
|
123
|
+
####（５）検証のまとめ
|
|
124
124
|
|
|
125
|
-
オブジェクトの場所は正常に
|
|
125
|
+
オブジェクトの場所は正常に 検知されているので
|
|
126
|
+
|
|
127
|
+
セルA1を選択した場合のみ、メッセージボックスが表示されるはずですが
|
|
128
|
+
|
|
129
|
+
そうではありませんでした。
|
1
検証内容を追記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -63,3 +63,63 @@
|
|
|
63
63
|
End If
|
|
64
64
|
|
|
65
65
|
End Sub
|
|
66
|
+
|
|
67
|
+
|
|
68
|
+
|
|
69
|
+
####（３）検証
|
|
70
|
+
|
|
71
|
+
以下コードを実施しました。
|
|
72
|
+
|
|
73
|
+
Option Explicit
|
|
74
|
+
|
|
75
|
+
|
|
76
|
+
|
|
77
|
+
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
|
|
78
|
+
|
|
79
|
+
|
|
80
|
+
|
|
81
|
+
Debug.Print "ActiveCell", ActiveCell.Row, ActiveCell.Column`ｱｸﾃｨﾌﾞｾﾙの行列を表示`
|
|
82
|
+
|
|
83
|
+
Debug.Print "Target", Target.Row, Target.Column`Targetの行列を表示`
|
|
84
|
+
|
|
85
|
+
Debug.Print "A1", Range("A1").Row, Range("A1").Column`A1セルの行列を表示`
|
|
86
|
+
|
|
87
|
+
|
|
88
|
+
|
|
89
|
+
|
|
90
|
+
|
|
91
|
+
If Target = Range("A1") Then
|
|
92
|
+
|
|
93
|
+
|
|
94
|
+
|
|
95
|
+
MsgBox "セルを選択"
|
|
96
|
+
|
|
97
|
+
|
|
98
|
+
|
|
99
|
+
End If
|
|
100
|
+
|
|
101
|
+
|
|
102
|
+
|
|
103
|
+
End Sub
|
|
104
|
+
|
|
105
|
+
|
|
106
|
+
|
|
107
|
+
####（４）検証結果
|
|
108
|
+
|
|
109
|
+
１、セルC5を選択しました。
|
|
110
|
+
|
|
111
|
+
２、メッセージボックスが表示されます
|
|
112
|
+
|
|
113
|
+
３、イミディエイトウインドウには、以下のように表示されます
|
|
114
|
+
|
|
115
|
+
ActiveCell 5 3
|
|
116
|
+
|
|
117
|
+
Target 5 3
|
|
118
|
+
|
|
119
|
+
A1 1 1
|
|
120
|
+
|
|
121
|
+
|
|
122
|
+
|
|
123
|
+
####（５）検証の考察
|
|
124
|
+
|
|
125
|
+
オブジェクトの場所は正常に、検知されていると思います。
|