エクセル VBA

質問

エクセルのVBAでの質問です。

1つのセルの中にカンマで処理したデータがあるとします。
例えば

A組,32番,山田太郎,男,12歳,45人中35位,性格明るい

この1つのセルでたとえば3番目だけの「山田太郎」を
VBAで取り出す方法はあるのでしょうか。
要するに1つのセルの中でカンマで区切られたデータを
個々に取り出す方法か知りたいのです。

どなたか教えてください。
なぜこのようなことが必要かといいますと、
歯科において、レセ電が導入されることになりました。
そこでそれを開発しているのですが、
最後に点数の検算をしようと考えていまして、
その点数をセルから取り出す方法が知りたいのであります。

もしどなたかご存知でしたら、是非、ご教示ください。
よろしくお願い申し上げます。

回答No.1

n-jun · ベストアンサー

Sub try()
Dim st As String
Dim v

st = "A組,32番,山田太郎,男,12歳,45人中35位,性格明るい"

v = Split(st, ",")

' ","で区切って３番目「0,1,2・・・で(2)のこと」
MsgBox v(2)

End Sub

一例まで。

お礼

大変参考になりました。ありがとうございました。

ついでにカンマで区切られたそのセル内の配列の個数を知る方法もおしえていただけませんでしょうか。

すいません。いろいろとありがとうございました。
本当に参考になりました。

回答No.3

n-jun

＃１です。

UBound 関数
配列の指定された次元で使用できる添字の最大値を、長整数型 (Long) の値で返します。

No.1だと、
Ubound(v)　で添字の最大値（0から始まる）を求められるので、
st = "A組,32番,山田太郎,男,12歳,45人中35位,性格明るい"
v = Split(st, ",")
なら6になります。
⇒v(0)="A組"　～　v(6)="性格明るい"

お礼

ありがとうございます。

わからなくて、困っていましたので、
本当に参考になりました。

しかも、すぐに答えていただいて、
すごーーーく、うれしいです。
助かりました。

では、またのご活躍をお祈りしています。

ありがとうございました。

回答No.2

inara1

VBAを使わなくてもExcel関数だけでできます。
以下の式を適当なセルに書けば、そのセルに「山田太郎」と出ます。式中のA1は元の文字列が入っているセル位置です。
=MID(A1,FIND(",",A1,FIND(",",A1,1)+1)+1,FIND(",",A1,FIND(",",A1,FIND(",",A1,1)+1)+1)-FIND(",",A1,FIND(",",A1,1)+1)-1)

上は３番目の文字列を抜き出す方法ですが、１番目や２番目の文字列を抜き出すには以下のような式にします。
１番目（A組）　=MID(A1,1,FIND(",",A1,1)-1)
２番目（32番）　=MID(A1,FIND(",",A1,1)+1,FIND(",",A1,FIND(",",A1,1)+1)-FIND(",",A1,1)-1)

この方法は「番目」が大きくなると式が長くなってしまいます。他にもっと良い方法があると思います。

お礼

ご丁寧に回答いただきありがとうございました。

ちょっと長い感じがしますので、
やっぱり、別回答のsplit関数でいきます。

でも、早速ご回答頂いてありがとうございました。