回答編集履歴
1
コード修正
answer
CHANGED
|
@@ -21,7 +21,7 @@
|
|
|
21
21
|
For Each cella In Range("a1:a10").Cells
|
|
22
22
|
If IsError(cella.Value) Then
|
|
23
23
|
MsgBox "エラーです。"
|
|
24
|
-
ElseIf cella.
|
|
24
|
+
ElseIf cella.value <> "a" Then
|
|
25
25
|
MsgBox "値が違います。"
|
|
26
26
|
End If
|
|
27
27
|
Next cella
|