下がコードの中身です。
!!提出物管理 by くまぷー
!!2007/03/29
!!提出者の番号をランダムに入力すると
!!提出Check欄に○印が表示される。
For %i = 2 To 41
Cells( Cells(%i, 1)+ 1, 5) ="○"
Next
たったのこれだけ、３行です。
ちなみにCells()はセルを指定する関数です。
Range()は記録マクロで使われるので
有名ですがCells()は記録マクロでは
使われないので、けっこう知らない方もいるようです。
Range("B3")ならばCells(3,2) Range("C2")ならばCells(2,3)と表すことが出来ます。 つまり・・・A列、B列、C列をそれぞれ１列、２列、３列と考えて |
| Cells(行番号, 列番号) |
・・・となります。 ループのなかではRange()よりもCells()の方が 使い勝手が良いようです。 補足） 実はサンプルとして紹介した 「提出物管理マクロ」には初期化コードが ありません。従ってE列に１回書き込まれた ○印は自動的にはクリアーされません。 自動的にクリアーしたいのならば For %i = 2 To 41 の上に、初期化コード Range("E2:E41").Clear(1, false, false, false) を加えてください。 |
コメント