時間部分を括弧で囲う

質問

文字列中に時間相当の数値がある場合
　時間のみ括弧で囲うワークシート関数を教えて下さい。

例えば
　A2： Green ROM　12:34
B2: Green ROM (12:34)

A2: soft Ball 05:12
B2: soft Ball (05:12)

時間区切りは、半角(:)又は全角（：）がありえます。
スペースも、半角、全角 がありえます。
　　見栄えを整えるのにスペースが連続することもあります。
　　　例：soft Ball 0512

時間は、以下の形式を考慮します。
hh:mm:ss
h:mm:ss
mm:ss
m:ss

回答No.2

kkkkkm · ベストアンサー

Green ROMのように文字列中のスペースが1個限定(文字列と時間の間は限定なしで)ですが

=LEFT(A2,FIND(" ", ASC(A2), FIND(" ", ASC(A2))+1)-1)&" (" & RIGHT(A2,LEN(A2)-FIND("●", SUBSTITUTE(ASC(A2), " ", "●", LEN(A2) - LEN(SUBSTITUTE(ASC(A2), " ", ""))))) & ")"

で試してみてください。

お礼

kkkkkmさん、
　今回も含めて何度も回答をいただき感謝します。

imogashiさん、
　　解説ありがとうございます。
　　エキセル関数では出来ないのですね。

VBAでも難しいそうなので
　文字部と時間部を分けてそれぞれセルに取り出して
　時間部に括弧で囲んで最後に両者を結合させて処理することにしました。

賢者さんならスマートな方法を教えてもらえるかもと思った素人の浅知恵でした。

回答No.1

imogasi

こういう課題は、エクセル関数向けでない。
ＶＢＡでも使い、「正規表現」という仕組みを使い、
文章中から、時間にふさわしい表記の部分を発見し（＝検索）
(+検索文字列＋）に、置換することをやると思うが、「パターン」という文字列」を、本件に適したものを作るのが、相当勉強と経験がいる。
ーー
人間が、目視で、どこにあるか見つけて、記号などで印をつける。
その記号を探し、置換する、程度にしておいたらどうか。
多列のデータだと結果セルを作る列の確保も大変だが。
＝＝
http://site.m-bsys.com/code/regexp-sample
対象　時刻の部分
正規表現：\d\d:\d\d
他の４つに比べて、一番理解しやすい書き方だが。
ーー
限定されること。
（１）人間のやる表記の多様性のため、指摘しすぎたり、漏らしたりは、例を挙げるのはたやすい。完全とは
言えないということ。
（２）ＶＢＡのVbscriptのＲｅｇＥｘｐという機能を使う必要がある。
ＲｅｇＥｘｐを使う前後に、通常のＶＢＡコードを使う必要がある。（その知識も必要。簡単だが、たとえば指定全セルを、検索繰り返し、など）。

お礼

kkkkkmさん、
　今回も含めて何度も回答をいただき感謝します。

imogashiさん、
　　解説ありがとうございます。
　　エキセル関数では出来ないのですね。

VBAでも難しいそうなので
　文字部と時間部を分けてそれぞれセルに取り出して
　時間部に括弧で囲んで最後に両者を結合させて処理することにしました。

賢者さんならスマートな方法を教えてもらえるかもと思った素人の浅知恵でした。