Excel 单元格增加 条件格式 的代码怎么写

VBA录制的代码如下，怎么转换为 VFP：
*    Range("N2").Select
*    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$N$2<>0"
*    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
*    With Selection.FormatConditions(1).Interior
*        .PatternColorIndex = xlAutomatic
*        .Color = 10498160
*        .TintAndShade = 0
*    End With
*    Selection.FormatConditions(1).StopIfTrue = False