|
よろしくお願いします。
下記のモジュールは
Sheet(注文書)E2にコードを入れると
Sheet(詳細)E列”コード”、F列”品名”
1行目はタイトル、2行目から”1から最終行”、”品名”が
入っています。
Sheet(注文書)E2にコードを入れボタンを押すと
Sheet(注文書)E3にコードの品名が出てくるようになっております。
*Sheet(注文書)E2にコードを入れenterキーでしたいのですが
可能でしょうか教えてください
Sub 部署コード検索() 'ボタン検索
Dim i As String '注文書シート(E2)
Dim s As String '詳細シート
Dim r As String '詳細シート 部署コード2行目
Dim m As Integer 'MsgBox
i = Worksheets("注文書").Range("E2")
r = 2: m = 1
Do While Worksheets("詳細").Cells(r, 5) <> ""
s = Worksheets("詳細").Cells(r, 5)
If StrComp(i, s) = 0 Then
Worksheets("注文書").Range("E3").Value = Worksheets("詳細").Cells(r, 6)
m = 3
Exit Do
End If
r = r + 1
Loop
If m = 1 Then
MsgBox "入力されたコードはありません"
End If
End Sub
|
|