セル選択

セル選択

ある条件のセルを全て一気に選択したい時、便利な機能です。
「編集」→「ジャンプ」または「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

セルの色判別

セルの色判別

セルの色を判別し、色ごとに集計をかけたい時に便利なマクロです。
Function Cell_C(CellC As Range) As Integer

Application.Volatile
Cell_C = CellC.Interior.ColorIndex

End Function

上記のように記載し、関数で表中に=Cell_C(色が付いているセルの場所)と記載する事により、色によって番号が表示されます。

=Cell_C(A1)と記載すると、A1のセルの色が番号になって表示されます。

※Cell_CおよびCellCは任意の表記ですので、変えて頂いて構いませんが、かぶるとエラーになります。

順序を最前面に移動

順序を最前面に移動

図形やワードアートなどの順序を最前面に移動したい場合は、下記のように記載します。
ActiveSheet.Shapes("図形名").Select
Selection.ShapeRange.ZOrder msoBringToFront

ActiveSheet.Shapes("WordArt 1").Select
Selection.ShapeRange.ZOrder msoBringToFront
上記のように記載すると、ワードアートの１が最前面に表示されます。