回答編集履歴
3
MsgBox (26.26 - 26)追記
answer
CHANGED
|
@@ -23,5 +23,6 @@
|
|
|
23
23
|
MsgBox "不一致 ⇒ " & varA & " - " & varB
|
|
24
24
|
End If
|
|
25
25
|
'-----------------------------------
|
|
26
|
+
MsgBox (26.26 - 26)
|
|
26
27
|
End Sub
|
|
27
28
|
```
|
2
varへ変更
answer
CHANGED
|
@@ -8,19 +8,19 @@
|
|
|
8
8
|
MsgBox "⇒ 不一致"
|
|
9
9
|
End If
|
|
10
10
|
'-----------------------------------
|
|
11
|
-
Dim
|
|
11
|
+
Dim varA As Range
|
|
12
|
-
Dim
|
|
12
|
+
Dim varB As Range
|
|
13
|
-
|
|
13
|
+
|
|
14
|
-
Set
|
|
14
|
+
Set varA = Range("A1")
|
|
15
|
-
Set
|
|
15
|
+
Set varB = Range("B1")
|
|
16
|
-
|
|
16
|
+
varA = 0.3
|
|
17
|
-
|
|
17
|
+
varB = 0.1 + 0.2
|
|
18
|
-
|
|
18
|
+
|
|
19
19
|
'計算差額のチェック
|
|
20
|
-
If
|
|
20
|
+
If varA.Value = varB.Value Then
|
|
21
21
|
MsgBox "一致"
|
|
22
22
|
Else
|
|
23
|
-
MsgBox "不一致 ⇒ " &
|
|
23
|
+
MsgBox "不一致 ⇒ " & varA & " - " & varB
|
|
24
24
|
End If
|
|
25
25
|
'-----------------------------------
|
|
26
26
|
End Sub
|
1
変更
answer
CHANGED
|
@@ -13,11 +13,10 @@
|
|
|
13
13
|
|
|
14
14
|
Set dblA = Range("A1")
|
|
15
15
|
Set dblB = Range("B1")
|
|
16
|
-
|
|
17
16
|
dblA = 0.3
|
|
18
17
|
dblB = 0.1 + 0.2
|
|
19
18
|
|
|
20
|
-
'計算差額
|
|
19
|
+
'計算差額のチェック
|
|
21
20
|
If dblA.Value = dblB.Value Then
|
|
22
21
|
MsgBox "一致"
|
|
23
22
|
Else
|