得点ランダム入力４

下が固定長文字列を利用した場合のコードです。

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

!!入力例
!!出席番号７番が８７点の場合→０７０８７
!!出席番号15番が100点の場合→１５１００
!!出席番号9番が5点の場合→０９００５

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

For %i = 2 To 41
             Cells( left(Cells(%i, 1),2) + 1, 5) =Value(Right(Cells(%i, 1),3))
Next

やはり、３行マクロです。しかし、このマクロを利用する場合

一つ注意しなければならないことがあります。

それは半角で07065などと入力すると自動的に

7065になってしまうということです。頭の0が消えて

5桁が4桁になってしまうとマクロが正常に動作しません。

このことの対策としてメニューを「ツール」「オプション」と辿り

ダイアログボックスの「入力」タブから「入力モード変換」を

「手動」にして数字を全角で入力できるようにしておきます。

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