複数マクロ実行

複数マクロ実行

複数のマクロを同時に実行したい場合は下記のように記載します。
Call Macro1
Call Macro2
Call Macro3
上記のように記載すると、Macro1から3までの名前のマクロが同時に実行されます。

不要行削除

不要行削除

データが何も入っていない行を削除し、詰めたい時に便利なマクロです。
Application.ScreenUpdating = False
On Error Resume Next
With Cells
.SpecialCells(xlCellTypeConstants).EntireRow.Hidden = True
.SpecialCells(xlCellTypeFormulas).EntireRow.Hidden = True
.SpecialCells(xlCellTypeComments).EntireRow.Hidden = True
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
.EntireRow.Hidden = False
End With
Application.ScreenUpdating = True

データが入っている行を全て非表示にし、残った行だけ削除し、非表示にした行を表示させています。

セル選択

セル選択

ある条件のセルを全て一気に選択したい時、便利な機能です。
「編集」→「ジャンプ」または「Ctrl+G」でジャンプを開きます。
セル選択を押して、数式が入っているセルを全部選択したい時は「数式」にチェック、オブジェクトを全て選択したい場合は「オブジェクト」など、色々試してみて下さい。

図形一括削除

図形一括削除

シート上の図形を一括削除したい時に便利なマクロです。
ActiveSheet.DrawingObjects.Delete
上記のように記載すると、シート上の図形が一気に消せます。

数式が入っているセルに色を付ける

数式が入っているセルに色を付ける

数式が入っているセルだけに色を付ける際は、以下のように記載します。
With Cells
.Interior.ColorIndex = xlNone
On Error Resume Next
.SpecialCells(xlCellTypeFormulas).Interior.Color = vbRed
End With
上記のように記載すると、数式が入っているセルに赤色が付き、判別しやすくなります。

ハイパーリンクをリンク先アドレス表記へ

ハイパーリンクをリンク先アドレス表記へ

ハイパーリンクのリンク先アドレスの表記にしたい場合は、下記のように記載します。
Dim link As Range

For Each link In ActiveSheet.UsedRange
If link.Hyperlinks.Count = 1 Then
link.Value = link.Hyperlinks(1).Address
End If
Next
上記を実行すると、全てのハイパーリンクがアドレス表記になります。

列幅を指定

列幅を指定

列幅を指定した幅にする際は、このように記載します。
Columns("A:A").ColumnWidth = 列幅

Columns("A:A").ColumnWidth = 10
上記のように記載すると、A列が10になります。

シート追加

シート追加

シートを追加したい時に便利なマクロです。
Sheets.Add after:=Worksheets(Worksheets.Count), Count:=2
上記のように記載すると、一番最後にシートが２枚追加されます。

印刷プレビュー

印刷プレビュー

印刷プレビューボタン等を作る際、以下のコードを埋め込んで下さい。
ActiveWindow.SelectedSheets.PrintPreview

確認メッセージを表示せずに削除

確認メッセージを表示せずに削除

確認メッセージを表示せずにシートを削除したい場合は、以下のように記載します。
Application.DisplayAlerts = False

お分かりかと思いますが、表示したい場合は下記に通りです。
Application.DisplayAlerts = True