エクセル2000新機能の活用 - Split,Join,StrReverse
以下のサンプルではエクセル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

Excel2000



戻る


Excel Word Access VBA! モーグ