ごじらを逆さまに(8)

【´･ω･`】：問題はこうだった。

　　　A1に入力された「ごじら」をB1に「らじご」と表示させる。

　　　ただし、下のような決うちは不可。

　　　=Right(A1,1) & Mid(A1,2,1) & Left(A1,1)

　　　A1に入る文字数は不定。A1に「きんぐぎどら」とあれば

　　　B1に「らどぎぐんき」と表示させる。

(●`ε´●)：くまぷー、芸が無いと言われるようなことはしないと

　　　　　　「ごじらを逆さまに(7)」で大口をたたいていたな。

　　　　　　それでは、おまえの回答を聞かせてもらおうか？！

【´･ω･`】：それでは・・・。

　　　　　B1に・・・

　　　　　　　=If(A2=0,"",If(Len(B1)<Len(A1),B1 & Mid(A1,Len(A1)-A3+1,1),B1))

　　　　　A3に・・・=If(A2=0,0,A3+1)

　　　　　・・・と入力して欲しい。

(●`ε´●)：それで？

【´･ω･`】：A2に・・・１と入力して・・・

　　　　　Shiftを押しながら、F2を押すとそのたびに「ら」「らじ」「らじご」と

　　　　　1文字ずつ逆読みで表示されていく・・・。

(●`ε´●)：こ、これは？！

【´･ω･`】：A2に０を入力するとリセットされる。試して欲しい。

　　　　　　悪児さんはどんな手を使ったのかな？

snsSample007.lzhをダウンロード

　

　　　　　　　

Comments

[投稿情報: 悪児]

やっぱり、循環参照でしたね。
「芸」って言葉から、
多分そうだろう、と思っていました。
お見事！！　(^^)(^^)

>悪児さんはどんな手を使ったのかな？

正攻法ですよ。
ワークシート関数だけです。(^^)ゞ

[投稿情報: 悪児]

こっち（↓）にアップしました。

http://homepage3.nifty.com/r-watanabe/nani/akjRyu.htm

また、こちら（↓）もご覧下さい。

http://akuji.justblog.jp/blog/2007/04/05_cbd0.html

[投稿情報: 悪児]

くまぷーさんの解答ですが、
B2セルの式を

=If(A2=0,"",If(Len(B1)

に替え、反復回数を10回以上に
設定すると、どうでしょう・・・(^^)(^^)

[投稿情報: くまぷー]

悪児さん、こんばんは。
悪児さんの仰っているのは
下の式ですね。
流石です。(^｡^)

=If(A2=0,"",If(Len(B1)

でも、なぜかコメント欄には
式が全部表示されていません。
どうしてだろう(?_?)

[投稿情報: くまぷー]

あれ、また式が途中で
消えている・・・。

[投稿情報: 悪児]

あれ、
なんか、式が途中で切れてますね。
もう一度やってみて、確認を押すと、
やはり切れます。
半角の不等号がダメなようで、
全角にしてみます。

=If(A2=0,"",If(Len(B1)＜Len(A1),B1 & Mid(A1,Len(A1)-Len(B1),1),B1))

これなら行けました。