文字列を逆並びにする関数です、鏡文字を作成する場合などに使用してください。
VBEの標準モジュールに下のコードを登録して「Excelマクロ有効フォーム」で保存してください。
関数の登録方法は⇒♯000 ユーザー定義関数を登録する方法
登録されたら、シート上からユーザー関数「 Mirror 」が使用できます。
使い方は
ワークシート上で = Mirror ( 文字列 )の関数として使用することで、シート名が表示されます。
【例】
Mirror(文字列)
Mirror(“今日の天気”)→ 気天の日今
Function Mirror(S)
’ 文字列を逆並びにする関数
’ Mirror(文字列)
’ Mirror(“今日の天気”)→ 気天の日今
On Error GoTo EXITFUN
Dim i As Long
Dim A As String
S = Replace(S, vbLf, “”)
For i = 1 To Len(S)
A = A & Right(S, 1)
S = Left(S, Len(S)- 1)
Next
Mirror = A
EXITFUN:
End Function
ここで紹介したコード使用による損害に対しては一切責任は負えません。