2024年4月7日VBA

文字列の編集

---

（）内の文字列だけ抽出する

Instr で文字列の開始位置を特定して抽出箇所を指定する

Sub Extraction()

    Dim name As String

    name = "多治比縣守（たじひのあがたもり）君"
    MsgBox Mid(name, InStr(name, "（") + 1, InStr(name, "）") - InStr(name, "（") - 1)

    name = "清少納言（せいしょうなごん）さん"
    MsgBox Mid(name, InStr(name, "（") + 1, InStr(name, "）") - InStr(name, "（") - 1)

    name = "源義仲（みなもとのよしなか）氏"
    MsgBox Mid(name, InStr(name, "（") + 1, InStr(name, "）") - InStr(name, "（") - 1)

End Sub

実行結果

たじひのあがたもり
せいしょうなごん
みなもとのよしなか

---

シングルクォートを外して表示する

Replace で特定の文字列を指定した文字列に置換する

Sub ReplaceChar()

    Dim name As String

    name = "'多治比縣守'"
    MsgBox Replace(name, "'", "")

    name = "'清少納言'"
    MsgBox Replace(name, "'", "")

    name = "'源義仲'"
    MsgBox Replace(name, "'", "")

End Sub

実行結果

多治比縣守
清少納言
源義仲