【Excel VBA】私が業務で使用しているおすすめのマクロ(VBA)

保存前に実施するマクロ

全シートA1を設定する。

体裁が整う。

ホームポジション()

Sub ホームポジション()
    Sheets(1).Activate
    Dim i As Worksheet
    For Each i In Worksheets
        i.Activate
        Range("G7").Select
        Range("A1").Select
    Next
    Sheets(1).Activate
End Sub

全シートの表示倍率を100%で統一する

体裁が整う。

表示倍率を統一する()

Sub 表示倍率を統一する()
  Dim n As Long
  Dim i As Long
  n = ActiveSheet.Index
  For i = 1 To Sheets.Count
    Sheets(i).Activate
    ActiveWindow.Zoom = 100
  Next i
  Sheets(n).Select
End Sub

便利マクロ

ワンクリックでオブジェクトの選択

リボンから普通に登録できますが、vbだと以下のように書けます。

オブジェクトの選択

Sub オブジェクトの選択()
   Application.CommandBars.ExecuteMso ("ObjectsSelect")
End Sub

設定値は以下からファイルをダウンロードして参照できます。（Office 2016の場合）
Download Office 2016 Help Filesr

参考元：本ページ@nukie_53さんのコメント

印刷設定の適用

印刷設定の適用()

Sub 印刷設定の適用()
    'InputBoxのメッセージ定義
    Dim strPrintMessage As String
    strPrintMessage = "印刷範囲をマウスで選択してください"
    'InputBoxでセル入力後、OKでセル範囲を格納
    Dim inputCell As Range
    Set inputCell = Application.InputBox(Prompt:=strPrintMessage, Type:=8)
    
    'InputBoxでキャンセルが押されたときは、処理を抜ける
    If inputCell Is Nothing Then
      Exit Sub
    End If
    
  '印刷設定定義
  Application.PrintCommunication = False
  With ActiveSheet.PageSetup
       .Orientation = xlPortrait
       .LeftMargin = Application.CentimetersToPoints(0.5)
       .RightMargin = Application.CentimetersToPoints(0.5)
       .TopMargin = Application.CentimetersToPoints(1.5)
       .BottomMargin = Application.CentimetersToPoints(0.8)
       .HeaderMargin = Application.CentimetersToPoints(0.5)
       .FooterMargin = Application.CentimetersToPoints(0.5)
       .CenterHorizontally = True
       .FitToPagesWide = 1
       .FitToPagesTall = 1
       .LeftHeader = "&F"
       .CenterHeader = ""
       .RightHeader = "&A" & vbCrLf & "&D"
       .CenterFooter = "&P/&N"
       .PrintArea = inputCell.Address
  End With
  Application.PrintCommunication = True
  'プレビュー表示
  ActiveSheet.PrintPreview
End Sub

参考元：https://kosapi.com/post-988/

全てのブックを保存せずに閉じる

上手く機能しないかも

全てのブックを保存せずに閉じる()

Sub 全てのブックを保存せずに閉じる()
  Application.Quit
End Sub