■

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

'選択した値を取得
Cells(2, "I") = ListBox1.Text

End Sub

Private Sub UserForm_Initialize()
Dim lastrow As Long
lastrow = Sheets("担当者").Cells(Rows.Count, 1).End(xlUp).Row
With ListBox1
.ColumnHeads = True
.ColumnCount = 2
.ColumnWidths = "50;50"
.RowSource = "担当者!" & Range("A2", "B" & lastrow).Address
End With
End Sub

記録シートを選択
Set recordSheet = Worksheets("記録")

' 入力された値を記録シートの最終行に追加
lastrow = recordSheet.Cells(Rows.Count, "A").End(xlUp).Row

' 1つめのバーコードを入力してくださいのメッセージを表示
InputCode1 = InputBox("1つめのバーコードを入力してください")

' 2つめのバーコードを入力してくださいのメッセージを表示
InputCode2 = InputBox("2つめのバーコードを入力してください")

If InputCode1 = "" Or InputCode2 = "" Then
MsgBox "キャンセルしました"
Exit Sub ' すでに一覧に存在する場合は処理を終了
ElseIf InputCode1 = InputCode2 Then
recordSheet.Range("A" & lastrow + 1).Value = InputCode1
recordSheet.Range("B" & lastrow + 1).Value = InputCode2
Else
MsgBox "不一致です！記録をキャンセルします", vbExclamation, "警告"
Exit Sub ' すでに一覧に存在する場合は処理を終了
End If