文字の反転 (ID:88825)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 例えば、文字列"0123456789ABCDEFGHIJKLM"の中の、"345"と"HIJK"のように 長さの違う複数個所を反転させたいんじゃないでしょうか？ Private Sub Command1_Click() Debug.Print strReverseEX("0123456789ABCDEFGHIJKLM", "345", "HIJK") End Sub Private Function strReverseEX(strText As String, ParamArray strData()) As String Dim i As Integer For i = LBound(strData) To UBound(strData) If InStr(strText, strData(i)) > 0 Then strText = Replace(strText, strData(i), StrReverse(strData(i))) End If Next i strReverseEX = strText End Function