VBAを避けるには？

Question

私はコードでGoToを避けるべきであると何度も読んでいますが、私は定期的にループを作成しなければならず、アイテムによって私にエラーが生じた場合、コードは停止します。

以下のケースでは、セルの値を比較する必要がありますが、セルに文字列があるとエラーが発生します。

次のコードのGoToを避ける他のオプションはありますか？

ありがとうございます！この場合

Sub Conditional() 

     Dim x As Integer 



     For x = 1 To 31 



      On Error GoTo na 


      If Sheets("Sheet1").Cells(8 + x, 5) >= 0.95 Then 

       Sheets("Sheet2").Shapes("Shape " & x).Fill.ForeColor.RGB = RGB(0, 176, 80) 

      ElseIf Sheets("Sheet1").Cells(8 + x, 5) < 0.95 Then 

       Sheets("Sheet2").Shapes("Shape " & x).Fill.ForeColor.RGB = RGB(255, 0, 0) 

      End If 

      GoTo nextx 

na: 

      Sheets("Sheet2").Shapes("Shape " & x).Fill.ForeColor.RGB = RGB(0, 0, 0) 
      On Error GoTo -1 

nextx: 
     Next x 

End Sub 

Answer 1

あなたはそれがこのようなものですセル内の文字列をチェックしたい場合は、一般に

Sub Conditional() 

    Dim x As Long 

    For x = 1 To 31 
     If IsNumeric(Sheets("Sheets1").Cells(8 + x, 5)) Then 
      If Sheets("Sheet1").Cells(8 + x, 5) >= 0.95 Then 

       Sheets("Sheet2").Shapes("Shape " & x).Fill.ForeColor.RGB = RGB(0, 176, 80) 

      ElseIf Sheets("Sheet1").Cells(8 + x, 5) < 0.95 Then 

       Sheets("Sheet2").Shapes("Shape " & x).Fill.ForeColor.RGB = RGB(255, 0, 0) 

      End If 
     End If 
    Next x 
End Sub 

、後藤は無いとOn Error GoTo ErrorHandlerのように、キャッチだけエラーのために使用すべきですexclustions。

Answer 2

あなたは細胞タイプ（textまたはnumbers）に応じて、いくつかの書式設定をやっているので、あなたはRangeオブジェクトのSpecialCells()メソッドを使用して機能を入力し、次のようなことができます：

Function GetCells(rng As Range, cellType As XlCellType, cellValues As XlSpecialCellsValue, outputRng As Range) As Boolean 
    On Error Resume Next '<--| ignore subsequent errors, if any 
    Set outputRng = rng.SpecialCells(cellType, cellValues) '<--| get a sub-range out of passed range as filtered by passed arguments 
    GetCells = Not outputRng Is Nothing '<--| returns 'True' if range has been properly set 
End Function 

を、次のように利用します：

Sub Conditional() 
    Dim myCells As Range, cell As Range 

    With Sheets("Sheet 1").Range("E9:E39") '<--| reference your sheet relevant range   
     If GetCells(.Cells, xlCellTypeConstants, xlNumbers, myCells) Then '<--| if any cells whose value is a "constant" "number" in your range 
      For Each cell In myCells '<--| loop through those filtered cells 
       Sheets("Sheet2").Shapes("Shape " & cell.row - 8).Fill.ForeColor.RGB = IIf(cell.Value >= 0.95, RGB(0, 176, 80), RGB(255, 0, 0)) '<--| format your shapes as per corresponding current cell 
      Next cell 
     End If 

     If GetCells(.Cells, xlCellTypeConstants, xlTextValues, myCells) Then '<--| if any cells whose value is a "constant" "text" in your range 
      Sheets("Sheet2").Shapes("Shape " & cell.row - 8).Fill.ForeColor.RGB = RGB(0, 0, 0) '<--| format your shapes as per corresponding current cell 
     End If 
    End With 
End Sub