转换VBA代码运行在VBScript

我有这个条件格式的VBA代码。

Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotBetween, _ Formula1:="=$I$10", Formula2:="=$J$10" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 255 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False End Sub 

我有一个创build一个Excel工作表的VBSCRIPT，我需要将该VBA代码应用到Excel工作表创build时的单元格。 有问题得到它运行。 我知道我需要将实际值分配给excel常量，但还有更多，我只是不明白

到目前为止我所做的

  priceRange = "K"&rowNum + 2 objWorkSheet.Range(priceRange).FormatConditions.Add Type:=1, Operator:=2, Formula1:="=$I$"&finalRowNum + 1&"", Formula2:="=$J$"&finalRowNum + 1&"" objWorkSheet.Range(priceRange).FormatConditions(objExcel.Selection.FormatConditions.Count).SetFirstPriority objWorkSheet.Range(priceRange).FormatConditions(1).Interior.PatternColorIndex = -4105 objWorkSheet.Range(priceRange).FormatConditions(1).Interior.Color = 255 objWorkSheet.Range(priceRange).FormatConditions(1).Interior.TintAndShade = 0 objWorkSheet.Range(priceRange).FormatConditions(1).StopIfTrue = False 

我需要它将条件格式应用到特定的单元格（我定义为priceRange的单元格）

Answer 1

未经testing：

 Dim rng, fc, rowNum, finalRowNum, objWorkSheet '... '... Set rng = objWorkSheet.Range("K" & rowNum + 2) 'vbscript doesn't support named arguments, only positional Set fc = rng.FormatConditions.Add(1, 2, _ "=$I$" & finalRowNum, _ "=$J$" & finalRowNum) fc.SetFirstPriority With fc.Interior .PatternColorIndex = -4105 .Color = 255 .TintAndShade = 0 End With fc.StopIfTrue = False