Sub 既存注文データ2() 既存注文.Show vbModeless End Sub --------------------------------------- Sub 既存注文データ1() 既存注文.Show End Sub