FONT.COLOR在条件格式的excel vba中返回NULL

我有一个子例程获取条件格式属性单元格在工作表“源”中，并将其应用于工作簿中的“结果”工作簿。 它正常工作，只是当我得到Font.Color和Font.TintAndShade它返回null，所以在结果表中，所有的条件格式有黑色的字体颜色。 （您可以在结果表格条件格式>pipe理规则中查看）。

错误是“无效使用空值”也许是因为值的types。

错误发生在这里：

FCFontC = Xarr(I, J).FormatConditions(II).Font.Color FCFOntT = Xarr(I, J).FormatConditions(II).Font.TintAndShade 

这里是我的代码：

 Sub FormatCondition1() Dim FC As FormatCondition Dim FCFontC As Long Dim FCFOntT As Integer Dim FCC As Long Dim FCT As Integer Dim II As Integer Dim Wks1 As Worksheet, Wks2 As Worksheet Dim Xarr As Range, Yarr As Range Dim I As Integer, J As Integer 'Dim K As Integer, L As Integer Worksheets("Source").Activate Worksheets("Result").Select Set Yarr = Worksheets("Result").Range("A1:C2") Yarr.Range("A1:C2").Clear Set Wks1 = ActiveWorkbook.Worksheets("Source") Set Wks2 = ActiveWorkbook.Worksheets("Result") Set Xarr = Wks1.Range("A1:C2") Set Yarr = Wks2.Range("A1:C2") For I = 1 To Xarr.Rows.Count For J = 1 To Xarr.Columns.Count If Xarr(I, J).FormatConditions.Count > 0 Then For II = 1 To Xarr(I, J).FormatConditions.Count 'II number of conditions Set FC = Xarr(I, J).FormatConditions.Item(II) 'cell font formatting '**** Error is HERE ******* FCFontC = Xarr(I, J).FormatConditions(II).Font.Color FCFOntT = Xarr(I, J).FormatConditions(II).Font.TintAndShade 'cell interior formating 'Set FCCIn = Xarr.FormatConditions(II).Interior.PatternColorIndex FCC = Xarr(I, J).FormatConditions(II).Interior.Color FCT = Xarr(I, J).FormatConditions(II).Interior.TintAndShade 'SET PROPERTY to NEW CELL Yarr(I, J).Select Selection.FormatConditions.Add Type:=xlCellValue, Operator:= _ FC.Operator, Formula1:=FC.Formula1 'Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority 'cell font formatting Selection.FormatConditions(II).Font.Color = FCFontC Selection.FormatConditions(II).Font.TintAndShade = FCFOntT 'cell interior formating With Selection.FormatConditions(II).Interior .PatternColorIndex = xlAutomatic .Color = FCC .TintAndShade = FCT End With Selection.FormatConditions(Selection.FormatConditions.Count).StopIfTrue = False Next II End If Next J Next I 

结束小组

我的问题是“如何获得条件格式字体的属性？