VBA – REONTOSANTA

ExcelVBAでアクティブシート以外のシートを削除する

mogice — Mon, 02 Nov 2015 23:31:51 +0000

ExcelのVBAでアクティブシート以外のシートを削除する方法。

残したいシート（アクティブシート）を先頭に移動しておき、先頭シートを残すように最終シートから先頭シートに向かってシートの削除を行う。

Sub SheetsClear()
    '' アクティブシートを先頭に移動
    ActiveSheet.Move Before:=Sheets(1)
     '' 確認・警告メッセージの抑制
    Application.DisplayAlerts = False
     '' 最終シートから先頭シートの1つ前までを削除
    For i = Sheets.Count To 2 Step -1
        Sheets(i).Delete
    Next i
     '' 確認・警告メッセージの抑制解除
    Application.DisplayAlerts = True
End Sub

上記の例では、シートの削除を行うときに確認メッセージが表示されないように「Application.DisplayAlerts」にFalseを設定し、処理が終わったらTrueに戻している。

ExcelVBAでワークシートをコピーする

mogice — Mon, 21 Sep 2015 02:00:04 +0000

ExcelVBAでワークシートをコピーする場合、ワークシートオブジェクトのCopyメソッドを利用する。

引数に「Before:=ワークシート」（指定したワークシートの左側へコピー）、または「After:=ワークシート」（指定したワークシートの右側へコピー）を指定することでコピー先の位置を決定する。

尚、引数を省略した場合は新たにワークブックを開き、そこにワークシートがコピーされる。

Sub SheetsCopy1()
    '' Sheet1をSheet3の右側へコピー
    Sheets("Sheet1").Copy After:=Sheets("Sheet3")
    '' Sheet3をSheet2の左側へコピー
    Sheets("Sheet3").Copy Before:=Sheets("Sheet2")
End Sub

Sub SheetsCopy2()
    '' SheetAをBook2ワークブックのSheet3の右側へコピー
    Sheets("SheetA").Copy After:=Workbooks("Book2").Sheets("Sheet3")
    '' SheetBをBook2ワークブックのSheet1の右側へコピー
    Sheets("SheetB").Copy Before:=Workbooks("Book2").Sheets("Sheet1")
End Sub

ExcelVBAでセルの内容をクリアする

mogice — Mon, 14 Sep 2015 07:25:37 +0000

ExcelVBAでセルの内容をクリアする場合、Rangeオブジェクト、またはCellsオブジェクトに用意されている以下のメソッドを利用する。

メソッド名	クリア対象
Clear	全て（書式等を含む）
ClearComments	コメント
ClearContents	値と数式
ClearFormats	書式（色や罫線、条件付き書式など）
ClearNotes	コメント
ClearOutline	アウトライン
ClearHyperlinks	ハイパーリンク

Range("A1").Clear

Range("A1:B2").Clear

Cells(1, 1).Clear ' A1

Cells.Clear