たとえばあるセルに
というような文字列があって、( )の中身だけを取り出すようなマクロを考えてみましょう。
abcdefg から cde を抜き出すマクロ
汎用的なユーザー定義関数を作る前に、簡単なサブルーチンで基本的な構造を見てみましょう。
'VBA Selecting a specific character sampe_code_1
Sub Extract()
Dim mystr1 As String
Dim mystr2 As String
mystr1 = "abcdefg"
mystr2 = Mid(mystr1, InStr(mystr1, "b") + 1)
mystr3 = Left(mystr2, InStr(mystr2, "f") - 1)
Debug.Print mystr3
End Sub
このマクロを実行すると「 abcdefg 」という文字列から b と f の間にある文字列を取り出してイミディエイトウィンドウに「 cde 」という文字を表示します。
c の次の文字列を全部抜き出します
InStr は特定の文字列が何番目にあるかを返す関数で、
によって abcdefg にある b の位置 2 を得ています。なので
と記述すれば、Mid 関数によって mystr1 に格納されている文字列 abcdefg の 3 番目から cdefg を取り出していることになります。
fg を取り除きます
今度はこの cdefg を対象に fg を取り除くことを考えます。
によって f の位置 4 が得られます。そして Left 関数を使って
と書けば、左から 3 番目まで文字を取り出して cde が得られるという仕組みになっています。
特定の文字で囲まれた部分を抜き出すマクロ
それではユーザーさんが好きな記号を2つ入力して(左と右で別々の記号を使えるようにします)、その間にある文字列を抜き取るマクロを作ってみましょう。
'VBA Selecting a specific character sampe_code_2
Function EXT(mystr As String, mykey1 As String, mykey2 As String) As String
Dim mystr2 As String
mystr2 = Mid(mystr, InStr(mystr, mykey1) + 1)
EXT = Left(mystr2, InStr(mystr2, mykey2) - 1)
End Function
基本的な構造は先ほどのマクロと同じです。ユーザーさんが入力する文字 mykey1 と mykey2 で囲まれた文字を取出します。たとえばセル B2 に「(言語のAI)こばとちゃん」と入力されているとします。このとき、セルに
と入力すると ( ) の中の「言語のAI」が取り出されます。