即効テクニック |
以下のサンプルではエクセル2000から導入された3つの関数Split,Join,StrRevese関数を使用しています。 Split関数:コンマやタブで区切られた文字列から 1 次元配列を作成します。 Join関数:配列に含まれる各要素を結合して文字列にします。 StrReverse:指定した文字列の文字の並びを逆にします。
Sub MyProc() Dim TempArray As Variant 'コンマ区切りの文字列をバリアント型変数に格納 TempArray = "0,1,2,3,4,5,6,7,8,9" MsgBox TempArray & vbCrLf & "文字列です" _ & vbCrLf & "IsArray = " & IsArray(TempArray) 'コンマ区切り指定で分割、配列化 TempArray = Split(TempArray, ",") '配列であることを確認 MsgBox "Splitしました" & vbCrLf & "IsArray = " & IsArray(TempArray) 'Joinして文字列へ TempArray = Join(TempArray, Space(1)) MsgBox "Joinしました" & vbCrLf & "IsArray = " & IsArray(TempArray) _ & vbCrLf & TempArray '文字列を逆順にします TempArray = StrReverse(TempArray) MsgBox "StrReverseしました" & vbCrLf & TempArray '元に戻します TempArray = StrReverse(TempArray) TempArray = Split(TempArray) TempArray = Join(TempArray, ",") MsgBox "元に戻しました" & vbCrLf & TempArray _ & vbCrLf & "IsArray = " & IsArray(TempArray) End Sub