【Excel】エクセルのVBAコード一覧・コード集（マクロコードの書き方・コードの表示方法・表示形式コードも）

方法1：Alt+F11キーを押す（最も手軽な方法）

方法2：「開発」タブ→「Visual Basic」をクリックする

方法3：シートタブを右クリック→「コードの表示」を選択する

Sub マクロ名()

　’ ここにコードを記述する

End Sub

1. 「開発」タブ→「マクロの記録」をクリックする

2. マクロ名を入力してOKをクリックする

3. 記録したい操作をエクセル上で実際に行う

4. 「記録終了」をクリックする

5. Alt+F11でVBEを開き、記録されたコードを確認する

‘セルに値を入力する

Range(“A1”).Value = “テスト”

Cells(1, 1).Value = “テスト”　’行・列の数値で指定する方法

‘セルの値をクリアする

Range(“A1”).ClearContents　’値のみクリア

Range(“A1”).Clear　’書式も含めてすべてクリア

‘セルをコピー・貼り付けする

Range(“A1”).Copy Destination:=Range(“B1”)

‘最終行を取得する

Dim lastRow As Long

lastRow = Cells(Rows.Count, 1).End(xlUp).Row

‘シートを追加する

Worksheets.Add After:=Worksheets(Worksheets.Count)

‘シート名を変更する

Worksheets(1).Name = “新しいシート名”

‘シートを削除する（確認ダイアログを非表示）

Application.DisplayAlerts = False

Worksheets(“削除するシート名”).Delete

Application.DisplayAlerts = True

‘すべてのシート名を取得する

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

　Debug.Print ws.Name

Next ws

‘For Nextループ（1行目から10行目まで処理）

Dim i As Integer

For i = 1 To 10

　Cells(i, 1).Value = i

Next i

‘If条件分岐

If Range(“A1”).Value >= 100 Then

　Range(“B1”).Value = “達成”

Else

　Range(“B1”).Value = “未達成”

End If

‘ファイルを名前を付けて保存する

ThisWorkbook.SaveAs Filename:=”C:\test\出力ファイル.xlsx”

‘ファイルの存在確認

If Dir(“C:\test\data.csv”) “” Then

　MsgBox “ファイルが存在します”

Else

　MsgBox “ファイルが見つかりません”

End If

‘フォルダ内のすべてのファイルを取得する

Dim fileName As String

fileName = Dir(“C:\test\*.xlsx”)

Do While fileName “”

　Debug.Print fileName

　fileName = Dir

Loop

‘確認ダイアログを表示する

Dim result As Integer

result = MsgBox(“処理を実行しますか？”, vbYesNo + vbQuestion)

If result = vbYes Then

　MsgBox “実行しました”

End If

‘入力ダイアログを表示する

Dim inputVal As String

inputVal = InputBox(“値を入力してください”, “入力”, “初期値”)

‘セルに表示形式を設定するVBAコード例

Range(“A1”).NumberFormat = “#,##0”

Range(“B1”).NumberFormat = “yyyy/mm/dd”

Sub SampleMacro()

　On Error GoTo ErrorHandler

　’ メイン処理

　Range(“A1”).Value = 100

　Exit Sub

ErrorHandler:

　MsgBox “エラーが発生しました：” & Err.Description

End Sub

On Error Resume Nextを使うとエラーを無視して処理を続行できますが、予期しないバグの原因になることがあるため、本番マクロでの多用は避けることが推奨されます。エラー処理はOn Error GoToを使った明示的な処理が安全です。

Sub FastMacro()

　Application.ScreenUpdating = False　’画面更新を停止

　Application.Calculation = xlCalculationManual　’自動計算を停止

　’ メイン処理をここに記述

　Application.Calculation = xlCalculationAutomatic　’自動計算を再開

　Application.ScreenUpdating = True　’画面更新を再開

End Sub