Home » ExcelVBA Rangeオブジェクト » SpecialCellsメソッド » エラーのセルを取得する-SpecialCells(xlCellTypeFormulas, xlErrors)

エラーのセルを取得する-SpecialCells(xlCellTypeFormulas, xlErrors)

対象:Excel2007, Excel2010, Excel2013, Windows版Excel2016

「excelvba エラーセル検索」
「excelvba エラーセルを見つける方法」
「エクセル2007 vba エラーセル 探す」
といった検索で、このサイト・インストラクターのネタ帳へのアクセスが時折あります。

ワークシート上でエラーの表示されているセルを取得するには、Excel VBAで、どのようなコードを書けばいいのかを探していた方による検索です。

[スポンサードリンク]

エラーセルを選択するサンプルマクロ

以下のようなSubプロシージャで、エラーになっているセルだけを選択できます。


Sub エラーセルを選択する()
 Dim rng As Range

 On Error Resume Next
 Set rng = Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
 On Error GoTo 0

 If rng Is Nothing Then
  MsgBox "エラーのセルはありません。"
 Else
  rng.Select
 End If
End Sub

サンプルマクロの解説

エラーになっているセルを取得しているのは、
  Set rng = Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
の部分です。

RangeオブジェクトのSpecialCellsメソッドの引数に、xlCellTypeFormulas,とxlErrorsを指定しています。

エラーのセルが存在しないときに、
  Set rng = Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
が実行されると、実行時エラーが発生してしまいますから直前で、
  On Error Resume Next
として、オブジェクト変数・rngが初期値Nothingのままかどうかを調べています。
  If rng Is Nothing Then

[スポンサードリンク]

Home » ExcelVBA Rangeオブジェクト » SpecialCellsメソッド » エラーのセルを取得する-SpecialCells(xlCellTypeFormulas, xlErrors)

TrackBack:0

TrackBack URL
[スポンサードリンク]

Home » ExcelVBA Rangeオブジェクト » SpecialCellsメソッド » エラーのセルを取得する-SpecialCells(xlCellTypeFormulas, xlErrors)

Copyright © インストラクターのネタ帳 All Rights Reserved.

.