質問編集履歴
1
コード内セル行番号修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -16,7 +16,7 @@
|
|
|
16
16
|
Dim kensa As double
|
|
17
17
|
kensa = Range(“C1”).value2
|
|
18
18
|
|
|
19
|
-
If Range(“A1”).value2 <= kensa And kensa <= Range(“
|
|
19
|
+
If Range(“A1”).value2 <= kensa And kensa <= Range(“B1”).value2 then
|
|
20
20
|
MsgBox “含まれる”
|
|
21
21
|
Else
|
|
22
22
|
MsgBox “含まれない”
|