Sample Macro  クリア [応用型] Previous Next

1)指定した範囲を 2)指定した方法でクリア このページのトップへ もくじへ 使用可能なExcelのバージョン
'=================================================================================
Option Explicit
Dim 左 As Integer                               '左上セルの列番号 ※1
Dim 上 As Integer                               '左上セルの行番号 ※1
Dim 右 As Integer                               '右下セルの列番号 ※1
Dim 下 As Integer                               '右下セルの行番号 ※1
Dim 方法 As String                              'クリアする方法 ※2
'---------------------------------------------------------------------------------
Sub 指定範囲内の内容を指定の方法でクリアする()
    Sheets("SSS").Select                        'シートを選択する ※3
        左 = 1                                  '左上セルの列番号(A1のAの数字表記) ※1
        上 = 1                                  '左上セルの行番号(A1の1) ※1
        右 = 3                                  '右下セルの列番号(C5のCの数字表記) ※1
        下 = 5                                  '右下セルの行番号(C5の5) ※1
        方法 = "CF"                             'クリアする方法 ※2
    クリアする                                   'Subプロシージャを実行する
End Sub
'---------------------------------------------------------------------------------
Sub クリアする()
    If 方法 = "AA" Then                         'すべてのセルの内容をすべてクリア
        Cells.Clear
    ElseIf 方法 = "SA" Then                     '指定範囲内の内容をすべてクリア
        Range(Cells(上, 左), Cells(下, 右)).Clear
    ElseIf 方法 = "CF" Then                     '指定範囲内の書式をクリア
        Range(Cells(上, 左), Cells(下, 右)).ClearFormats
    ElseIf 方法 = "CC" Then                     '指定範囲内の数式と値をクリア
        Range(Cells(上, 左), Cells(下, 右)).ClearContents
    ElseIf 方法 = "SC" Then                     '指定範囲内の値だけをクリア
        Range(Cells(上, 左), Cells(下, 右)).SpecialCells(xlConstants, 23).ClearContents
    ElseIf 方法 = "SF" Then                     '指定範囲内の数式だけをクリア
        Range(Cells(上, 左), Cells(下, 右)).SpecialCells(xlFormulas, 23).ClearContents
    End If
End Sub
'=================================================================================
<コメント>
※1 行列番号は任意に記入
※2 Caseを参考にして AA,SA,CF,CC,SC,SFのいずれかを記入
※3 SSSにはシート名を記入

Excel VBA Macro

Excel DownLoad