座席表作成(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をダウンロード

Comments

[投稿情報: 悪児]

に走っちゃいましたね。(^^;)(^^;)

悪児もExcelだと、Excelの機能を使わず（使えず）に、
ついつい力業に頼ってしまうので、
気持ちはよく分かります。

でも・・・

[投稿情報: 悪児]

あれ、

>に走っちゃいましたね。(^^;)(^^;)

頭が消えちゃいましたね。(^^)ゞ

力業に走っちゃいましたね。(^^;)(^^;)

でした。(^^)ゞ

[投稿情報: くまぷー]

悪児さん、どもです。

＞気持ちはよく分かります。
＞でも・・・

「でも・・・」の後が気になります・・・(^^)ゞ

[投稿情報: 悪児]

ちょっと、苦言になりますが・・・(^^;)(^^;)

初心者向けの講座とすると、いかがでしょうか？
（初心者向けとは、書いてなかったかな？(^^)ゞ）
３行マクロといいますが、
この場合の「３」とは、少ない、という意味で、
１０行でも、２０行でも、３行マクロだと、
悪児は理解しています。

そして、無理に３行に押し込んだために、
非常に限定的な働きしかしないマクロになりました。
例えば、座席表の番号が、前後逆になったり、
縦順が横順になったりしたら、そのままでは使えません。
（そんなことは先刻承知の上でやっていると思いますが）

要するに、３行にする「ため」に、
色々なものを犠牲にしている・・・
それは、マクロの本道（ってなに？(^^;)(^^;)）から
外れていると、悪児は思います。(^^)ゞ

もちろん、初心者ではない、「達人？」のレベルからすると、
をを！！　やったな（やられたな）、
と思う面もあるのですが。(^^;)(^^;)

悪児の「座席表マクロ」は、こちらに置いておきます。

http://www.sakura-catv.jp/~r-watanabe/mtmp/zasekihyo.lzh

もちろん、これは、座席表の番号がどう変わろうと
それに応じて名前を書き込みます。
範囲内であれば、座席のレイアウトが変わってもOKです。(^^)ゝ

[投稿情報: くまぷー]

>ちょっと、苦言になりますが・・・(^^;)(^^;)

いつも適切な助言、有り難うございます。
今、帰ってきたばかりなので
後ほど改めて・・・