無法爲條件格式設置Size屬性

Question

我想根據某些條件在範圍上添加條件格式。

我想格式化顏色，大小，粗體等屬性。我能夠修改顏色，粗體屬性，但是當我嘗試修改Size屬性時，它會引發異常「無法設置Font類的Size屬性」。

任何人都可以幫助我如何設置條件格式對象的大小屬性。

也不可能設置下標或上標屬性。

注意：這些屬性也不是隻讀的。

  FormatCondition format =(FormatCondition)(targetSheet.get_Range("A1:A10", 
      Type.Missing).FormatConditions.Add(XlFormatConditionType.xlExpression, XlFormatConditionOperator.xlGreater, 
      "100", Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing)); 

      format.Font.Bold = true; 
      format.Font.Color = 0x000000FF; 
      format.Font.Size = 14; 
      format.Font.Subscript = true; 

爲了說明實際的用例，我們舉一個例子，其中我有10 * 10的數據在excel中。這10 * 10是一個單獨的範圍與自己的格式。例如，從A1到J10。現在，如果我選擇此範圍內的任何單元格，則其相應的行和列應該有條件格式化，並且它將具有其自己的格式。這包括不同的填充顏色，不同的字體大小，邊界的變化等。如果我選​​擇單元格D4，則範圍A4：J4和D1：D10將應用條件格式。這可以通過在這兩個範圍上應用格式並選擇將Expression和其公式輸入爲true。現在，如果我選擇任何其他單元格，A4：J4和D1：D10單元格的格式應該恢復原樣，並且當前所選單元格的行和列應突出顯示。

我們可以更改格式，例如只有顏色或圖案。但不可能設置大小。任何人都可以解釋我爲什麼這樣。 可以從用戶界面更改大小。即使用條件格式的格式選項。使用可以改變滿足條件的單元的字體大小，顏色等。

從UI可能的事情應該也可以從代碼。

有共享的圖像來獲得一個觀點：http://imgur.com/bemI9

Answer 1

試試下面的（你可以改變顏色值和字體大小，顏色等添加額外的屬性）：

Dim fontSize As Variant 
Dim fontType As Variant 
Dim fontBold As Variant 
Dim cellIn As Variant 

Sub setVars() 

    With Range("A1") 
     fontSize = .Font.Size 
     fontType = .Font.Name 
     fontBold = .Font.Bold 
     cellIn = .Interior.Color 
    End With 


End Sub 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

    Application.ScreenUpdating = False 
    Application.EnableEvents = False 

    Dim r As Range 
    Set r = Range("A1:J10") 

    With r 
     .Font.Size = fontSize 
     .Font.Name = fontType 
     .Font.Bold = fontBold 
     .Interior.Color = cellIn 
    End With 

    With r.Rows(Target.Row) 
     .Interior.ColorIndex = 5 
     .Font.Bold = True 
    End With 

    With r.Columns(Target.Column) 
     .Interior.ColorIndex = 5 
     .Font.Bold = True 
    End With 

    Application.ScreenUpdating = True 
    Application.EnableEvents = True 

End Sub 

Answer 2

我的研究說：「你不能改變字體在條件格式」。

我會那樣做在VBA：

For Each cell In Range("A1:A10") 
    With cell 
      .Font.Bold = true 
      .Font.Color = 0x000000FF 
      .Font.Size = 14 
    End With 
Next