[[20140217173157]]　『SpecialCells　エラー』（zunzun）　ページの最後に飛ぶ

『SpecialCells　エラー』（zunzun）

MATCH関数でセルがエラーになる行を見つけるマクロを事例を参考に作りました。セルにエラーがある場合には良いのですが、エラーがない場合、上手く動きません。If文を入れれば良いのでしょか？

 Dim r As Range
    Set r = Range("A19").CurrentRegion
    Set r = Intersect(r, r.Offset(2))
    With r.Columns("AI").Cells
        .Formula = "=MATCH(B21,$C$7:$c$11,0)"
        .SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Select

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 >エラーがない場合、上手く動きません
 On Error resume　Next　ステートメントを使って、エラーが発生したことを検知することによって
 処理を分岐してください。上記のステートメントを調べると　わかると思います。

（ichinose） 2014/02/17(月) 17:52

ichinoseさま
構文の頭にOn Error resume　Next　最後にOn Error Goto　0　を追加したら上手く動きました。
ありがとうございました。　
（zunzun） 2014/02/18(火) 08:47

コメント返信：

[ 一覧(最新更新順) ]

[[20140217173157]] 『SpecialCells エラー』（zunzun） ページの最後に飛ぶ

[[20140217173157]]　『SpecialCells　エラー』（zunzun）　ページの最後に飛ぶ