VBAのループ

初めて質問させていただきます。

今VBAでプログラムを組んでいるのですが

たとえば


dim a as string

dim b as string

result = mid(text,i,1)

text="あいうえお1234あいうえお"

Count = len(text)


For i = 1 to Count

　if mid(text,i,1) like "[0-9]" then

a = result

else

b = result

end if

next


というソースを書くと

aやbの変数の中には

もちろんのことながら文字と数字が交代で１文字ずつしか格納されてくれません。

result = mid(text,i,1)っていうのが悪いというのはわかるのですがどういじればいいかわからなくて・・


どうしたらaやbの中に続けて格納されてくれるでしょうか。

知恵をお貸しくださいm(_ _)m

もしも足りない情報があればいってください。

なにぶんはじめたばかりなのでわからないことだらけでご迷惑をおかけしますがよろしくお願いします。

No.1 ベストアンサー 回答者： hige_082 回答日時： 2009/06/24 22:53

＞result = mid(text,i,1)っていうのが悪い．．．

う～ん、違うと思う

＞a = result
＞b = result
a = a & result
b = b & result
に変更してみて

お望みの結果になったかな？

この回答へのお礼

思った通りの動きになりました!


凄く嬉しいっ・゜・(ノД`)・゜・。

始めたばかりで右も左も分からず…でもうまくいくと嬉しいです。
hige_082さんありがとうございます★
基本的なことだと思うのでもっとつめてやってみます！

お礼日時：2009/06/24 23:13