Ｅｘｃｅｌでのデータ入力について

質問

Windows98でExcel2000を使用しています。
現在「番号」(A列)「氏名」(B列）を100件ほど既に入力しています。
番号を呼び出して点数を入力すると、呼び出した番号の(C列)(D列)(E列)に自動的に値が入るようなフォームを作成したいのです。
「データ」→「フォーム」を利用すると、１回毎に「検索」を押さないと新規入力になってしまうので不便です。
「検索」を押さなくても入力できるようなフォーム、又は他の便利な機能をご存知ないでしょうか。
つたない説明ですが、よろしくお願いします。

回答No.2

imogasi · ベストアンサー

エクセルのVBAに成ってしまいますが、よろしかったら下記をどうぞ。
まず、セルＡ１を検索する生徒番号の入力用セルとします。
Ａ２からＡ１００まで生徒番号が入っているとします。
（１）セルＡ１に入れた生徒番号が入っているセルをアクティブにするVBAコードを、ツール－マクロ－新しいマクロの記録－ＯＫで記録します。
（２）マクロの記録をする操作は、編集－検索－１つ実在する生徒番号を入力する－次ぎを検索－OKと操作する。
（３）マクロ記録を終了するため、ツール－マクロ－記録終了を操作する。
（４）できたVBAコードを調べるため、ツール－マクロ－ＶＢＥでVBAProjectのフレームの標準モジュールをダブルクリックし「Ｍｏｄｕｌｅ１」を出し、「Module1」をクリックすると、Macro1のVBAコードが現れる。
（５）次ぎにSheet1に、コマンドボタンを貼りつける。
表示－ツールバー－VisualBasic－コントロール（金槌の絵）－コマンド－ボタン（四角の絵）－Ｓｈｅｅｔ１上で左下にドラッグし適度の大きさのボタンにする。
（６）Sheet1上のコマンドボタンをダブルクリックする。
VBEの画面になり、
Private Sub CommandButton1_Click()

End Sub
が現れる。
（７）このＳｕｂとEnd　Subの間に、（４）のVBAコードを貼りつける。
（８）その結果を下記のように修正する。
Private Sub CommandButton1_Click()
　　　Range("A2:A100").Select　’検索範囲指定
　　 Selection.Find(What:=Range("a1").Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate　’検索して見つかればそのセルをアクティブに
ActiveCell.Offset(0, 2) = "aa"　 'この行を加える。A列から2列右の列に
ActiveCell.Offset(0, 3) = "bb"　’この行を加える
End Sub
　　ａａとｂｂは貴殿の良いように変えてください。
（９）Ａ１セルに生徒番号を入れて、コマンドボタンをクリックすると
　　その生徒番号の行のC列がａａ，Ｄ列がｂｂと成る。
　　生徒番号入力－＞ボタンクリックを繰り返してください。

お礼

VBAはまだ勉強していませんが以前から興味があり、この機会にぜひ挑戦してみようと思います。
丁寧なご説明有り難うございました。