使用系统或Office语言进行条件格式的公式

Question

我有一个VBA宏，可以创建一个新工作表并提供一个小的待办事项列表。其中之一是您可以将输入标记为完成，然后使用条件格式设置来调整字体属性。到目前为止，一切正常。

现在，此宏也应在英语和德语笔记本电脑上运行。因此，应根据语言插入不同的公式。

   'DropDown List
    With Range("F4:F50").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="Yes,No"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

    Dim f As String
    For i = 5 To 50
    f = "F" & i
    Dim frm As String

    frm = "=IF(" & "$F" & "$" & i & "=""YES"",TRUE,FALSE)"

    Range("C" & i & ":" & "E" & i).Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:=frm
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1).Font
            .Strikethrough = True
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = -0.249946592608417
        End With
    Next i
    Worksheets(sn).Move After:=Sheets(ActiveWorkbook.Sheets.Count)

对于德语，公式为frm = "=WENN(" & "$F" & "$" & i & "=""Ja"";WAHR;FALSCH)"

非常感谢！

PS：无需语言即可解决。请参阅下面的评论。