1004エラーが発生する「セルが見つかりませんでした」VBAフィルタ後にセルが見つからない場合

Question

レコードをフィルタリングするときに問題が発生することがありますが、セルがありませんが、1004というセルが見つかりませんでしたgotoエラーメソッドも使用されますが、実行に失敗します。

私は

If Error Then GoTo NoBlanks 
      vfast_narecord = xlwkbOutput.Sheets("Sheet1").Range("F2:F" & lastRow).SpecialCells(xlCellTypeVisible).Cells.Count 
On Error Resume Next 
NoBlanks: 
MsgBox "No cells were found!" 
    Resume Next 

Answer 1

怒鳴るコードを使用する構文は

On Error GoTo NoBlanks 

On Error Resume Nextが、それはそれ以降のすべてのエラーを無視するようになります使用したとして

On Error GoTo 0 

を使用し、ハンドラを無効にすることです。

また、ハンドラをExit Sub/Exit Functionの後ろに置く必要があります。そうしないと、毎回実行されません。フィルタリングを必要とし、可視セルをカウントしていない、あなたの前の質問に例えば

'... 
    Exit Sub 
NoBlanks: 
    '... 
    Resume Next 
End Sub 

Answer 2

他のいくつかのオプション：

• =AGGREGATE(3,3,A:A) Excelの関数で空でない列Aのセルの数をカウントし、エラー、
• 隠された、またはSUBTOTAL/AGGREGATE機能
• =Count(A:A)は、（エラーを隠さ細胞を含むが、無視します）数字を含む細胞のみをカウントします#N/Aエラー

を含む細胞をカウントするそれらのすべては、VBA

に WorksheetFunctionで利用可能であるべきである