Mid関数とは

業界最安値のプログラミングスクール｜SkillHacks(スキルハックス)(PR)


データ入力代行の業者探しは【簡単・無料・厳選優良業者】のEMEAO!(PR)

VBAにおける「Mid関数」は、文字列の一部を取得するために使用される関数です。この関数は、指定した位置から指定した長さ分の文字を取り出すことができます。特に、文字列を置換する際に非常に便利です。

友だち追加でExcel神技動画がもらえる！【ユースフルの公式LINE】(PR)


データ入力代行の業者探しは【簡単・無料・厳選優良業者】のEMEAO!(PR)

「Mid関数」を使うことで、文字列の一部を変更したり、抜き出したりすることができます。

Mid関数の基本的な使い方

「Mid関数」の構文は次の通りです：

Mid(文字列, 開始位置, 文字数)

ここで、

• 文字列は、対象となる文字列です。
• 開始位置は、文字列の中で抜き出しを始める位置（1から始まる）です。
• 文字数は、取得したい文字数を指定します（省略可能）。

例えば、次のようなコードがあります：

Dim str As String
str = "こんにちは世界"
MsgBox Mid(str, 1, 5)  ' 出力は「こんにちは」
        

この例では、文字列「こんにちは世界」の1番目から5番目の文字を取り出し、「こんにちは」という結果が得られます。

文字列置換の方法

「Mid関数」を使って、文字列の一部を置換することができます。具体的には、文字列の特定の位置から指定した文字数だけ置き換えることが可能です。

次の例で、文字列の一部を置換する方法を紹介します：

Dim str As String
str = "こんにちは世界"
Mid(str, 4, 2) = "日本"  ' 4番目の位置から2文字を「日本」に置換
MsgBox str  ' 出力は「こんに日本界」
        

このコードでは、「こんにちは世界」の4番目の位置から2文字（「世」）を「日本」に置き換えています。結果として「こんに日本界」という文字列になります。

実際の例

では、具体的なシナリオを想定して、さらに複雑な置換を行う方法を見ていきましょう。

例えば、文字列内に複数回現れる特定の文字列を一度に置換したい場合、次のようにします：

Dim str As String
str = "apple, banana, cherry, apple"
Dim pos As Integer
pos = InStr(str, "apple")  ' 最初の「apple」の位置を取得
Do While pos > 0
    Mid(str, pos, 5) = "orange"  ' 位置に「orange」を置換
    pos = InStr(pos + 1, str, "apple")  ' 次の「apple」の位置を検索
Loop
MsgBox str  ' 出力は「orange, banana, cherry, orange」
        

このコードでは、「apple」を「orange」に置き換えています。InStr関数を使って、「apple」の位置を一つずつ取得し、Mid関数で置換を行っています。

この方法を使えば、文字列の中で特定の部分を繰り返し置き換えることができます。