解説記事：Excelマクロ / Article: Excel Macros

サンプルコード / Sample Code

Withステートメントでコードの重複を避ける / Avoid Repetition with With Statement

With Range("A3:F3")
    .Font.Size = 12
    .Font.Bold = True
    .HorizontalAlignment = xlCenter
End With

Setステートメントでオブジェクトを変数に代入する / Assign Objects with Set Statement

Dim セル As Range
Set セル = Range("A3:F3")
セル.Interior.ColorIndex = 35
セル.HorizontalAlignment = xlCenter
Set セル = Nothing

Select Caseステートメント / Select Case Statement

Select Case Range("F3").Offset(番号).Value
    Case Is >= 250
        セル.Offset(番号).Value = "特進"
    Case Is >= 200
        セル.Offset(番号).Value = "選抜"
    Case Is >= 150
        セル.Offset(番号).Value = "総合"
    Case Else
        セル.Offset(番号).Value = "特訓"
End Select

On Error GoToステートメントでエラーが起きても安全に終わらせる / Finish Safely with On Error GoTo

Sub サブルーチン名()
    On Error GoTo エラー処理
    '処理
    Exit Sub

エラー処理:
    MsgBox "エラー番号:" & Err.Number & "・エラー内容:" & Err.Description
End Sub

メッセージ画面を表示する / Display a Message Box

Sub サブルーチン名()
    Dim ボタン As Integer
    ボタン = MsgBox("データをリセットします。", vbExclamation + vbYesNo, "リセット確認")

    If ボタン = vbYes Then
        Range("B1,C4:E18").ClearContents
        Range("B1").Select
    End If
End Sub

目次へ戻る