以下のサンプルではエクセル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
|