Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30722 / 76732

←次へ　｜　前へ→


	【51274】Re:文字の中から特定の文字を取り出す

ichinose - 07/9/8(土) 6:19 -


	引用なし

	パスワード

▼おやじvba若葉マークさん：
おはようございます。
>例えば
>クイーンS(G3)
>という文字列の中から　
>G3
>という文字を取り出すには関数では

G3という文字を取り出すのに数式中に"G3"という文字列を
入れてしまうのは、おかしいですよね？？

>MID(E14,SEARCH("G3",E14),SEARCH(")",E14)-SEARCH("G3",E14))

これは、"(",")"の二つの文字列を検索することで中の文字列を取り出します。

=MID(E14,SEARCH("(",E14)+1,SEARCH(")",E14)-SEARCH("(",E14)-1)

ＶＢＡにも同じ関数があります。
Mid関数は、ＶＢＡにも同じ関数があります。
search関数は、instr関数で同じことができます。

Sub samp()
　　Dim r As Variant
　　r = Range("e14").Value
　　MsgBox Mid(r, InStr(r, "(") + 1, InStr(r, ")") - InStr(r, "(") - 1)
End Sub

ＶＢＡでの方法は他にもいくつかあると思いますよ！！

正規表現を使うとか（これを押さえておくと色々便利）、
又は、ループして一文字ずつチェックするとか・・・。

最後は↑これで殆ど出来てしまいますから、
文字列の検索プログラムは楽しみながら
色んな手法を見つけてください。

今から、HERO観るために映画館で並びます。
50歳を目前にして・・・。

では２

1 hits

▼

【51273】文字の中から特定の文字を取り出す おやじvba若葉マーク 07/9/8(土) 3:31