Excel Maniacs

得点ランダム入力２

!!ランダム点数入力　by　くまぷー
!!2007/03/30
!!出席番号（２桁）と得点（３桁）を
!!出席番号．得点の形式でランダムに入力すると
!!名前の横にその者の得点が表示される。

!!入力例
!!出席番号７番が８７点の場合→7.087
!!出席番号15番が100点の場合→15.1
!!出席番号9番が5点の場合→9.005

!!下は初期化コード。感嘆符を外せば有効になります。
!!Range("E2:E41").Clear(1, false, false, false)

For %i = 2 To 41
　　　　Cells( Int(Cells(%i, 1)) + 1, 5) =(Cells(%i, 1)　mod 1) * 1000
Next

正味、たったの３行です。

（ランダム点数入力）Sample002.zipをダウンロード

得点ランダム入力

前回の提出物管理３行マクロは如何だったでしょうか？

ただ前回のは「提出の有無」をチェックするだけです。

あれに付け加えて評価も自動的に名簿に

記入されるようにできないでしょうか？

中間・期末などの定期試験ならば

解答用紙が出席番号順に並んでいるからいいですけど

小テストや課題などは出席番号順に出てこないから

採点処理した評価を名簿に記入するのは結構面倒です。

そんなことが簡単にできたら便利だろうと思い

「得点ランダム入力マクロ」を紹介します。

☆マクロ仕様

出席番号（２桁）と得点（３桁）を
出席番号．得点の形式でランダムに入力すると
名前の横にその者の得点が表示される。

☆入力例
出席番号７番が８７点の場合→7.087
出席番号15番が100点の場合→15.1
出席番号9番が5点の場合→9.005

(●`ε´●):今度も３行でやってみろよ。

【´･ω･`】：３行かい？

(●`ε´●):そのくらいの芸を見せてみろよ。

【´･ω･`】:わかったよ・・・。ちょっと待っててね。

提出物管理２

下がコードの中身です。

!!提出物管理　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) を加えてください。