Excel Maniacs

ごじらをバラバラに(10)

【´･ω･`】：ところでべべちゃん、ごじらをバラバラに(8)でごじらを22文字で

　　　　　　バラバラにするって言ってたけど・・・、どうなったの？

(●`ε´●)：うん、くまぷー、おまえのごじらはダメ！！おれが言っていたのは

　　　　　　　あくまでこの「こ゛し゛ら」・・・。

【´･ω･`】：あ、よ～く見ると・・・。

(●`ε´●)：へへへ、種がわかった？実は三四郎ならば等号を

　　　　　　含めて１８文字！！

　　　　　　

「ごじら」をバラバラに(9)

(●`ε´●)：そう言えば「ごじら」をバラバラに(5)のカテゴリーには

　　　　　　３行マクロってのもあったな？！

【´･ω･`】：べべちゃんは記憶力がいいな。

(●`ε´●)：マクロでやるとどうなるんだ？

【´･ω･`】:：こう・・・。

For %i = 1 To Len(Han(kata(Cells(1,1))))
　　　　　Cells(1, %i +1) = Hira(Zen(Mid(Han(Kata(Cells(1,1))), %i, 1)))
Next

「ごじら」をバラバラに(8)

(●`ε´●)：くまぷー。「ごじら」を「こ」「゛」「し」「゛」「ら」にやっとできたぞ！！

【´･ω･`】：べべちゃん、おめでとう！それではさっそくやり方を

　　　　　　聞かせてくれ。

(●`ε´●)：おー！！まず、答えを先に言おうか。

【´･ω･`】：うん。

(●`ε´●)：A1に「ごじら」、

　　　　　　B1に　=Hira(Zen(Mid(Han(Kata($A1)),Col(A1),1)))

【´･ω･`】：正解だよ。簡単に考え方を説明してくれないか？

(●`ε´●)：よし、それでは・・・。「ごじら」をバラバラに(６) のヒントで

　　　　　　半角カタカナの「ｺﾞｼﾞﾗ」ならば　=Mid($A1,Col(A1),1)

　　　　　　・・・そのままの式で

　　　　　　B1に「ｺ」

　　　　　　C1に「ﾞ」

　　　　　　D1に「ｼ」

　　　　　　E1に「ﾞ」

　　　　　　F1に「ﾗ」

　　　　　　というふうにできるということがわかった。だから、まず・・・

　　　　　　Kata（$A1）・・・・・・（１）

　　　　　　で文字列をひらがなから全角カタカナに変換する。

　　　　　　さらに(1)をHan（）で半角に変換する。これが下の式だ。

　　　　　　Han(Kata($A1))・・・・・・（２）

　　　　　　この段階で全角ひらがなの「ごじら」が半角カタカナの

　　　　　　「ｺﾞｼﾞﾗ」にすることができた。これにMid()とCol()を

　　　　　　組み合わせれば、ヒントの通り・・・

　　　　　　B1に「ｺ」

　　　　　　C1に「ﾞ」

　　　　　　D1に「ｼ」

　　　　　　E1に「ﾞ」

　　　　　　F1に「ﾗ」

　　　　　　・・・と表示させることが出来る。ここまでで下の式ができあがる。

　　　　　　Mid(Han(Kata($A1)),Col(A1),1)　・・・・・・（３）

　　　　　　しかし、このままでは半角カタカナなのでこれを

　　　　　　ひらがな(全角）に戻さなければならない。

　　　　　　まず、（３）をZen()で全角にして、それからHira()を

　　　　　　使えばOKだ。これで答えの式・・・

　　　　　　=Hira(Zen(Mid(Han(Kata($A1)),Col(A1),1)))

　　　　　　の完成だ！！

【´･ω･`】：たぶん、悪児さんの言ってた回答もこれと同じだろう。

(●`ε´●)：ところでくまぷー、おいら、もっとすごい発見を

　　　　　　したぞ！！エクセルを使っていいなら、この「こ゛し゛ら」を

　　　　　　バラバラにするのに22文字だ！！

【´･ω･`】：べべちゃん、色々考えるね。ある意味手品師だね。

　　　　　　くまぷーが三四郎でやれば・・・。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）