座席表作成(5)

【´･ω･`】：悪児さんの座席表作成マクロを見て勉強になったよ。

(●`ε´●)：お、おまえがそんなことを言うのは珍しいな。いったい

　　　　　　どんなところが？

【´･ω･`】：それは下のコードだ。

　　　　　%名前=Range("B2:B50")

              このコードはSuper Play Riteを知らなければ書くことはできない。

　　　　　エクセルにもRangeというオブジェクトがあるが、こういう使い方は

　　　　　できないからな。

(●`ε´●)：くまぷー、おまえはこの書き方を知らなかったんだな？

【´･ω･`】：うん。ちょっと解説するとこのコードはセルB2からB50までに

　　　　　　書かれている氏名を配列変数%名前に代入するための

　　　　　　ものだ。%名前(1)にはB2の「赤城まりこ」、%名前(2)には

　　　　　　B3の「アジャコング」が格納されている。

　　　　　　今まで同じことをやるのに、くまぷーは下のように書いていた。

　　　　　　For %i = １  To　 49

                      %名前(%i) =Cells(%i+1, 2)

                Next

(●`ε´●)：この書き方はVBAの書き方だな。

　　　　　　こういうコードを書いていたら、

　　　　　　くまぷーが三四郎マクロ初心者だということが

　　　　　　バレバレだな。

【´･ω･`】：うん、でも本当に初心者だから仕方がない・・・。

　　　　　　

　　　　　　

Comments

[投稿情報: 悪児]

あれ、
name=Range("B2:B50")
って、VBAでは、でいないんでしたっけ？

やってみたら、

nameが２次元配列になっちゃった。
使えないことはないけど、
使いづらいなぁ。(^^;)(^^;)

[投稿情報: くまぷー]

例えば・・・
Name=Range(A1:B3)
A1:Sun
A2:Mon
A3:Tue
B1:100
B2:200
B3:300
・・・とすると
Name(1,1)がA1のSun
Name(3,2)がB3の300
・・・となるようです。
つまり、Name（1,1）が
指定範囲の左上・・・。
あとはName(縦, 横)のオフセットですか。

くまぷーはこんな感じの
コードは書きませんけど(^^ゞ

[投稿情報: ビジネスバッグ おすすめ]

Howdy I am so delighted I found your site, I really found you by error, while I was searching on Aol for something else, Regardless I am here now and would just like to say thanks a lot for a incredible post and a all round thrilling blog (I also love the theme/design), I don? have time to read it all at the moment but I have bookmarked it and also added your RSS feeds, so when I have time I will be back to read more, Please do keep up the great work.
ビジネスバッグ おすすめ http://www.abipar.com/通勤、旅行、出張対応バッグケース-ビジネスバッグ-japan-100_3.html