タイトル : Re^8: エラー処理追加(修正) 投稿日 : 2009/11/13(Fri) 17:36 投稿者 : 花ちゃん
> > For i = 0 To UBound(v1) > ↓ でどうでしょう。 > For i = 1 To UBound(v1) 見つからなかった場合の処理も不十分ですね。 Debug.Print Extex3("ABSCD1234EFG", "ABCD", "EFG") Debug.Print Extex3("ABCD1234EGFG", "ABCD", "EFG") |