Excel Maniacs

得点ランダム入力５

前回までは３行マクロに拘り、実用性の面から見ると今ひとつの作品でした。

今回はIF文により、出席番号が１桁の場合と２桁の場合とで処理を別にして

いるので出席番号と得点を「．」（ドット）などで区切らなくても差し支えありません。

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

!!入力例
!!出席番号７番が８７点の場合→7087
!!出席番号15番が100点の場合→15100
!!出席番号9番が5点の場合→9005

Range("E2:E41").Clear(1, false, false, false)

For %i = 2 To 41

　　　If Len(Cells(%i, 1)) = 5 Then 
  　　　　　　%出席番号=Left(Cells(%i, 1), 2)
　　　Else
  　　　　　　%出席番号=Left(Cells(%i, 1), 1)
　　　 End If
　　　Cells(%出席番号 + 1, 5) =Value(Right(Cells(%i, 1),3))

Next

snsSample004.zipをダウンロード

 

得点ランダム入力４

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

!!ランダム点数入力２　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をダウンロード

得点ランダム入力３

【´･ω･`】：得点ランダム入力の３行マクロはどうだった？

（●｀ε´●）：まあまあだな。おれはもの凄い面倒くさがりなんだ。

　　　　　　　できるなら「６．０６６」の小数点も打ちたくないな。

　　　　　　　数字だけ打てばいいようにしたいものだな。

　　　　　　　特にノートパソコンのユーザは数字とドットのキーが離れているしな。

【´･ω･`】:じゃあ、固定長の文字列を使って出席番号と

　　　　　得点を表現するってのはどうだい？

　　　　　固定長の文字列とは単純に言えば

　　　　　文字数の決まった文字列のことだ。

　　　　　例えば出席番号が２桁、得点が３桁までなら下のように表せる。

　　

この場合なら出席番号が１２、得点が８９点ということだね。

（●｀ε´●）：やっぱり、３行マクロなんだろうな？！

【´･ω･`】:うん。