StrRevers関数
以前の記事『 回文判定マクロ 』で
文字列を反対から並べるという操作を
For文を使ってやりました。
その時は探しもしなかったのですが、
それ用の関数がありました。
それがStrRevers関数です。
使い方は例えば、
Debug.Print StrReverse("文字列")
を実行するとイミディエイトに
「列字文」と出力されます。
上の記事のコードにStrReverse関数を使うなら
上の記事のコードのこの部分を
'反対から並べ替える
For i = Len(Str) To 1 Step -1
Str2 = Str2 + Mid(Str, i, 1)
Next i
次のコードで置き換えてください。
'反対から並べ替える
Str2 = StrReverse(Str)
一行でできますね。
| 固定リンク
この記事へのコメントは終了しました。

コメント