Excel Maniacs

座席表作成(3)

【´･ω･`】：9/10になったのでくまぷーの書いた座席表作成マクロを

　　　　　　公開しよう。やはり、たったの３行。

!!座席表作成　by　くまぷー
!!2007/03/30

!!下は初期化コード。感嘆符を外せば有効になります。
!!Range("E2:O12")=""

For %i = 2 To 37
   Cells((Cells(%i, 3)-1) mod 6*2 +2 , ((Cells(%i, 3)-1) div 6 +1)*2+3) =Cells(%i, 2)
Next

(●`ε´●)：ここまで来ると可読性がいいとは言えないな・・・・。

snsSample006.zipをダウンロード

「ごじら」をバラバラに(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

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

(●`ε´●)：おい、くまぷー、またごじらか？！

　　　　　　『「ごじら」をバラバラに』はもう解決したんじゃないのか？

【´･ω･`】：いや、ごじらはなかなかしぶとくて

　　　　　　あれぐらいの「バラバラ」じゃ

　　　　　　すぐに復活してしまうんだ！！

(●`ε´●)：「ごじらの逆襲」というわけだな。

【´･ω･`】：で、今回は簡単に蘇らないように

　　　　　　さらにバラバラにするんだ。

　　　　　　例えばA1に「ごじら」とあったら

　　　　　　　　　　B1に「こ」

　　　　　　　　　　C1に「゛」

　　　　　　　　　　D1に「し」

　　　　　　　　　　E1に「゛」

　　　　　　　　　　F1に「ら」

　　　　　　・・・といったふうにバラバラに表示させたいんだ。

　　　　　　どうやったらできるかなぁ・・・？　(^。^)