回答編集履歴
2
説明追記
answer
CHANGED
@@ -3,7 +3,7 @@
|
|
3
3
|
```
|
4
4
|
のコードが希望の動作にならないということですね。
|
5
5
|
|
6
|
-
これだと「1"2"3"4"5"6"7"8"9」という文字列を検索していることになり、住所にそのような文字列があるはずもないので当然ですね。また、Minなどという関数もありません。
|
6
|
+
これだと「1"2"3"4"5"6"7"8"9」という文字列を検索していることになり、住所にそのような文字列があるはずもないので当然ですね。また、VBAにMinなどという関数もありません。
|
7
7
|
InStrには、曖昧な検索をする機能はないので、関数を自作する必要があります。
|
8
8
|
|
9
9
|
例えば、標準モジュールに下記のような関数を作成して、
|
1
コード修正
answer
CHANGED
@@ -30,5 +30,5 @@
|
|
30
30
|
Dim pos As Long
|
31
31
|
pos = InStrNum(JUU1)
|
32
32
|
TEMP2 = Left(JUU1, pos-1)
|
33
|
-
TEMP3 =
|
33
|
+
TEMP3 = Mid(JUU1, pos)
|
34
34
|
```
|