VBA

VBAで文字列内変数展開してみる

VBAは文字列内変数展開ができない。
なので普通は & を使って文字列と変数を連結するのだが、どうしても煩雑になりがちだし、コードも読みにくくなる。
なんとかならないかと作ってみたのがこの関数だ。

Function varExpInStr(ByRef txt As String, ParamArray args() As Variant) As String Dim re As Object Dim tmp As Variant, v As Variant Dim i As Long Dim dst As String, vtxt As String Set re = CreateObject("VBScript.RegExp") re.Pattern = "\${[^}]+}" re.IgnoreCase = False re.Global = True dst = re.Replace(txt, "${var}") vtxt = "" tmp = Split(dst, "${var}") i = 0 For Each v In args vtxt = vtxt & tmp(i) & v i = i + 1 Next vtxt = vtxt & tmp(i) varExpInStr = vtxt End Function

使い方はこんな感じ。

Sub test() Dim myname As String, age As Long myname = "たろう" age = 30 Debug.Print varExpInStr("私の名前は${myname}です。年齢は${age}です。", myname, age) End Sub

第1引数が文字列。
文字列内の変数はJavaScriptと同じく「${}」で囲むが、変数名はダミーなので何でもいい。
ただ後のメンテナンス性を考えると、実際の変数名と同じにしておいたほうが良いと思う。
第2引数以降は、文字列内に出現した順で実際の変数を与える。
そうすると、変数を展開した文字列が返ってくる。
これだけだ。
変数は何個でも展開できるが、文字列内の変数と実際の変数の数が合わないとおかしなことになる。（エラーチェックはしていない）

ただ、ループ内でこれを実行するとかなり遅くなってしまうので、この文字列をVBAでそのまま使える文字列に変換するJavaScriptも作ってみた。
以下フォームの「変換元」に「私の名前は${myname}です。年齢は${age}です。」と入力すれば、「"私の名前は" & myname & "です。年齢は" & age & "です。"」に変換してくれる。
あとはVBAソースにコピー＆ペーストすればOKだ。