いぶろぐ　part2

日々創作

Latest(Selected) Entries

（）に囲まれた文字列以外を取得するマクロ (01/09)

<< なんだか久々の安堵 | main | 括弧の中身だけを取得するマクロ >>

2009年9月3日に埼玉県春日部市でおきた事故の情報を募集しております。
当日午後9時から9時20分ぐらいの時間に、埼玉県春日部市谷原3-14-5近辺（藤通り）にて
北（春日部駅方面）から南へ走行していた車が、WonderGoo春日部店より飛び出してきた車を
避けた際に、反対車線を突っ切りそのまま横転するという事故が起きました。
事故車の運転手は女性ですが、顔面を縫うなどの重傷であったにもかかわらず
飛び出してきた車は通報も救助作業もすることなく走り去ってしまいました。
車両同士の接触があったかどうかは不明ですが、飛び出した車の救助責任遺棄は許せません。
また、事故の状況を正確に把握するためにもこの相手の情報を求めています。
女性の顔の怪我は治りますが、傷は残ってしまうようです。
どうかこの事故に関して心当たりのある方、情報をお持ちの方はご一報をください。
jiko@wednesdaylove.jp
ご協力いただけると助かります。

こちらのテンプレート(JUGEM用)はフリーダウンロードできるようになっています。
お使いになりたいからはこちらからどうぞ。テンプレート[Rooms YouTube対応版]
テレビ無しのシンプルバージョンはこちら。テンプレート[Rooms]
また感想やご意見、改訂版の確認などはこちらの記事へ。 [Rooms]シリーズサポート

（）に囲まれた文字列以外を取得するマクロ

JUGEMテーマ：Office VBA

あるテキストから括弧で囲まれた部分を除いて取得するマクロを考えてみた。
もとはデータのスリム化というか、ある項目とそれぞれの単位を同じセルに格納できないものかと考えたのがきっかけ。
僕は会社での工事項目とその単位を
配管延長[m]
というような形で格納することにした。
ここで括弧の種類は視覚的、分類的にも１種類では足りないと思ったので、括弧の種類は自分で指定できるようにした。

早速書いてみたマクロは次のとおり。
マクロ内に日本語表記が多いのは好き嫌いが分かれるところだろうけれど、僕は日本語が入っているほうが見やすくて好き。

'===============================================
'========================= ()の中身を無視する
'===============================================
Function 括弧抜き(文字列 As String, Optional ByVal 先頭記号 As String, Optional ByVal 終了記号 As String)
If 先頭記号 = "" Then 先頭記号 = "("
If 終了記号 = "" Then 終了記号 = ")"
残す文字列 = ""
If InStr(文字列, 先頭記号) = 0 Then 残す文字列 = 文字列
Do Until InStr(文字列, 先頭記号) = 0
If InStr(文字列, 先頭記号) <> 1 Then 残す文字列 = 残す文字列 & Left(文字列, InStr(文字列, 先頭記号))
If InStr(文字列, 終了記号) = 0 Then Exit Do
文字列 = Right(文字列, Len(文字列) - InStr(文字列, 終了記号))
Loop
括弧抜き = Replace(Replace(残す文字列, 終了記号, ""), 先頭記号, "") '閉じ括弧が余分に合った場合は無視する
End Function

関数名が日本語なので、見たまんまで初めての人でも理解しやすいと思うのだけれど・・・。

これは標準モジュールに入れて使うのを想定して作ったユーザー関数で、使い方はシンプルで、括弧の中身を無視したい文字列を入れるだけ。
また、文字列を指定しただけでは、デフォルトで半角の()で囲まれた部分が無視されるようになっているのだけれど、文字列の次に先頭の括弧、続いて終わりの括弧を指定すればそれらに囲まれた部分を消去してくれる。
ただし今回は簡略化したので、終わりの括弧が２文字以上の場合や、先頭と終わりの括弧が同じ文字だった場合などで思ったような結果は得られないと思うので、そういうニーズがあれば改造が必要。
また、この関数を作ったときに初めて知ったのだけれど（笑）省略可能な引数を作るときは"Optional byVal"って入れるのね。
これは便利だなぁ。