為 exel 中的 if() 條件著色

為 exel 中的 if() 條件著色

你好社區,

在 Excel 檔案的儲存格中,假設我要輸入以下公式

if(a1>a2,"測試1","測試2")

我想要實現的是 test1 和 test2 的字型採用不同的顏色。

一種方法是使用條件格式並套用不同的規則。但是,我想知道是否有另一種更直接的方法,透過直接在if()公式內部指定字體顏色或使用VBA

先致謝

答案1

使用VBA是可以的。我假設你的公式在儲存格 B1 中

在 Excel 工作表中,按ALT+F11存取 VBA 編輯器。

在左側窗格中選擇您的工作表。在右側程式碼視窗中,選擇工作表從下拉式選單中選擇改變隨後的下拉事件。

其中子程式的以下佔位符應可用。

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

將以下程式碼放在同一個中。

If Target.Address = "$A$1" Or Target.Address = "$A$2" Then
  If Range("B1").Formula = "=IF(A1>A2,""test1"",""test2"")" Then

        If Range("A1").Value > Range("A2").Value Then
            Range("B1").Font.Color = vbRed
        Else
            Range("B1").Font.Color = vbGreen
        End If

  End If
End If

在上面的範例中,我使用了標準 vbRed 和 vbGreen。根據您的選擇進行選擇。

在此輸入影像描述

相關內容