teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

2

説明追記

2021/09/25 07:15

投稿

hatena19
hatena19

スコア34367

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

コード修正

2021/09/25 07:15

投稿

hatena19
hatena19

スコア34367

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 = Right(JUU1, pos)
33
+ TEMP3 = Mid(JUU1, pos)
34
34
  ```