[[20040623162354]]　『入力した数値を逆から表示させる』（enbi）　ページの最後に飛ぶ

『入力した数値を逆から表示させる』（enbi）

例えば

０１２３４

と入力した場合

４３２１０

と表示させたいのですが、どうしたらいいでしょうか？

 どこに入力して、どこに表示するのですか？

  (INA)

説明不足で申し訳ありません。
Ａ１に入力して、Ａ２に表示させたいのですが．．．

  (enbi)

 入力値１５桁までで書いてみました。　　　　　　　　　　(LOOKUP)
 01234と前ゼロが必要な場合には、文字列のセルか、'01234と入力します。

 =MID(A1,15,1)&MID(A1,14,1)&MID(A1,13,1)&MID(A1,12,1)&MID(A1,11,1)
 &MID(A1,10,1)&MID(A1,9,1)&MID(A1,8,1)&MID(A1,7,1)&MID(A1,6,1)
 &MID(A1,5,1)&MID(A1,4,1)&MID(A1,3,1)&MID(A1,2,1)&MID(A1,1,1)

 ユーザー関数を作ってみました。標準モジュールにコピーして
 A2に =Mirror(A1) と入力してください

 Excel2000以降なら、StrReverse関数があるようなのでもっと簡単にできると思います　（りな）

 Function Mirror(rng As Range) As String

    Dim Reverse As String
    Dim Length As Integer, i As Integer

    Length = Len(rng)

    For i = Length To 1 Step -1
       Reverse = Reverse + Mid(rng.Value, i, 1)
    Next

    Mirror = Reverse

 End Function

LOOKUPさん、りなさん　ありがとうございました。
無事、成功しました。

  (enbi)

コメント返信：

[ 一覧(最新更新順) ]

[[20040623162354]] 『入力した数値を逆から表示させる』（enbi） ページの最後に飛ぶ

[[20040623162354]]　『入力した数値を逆から表示させる』（enbi）　ページの最後に飛ぶ