|
▼翔子 さん:
>Sheet(注文書)E2にコードを入れボタンを押すと
>Sheet(注文書)E3にコードの品名が出てくるようになっております。
>
>*Sheet(注文書)E2にコードを入れenterキーでしたいのですが
> 可能でしょうか教えてください
可能です。
いま標準モジュールにそのコードを書いていますが、
それを 注文書シートの シートモジュールに変更し、
たとえば、以下のようにコードを書けばいいです。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "E2" Then Exit Sub
Dim Rg As Range
Dim m As Variant
With Worksheets("詳細") '別シートのコード照合セル範囲
Set Rg = .Range("E2", .Cells(.Rows.Count, "E").End(xlUp))
End With
m = Application.Match(Target, Rg, 0) 'Match関数で「詳細」シート検索
Application.EnableEvents = False
If IsNumeric(m) Then
Target.Offset(1).Value = Rg.Item(m, 2).Value
Else
Target.Offset(1).ClearContents
MsgBox "入力されたコードはありません"
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
は シートに入力があったとき 実行されます。
いまは [E2]セル以外は入力があっても、さっさと抜けるようにしてあります。
今はMatch関数で コードを検索していますが、
やりたいことは VLookUpなので それを使っても可能です。
|
|