56

view

VBEを開き、図のようなユーザーフォームを作ります。
フォームのモジュールに下記のコードを書き込みます。

'----------------------------------------------------

Public MyRow As Long 'データがあるシートの行位置

Private Sub CommandButton1_Click()
'2行目から順番にデータを見て行く
MyRow = 2
Do Until Cells(MyRow, 1).Value Like TextBox1.Value

'最終行のまで見て一致するシリアルNo.がなかったらメッセージを表示して中断
If Cells(MyRow, 1).Value = "" Then
MsgBox "シリアルNo.を確認して下さい！", vbExclamation
Exit Sub
End If

MyRow = MyRow + 1
Loop

'ユーザーフォームのテキストボックスにデータを表示させる
TextBox2.Value = Cells(MyRow, 2).Value '商品名
TextBox3.Value = Cells(MyRow, 3).Value '入庫数
TextBox4.Value = Cells(MyRow, 4).Value '出庫数

'どのデータを見ているかシート上で判るように
Rows(MyRow).Select

End Sub

'テキストボックスの値が変わったらデータのあるセルの値を変える
Private Sub TextBox2_Change() '商品名
Cells(MyRow, 2).Value = TextBox2.Value
End Sub

Private Sub TextBox3_Change() '入庫数
Cells(MyRow, 3).Value = TextBox3.Value
End Sub

Private Sub TextBox4_Change() '出庫数
Cells(MyRow, 4).Value = TextBox4.Value
End Sub

'----------------------------------------------------

次に標準モジュールに下記のユーザーフォームを表示するためのコードを書いてボタンにマクロを登録します

'----------------------------------------------------

Sub フォーム表示()
UserForm1.Show
End Sub

'----------------------------------------------------

これで質問者さんの希望に近いことができると思うのですが･･･
フォームのプロパティでTabIndexやIMEModeをいじっておくとより使いやすくなります。

ちなみにこちらの環境はExcel2003 Win7Proです。
Office2010は触ったことがないので作動確認はできてません。