あなたはエクセルで作業中に他のWordやPowerPointなどのファイルを開き過ぎてしまって、一旦全部閉じるとき、一つ一つのアプリを閉じるのが面倒だと思ったことはありませんか？
エクセルのマクロを使えば、エクセル・ワード・パワーポイントのファイルをボタン一つで一斉に閉じられます。
今回は「エクセルでExcelとWordとPowerPointのファイルを全部一斉に閉じるマクロボタンを作る方法」を紹介します。
エクセルでExcelとWordとPowerPointのファイルを全部一斉に閉じるマクロボタンを作る方法
エクセルでExcelとWordとPowerPointのファイルを全部一斉に閉じるマクロボタンを作る方法です。
マクロを作るときは、「開発」タブを使います。
開発タブが出ていない方は、下のリンクで出し方を紹介していますので、まずは準備をお願いします。
→エクセルで開発タブを表示する方法
１．「開発」タブをクリック →「挿入」をクリック →「ボタン」をクリック
２．「新規作成」をクリック
３．コード入力画面が開く
４．コードを入力
コードを入力します。
Wordを閉じる→PowerPointを閉じる→Excelを閉じる、という意味です。
赤枠部のコードです。
Dim wdApp As Object
Dim ppApp As Object
Dim xlApp As Object
Dim wb As Workbook
' Wordアプリケーションを取得して閉じる
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Not wdApp Is Nothing Then
wdApp.Quit
End If
' PowerPointアプリケーションを取得して閉じる
Set ppApp = Nothing
Set ppApp = CreateObject("PowerPoint.Application")
If Not ppApp Is Nothing Then
ppApp.Quit
End If
' Excelアプリケーションを閉じる
Application.Quitコードを入力したら、コードの入力画面を閉じて下さい。
５．ボタンができた →ボタンをクリック
ボタンができました。
エクセルを３つ、ワードを２つ、パワポを２つ開いている状態です。
これで先ほどのボタンを押します。
全部一斉に閉じました！下のアプリ一覧からもエクセル、ワード、パワポの表示が消えました。
これでファイルを閉じるのもラクになりますね！
まとめ
エクセルでExcelとWordとPowerPointのファイルを全部一斉に閉じるマクロボタンを作る方法のまとめです。
１．「開発」タブをクリック →「挿入」をクリック →「ボタン」をクリック
２．新規作成をクリック
３．コードを入れる画面が出る
４．コードを入力
５．ボタンができた →ボタンをクリック
６．エクセル、ワード、パワポのファイルが閉じる
これでアプリを閉じるのも、一瞬ですね！
全部閉じれたら、全部開きたくないですか？
いつも使うアプリを一気に開く方法を紹介していますので、下のリンク先へどうぞ。
コメント