在 vbscript 中将 VBA 代码转换为运行

Question

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

Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotBetween, _
    Formula1:="=$I", Formula2:="=$J"
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

我有一个创建 Excel sheet 的 vbscript，我需要将该 VBA 代码应用于 Excel sheet 中的单元格它被创建。将其添加到运行时遇到问题。我知道我需要对 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

未测试：

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

在 vbscript 中将 VBA 代码转换为运行

Convert VBA code to run in vbscript

vbscript

excel

vba

在 vbscript 中将 VBA 代码转换为 运行

Convert VBA code to run in vbscript

vbscript

excel

vba

在 vbscript 中将 VBA 代码转换为运行