Option ExplicitSub 全て表示() '画面更新・再計算・イベントの停止 Dim speedObj As SpeedUp Set speedObj = New SpeedUp 'ADOインスタンス生成 Dim cn As New ADODB.Connection' 'ADO接続設定（Excelを開く設定） With cn .Provider = "Microsoft.ACE.OLED…