メッセージボックス

メッセージボックス

メッセージボックスを表示させるには、以下のように記載します。
MsgBox "メッセージ内容"

MsgBox "あああ"
と記載すると、「あああ」と表示されます。

ハイパーリンク全部削除

ハイパーリンク全部削除

ハイパーリンクを一気に全部削除する方法は以下の通りです。
Cells.Select
Selection.Hyperlinks.Delete
通常は１つ１つしか出来ませんが、これを使うと１シート全部削除する事が可能です。

コメント挿入

コメント挿入

コメントを挿入する時は、下記のように記載します。
Range("A1").AddComment.Text Text:="文字"

例
Range("A1").AddComment.Text Text:="コメントです"
とすると、セルA1に「コメントです」とコメントが入ります。

シート名変更

シート名変更

シート名を変更する時は、下記のように記載します。
ActiveSheet.Name = "変更後シート名"

例
ActiveSheet.Name = "sheet"
上記のように記載すると、選択中のシート名が「sheet」という名前になります。

列幅調整

列幅調整

列幅を自動的に表示されるように調整したい時は、下記のように記載します。
Cells.Select
Cells.EntireColumn.AutoFit

パーセント表示形式

パーセント表示形式

表示形式をパーセントにする場合は、下記のように記載します。
Selection.Style = "Percent"

カンマ表示形式

カンマ表示形式

表示形式をカンマ区切りにする際は、下記のように記載します。
Selection.Style = "Comma [0]"

空白列追加

空白列追加

空白列を追加する時は、下記のように記載します。
Selection.Insert Shift:=xlToRight

例
Range("A:A").Select
Selection.Insert Shift:=xlToRight
上記のように記載すると、A列の手前に空白列が入ります。

文字削除

文字削除

文字を削除する時は、次のように記載します。
Range("セル範囲").Delete

例
Range("b:p").Delete
と記載すると、b～p列が削除されます。

表示（拡大・縮小）

表示（拡大・縮小）

表示を拡大・縮小したい時、以下のように記載します。
ActiveWindow.Zoom = 倍率

例
ActiveWindow.Zoom = 50
上記のように記載すると、表示が50%になります。

ActiveWindow.Zoom = 200
上記のように記載すると、表示が200%になります。