エクセルで1つのセルの中にあるバス代とJR代をそれぞれ計算したい

エクセル2010を使用しています。
A3のセルの中にバス代とＪＲ代が含まれています。
B3にJR代、C3にバス代を計算したいです。
JRのみ、バスのみ、バスを2回乗り換えるといった場合もあります。
1つの乗り物毎にAltとEnterで改行しています。
アドバイスをお願いいたします。

No.5 回答者： CoalTar 回答日時： 2015/12/18 12:21

ちょっと修正

× 6桁以内(1000000以下) 桁区切りありなら10,0000以下(変更可能)
○ 6桁以内(999999以下) 桁区切りありなら9,9999以下(変更可能)
桁数の変更は B3セルの場合で2か所
B3セルに
=IF(ISERR(FIND("JR往復",ASC(A3))),0,LOOKUP(10^9,MID(ASC(A3),FIND("JR往復",ASC(A3))+4,{1,2,3,4,5,6,7,8})*1))

No.4 回答者： CoalTar 回答日時： 2015/12/18 12:06

検索語は「バス往復」、「JR往復」または「ＪＲ往復」

「バス往復」は2個まで
「JR往復」または「ＪＲ往復」どちらか1個まで
検索語の直後に金額が入ること(↓桁数が変わってしまうので)
6桁以内(1000000以下) 桁区切りありなら10,0000以下(変更可能)

このような条件を確認するだけでも大変なので表の変更をお勧めしますが
B3セルに
=IF(ISERR(FIND("JR往復",ASC(A3))),0,LOOKUP(10^7,MID(ASC(A3),FIND("JR往復",A
SC(A3))+4,{1,2,3,4,5,6})*1))

C3セルに
=IF(ISERR(FIND("バス往復",A3)),0,LOOKUP(10^7,MID(A3,FIND("バス往復",A3)+4,{1,2,3,4,5,6})*1)+
IF(ISERR(FIND("♪",SUBSTITUTE(A3,"バス往復","♪",2))),0,LOOKUP(10^7,MID(A3,FIND("♪",SUBSTITUTE(A3,"バス往復","♪",2))+4,{1,2,3,4,5,6})*1)))

B3:C3セルを下へオートフィル

この回答へのお礼

いろいろ考えていただきありがとうございました。お世話になりました。表を変更します。

お礼日時：2015/12/18 13:10

No.3 回答者： 銀鱗 回答日時： 2015/12/17 19:20

無理やりやるなら、

「バス往復」の文字列がA3セル内で何文字目にあるかを調べ、そこから何文字目に「円」が初めに出るかを調べ、その間の数値を引っ張り出す。
「ＪＲ往復」の文字列がA3セル内で何文字目にあるかを調べ、そこから何文字目に「円」が初めに出るかを調べ、その間の数値を引っ張り出す。
になるだろう。
SEARCH関数やFIND関数で「～往復」「円」の文字列が先頭から何文字目にあるかを調べ、MID関数で抜き出すというやり方。
MID関数は、
=MID (文字列，開始位置,文字数)
のように使うので、
=MID (A3，開始位置,文字数)
として、開始位置と文字数にSEARCH関数とFIND関数で得られた値を入れれば良い。
FIND関数は、
=FIND(検索文字列,対象,開始位置)
のように使うので、
=FIND("バス往復",A3,1)
これで「バス往復」の文字がA3セルの遷都から何文字目にあるのかが分かる。
=FIND("円",A3,=FIND(検索文字列,対象,開始位置))
これで「バス往復」の後に続く「円」場所が分かる。
あとは算数で金額が書かれている文字が何番目から何番目までにあるかが分かる。

=MID (A3　,　FIND("バス往復",A3,1)+4　,　FIND("円",A3,=FIND(検索文字列,対象,開始位置))-5　)+0

…だろうか。
※ MID関数の後ろに「+0」が付くのは、文字列として抜き出された「運賃」を数値に変換するため。

・・・
目で見て手入力した方が絶対に早い。

この回答へのお礼

いろいろ考えていただきありがとうございました。お世話になりました。

お礼日時：2015/12/18 13:08

No.2 回答者： mike_g 回答日時： 2015/12/17 17:52

セル A3 の記事から「そんな計算を Excel でするのはやめておけ」が、私からのアドバイスです。

この回答へのお礼

ありがとうございました。お世話になりました。

お礼日時：2015/12/18 13:07

No.1 回答者： Saturn5 回答日時： 2015/12/17 17:24

めちゃくちゃ無理をすればできますが、基本的には無理です。

根本からＥｘｃｅｌの使い方を間違っています。
Ｅｘｃｅｌはワークシートです。
複数のセルから１つの答えを作る用法が多いものです。
このように１つのセルから複数のデータを作ることはほとんどないです。
最初からＪＲとバスは別セル、できれば別列に入力しておくべきでした。
表示時に表のような形式にすることは簡単にできます。

この回答へのお礼

ありがとうございました。お世話になりました。

お礼日時：2015/12/18 13:07