'----------------------------------------------------------------------------------------- Sub Auto_Open() UserForm1.Show 'ユーザーフォームを表示する End Sub '-----------------------------------------------------------------------------------------