Private Sub ListBox_kika_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Select_hin = ListBox_kika.text '選択した品名規格の分類 If Select_hin <> "" Then Form_hin.Show vbModal '入力画面表示 End…