Usingワークブック全体でvbaの平均を調べる場合

Question

私はワークブック全体を検索し、ワークシートの名前をcells(PRow,3)以下の値で戻すIf Thenマクロを作成しようとしています〜5 in range ("B26").value

これまでのところ、私が持っているものは基準を満たすすべての結果を戻していないようです。

Dim PRow As Long 
    PRow = 8 
    With wsAddPatient 
     For Each ws In ActiveWorkbook.Worksheets 
      If ws.Range("B26").Value <= 5 _ 
       And ws.Range("B26").Value <> "" Then 
        .Cells(PRow, 3).Value = ws.Name 
        PRow = PRow + 1 
      End If 
     Next 
    End With 

Answer 1

空白セルまたはテキストを含むセルの数値をテストしないでください。

Dim PRow As Long 
PRow = 8 
    With wsAddPatient 
     For Each ws In ActiveWorkbook.Worksheets 
      If IsNUmeric(ws.Range("B26").Value2) Then 
       If ws.Range("B26").Value2 <= 5 Then 
        .Cells(PRow, 3) = ws.Name 
        PRow = PRow + 1 
      End If 
     End If 
    Next 
End With 

複数のテストがすべて評価されるため、他のテストとは別の数値のセル値のテストを行います。

これは、テキストを比較しようとしていたため、型の不一致エラーが発生しているはずです。適切なエラー制御ですべての可能性をカバーしていることが確信できるまで、On Error Resume Nextを使用しないでください。