1_入荷　シートに

'★セルA2にバーコードリーダで取り込まれたら

Private Sub Worksheet_Change(ByVal Target As Range)
     If Intersect(Target, Range("A2")) Is Nothing Then
         Exit Sub
     Else
     UserForm1.Show
'         MsgBox "セルの値が変更されました"
     End If
 End Sub
'★B列のどこかをWクリックされたら
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  'セルWクリック
With Target
     If .Count > 1 + IsEmpty(.Value) Then Exit Sub
     If Application.Intersect(.Cells, Range("B:B")) Is Nothing Then Exit Sub
     Range("A2").Value = .Value

     UserForm1.Show

 End With