タイトルに「VBScript(WHS)」「ExcelVBA」と書いておきながら、中身はコマンドプロンプトからPowerShellを呼び出しているだけです。ライブラリを読み込んだり、MediaPlayerを呼び出したりする必要がないので楽かもしれません。 snd = "C:\Windows\Media\recy…

他のシートも削除したかったので、プロシージャを分けてあります。特定のシートだけ初期化するのであれば、もっと簡単になりますね。 Sub all_clear_sheet(ByVal sheet_name As String) 'アクティブシートの切り替え ActiveWorkbook.Worksheets(sheet_name).…