回答編集履歴
3
コメント修正:数値型にする → 通貨型にする
test
CHANGED
@@ -92,7 +92,7 @@
|
|
92
92
|
|
93
93
|
|
94
94
|
|
95
|
-
' ★
|
95
|
+
' ★通貨型にする
|
96
96
|
|
97
97
|
Dim csvCur As Currency
|
98
98
|
|
2
不要な行を削除
test
CHANGED
@@ -108,8 +108,6 @@
|
|
108
108
|
|
109
109
|
' ★比較
|
110
110
|
|
111
|
-
' Compare = (cellVal = chk)
|
112
|
-
|
113
111
|
Compare = (cellVal = chk)
|
114
112
|
|
115
113
|
Else
|
1
エラー処理について言及
test
CHANGED
@@ -1,6 +1,4 @@
|
|
1
1
|
CSV の値を読み込んだ時に、先頭が ¥ だったら 「CSV の値を通貨型に変換」 してから比較するのはどうですか?
|
2
|
-
|
3
|
-
|
4
2
|
|
5
3
|
…と思いましたが、それだとセル側が数値型とかでも一致とみなされますね…
|
6
4
|
|
@@ -8,7 +6,13 @@
|
|
8
6
|
|
9
7
|
もし「Cell:数値型 12345」 「CSV:\12,345」の場合に一致としたくないなら、さらにセルの書式設定なども見て判定する必要がありますね。
|
10
8
|
|
11
|
-
(NumberFormatLocal ですかね)
|
9
|
+
(NumberFormatLocal ですかね)
|
10
|
+
|
11
|
+
|
12
|
+
|
13
|
+
あと、"\123a" みたいな値がある場合を考慮するなら、「通貨型への変換に失敗したら、単純に文字列として比較する」みたいな処理も必要ですね。
|
14
|
+
|
15
|
+
|
12
16
|
|
13
17
|
|
14
18
|
|