0

セルの値が負かどうかを確認し、負の場合は赤で強調表示する簡単な VBA コードを作成しました。なんらかの理由で、「実行時の不一致」が発生し続けます。私のコードは

For x = 2 To 100

Set val3 = Worksheets("Summary").Cells(x, 9)
If val3.Value < 0 Then
Worksheets("Summary").Cells(x, 9).FontColorIndex = 3

End If
Next x

列 9 (チェックしている列) にはドルの値が入力されています。よろしくお願いいたします。

4

3 に答える 3

6

あなたのコードでは、単にドットが欠けています。

FontColorIndex = 3

する必要があります：

Font.ColorIndex = 3

于 2012-10-31T16:27:38.617 に答える
0 
Public Sub test()
   For x = 2 To 100
      Set val3 = Worksheets("Sheet1").Cells(x, 9)
      If val3.Value < 0 Then
         Worksheets("Sheet1").Cells(x, 9).Font.Color = RGB(99, 179, 73)
      End If
   Next x
End Sub

上記のコードは Excel 2007 で動作します

于 2012-10-31T16:16:23.937 に答える