这个函数公式怎么用vba语句表达出来？

Question

K3=IF(OR(ISNUMBER(FIND({"停职";"事故";"事假";"病假";"违规";"旷工"},L4))),"",IF(ISNUMBER(I4),IFS(I4>=98,"★★★",I4>=95,"★★",I4>=90,"★",I4<90,""),""))

Answer 1

你可以使用VBA的Range.Formula属性来设置单元格的公式。下面是将该函数公式应用于单元格 K3 的示例代码：
```vba
Sub ApplyFormula()
Dim cell As Range
Set cell = Range("K3")

cell.Formula = "=IF(OR(ISNUMBER(FIND({""停职"",""事故"",""事假"",""病假"",""违规"",""旷工""},L4))),"""",IF(ISNUMBER(I4),IFS(I4>=98,""★★★"",I4>=95,""★★"",I4>=90,""★"",I4<90,""""),""))"
End Sub
```
在上述代码中，`Range("K3")` 表示目标单元格，你可以根据需要进行修改。`Formula` 属性用于设置单元格的公式，将目标函数公式作为字符串赋值给它即可。
请注意，该函数公式中的字符串参数需要用双引号 `""` 进行转义，以确保能正常应用于VBA代码。

Answer 2

Sub CalculateK3()
Dim stopKeywords As Variant
Dim I4Value As Double
Dim L4Value As String
Dim K3Value As String

'设置停职等关键词
stopKeywords = Array("停职", "事故", "事假", "病假", "违规", "旷工")

'获取I4和L4单元格的值
I4Value = CDbl(Range("I4").Value)
L4Value = Range("L4").Value

'判断是否包含停职等关键词
Dim hasStopKeyword As Boolean
hasStopKeyword = False
For i = LBound(stopKeywords) To UBound(stopKeywords)
If InStr(LCase(L4Value), LCase(stopKeywords(i))) > 0 Then
hasStopKeyword = True
Exit For
End If
Next i

'计算K3的值
If hasStopKeyword Then
K3Value = ""
Else
If IsNumeric(I4Value) Then
If I4Value >= 98 Then
K3Value = "★★★"
ElseIf I4Value >= 95 Then
K3Value = "★★"
ElseIf I4Value >= 90 Then
K3Value = "★"
ElseIf I4Value < 90 Then
K3Value = ""
End If
Else
K3Value = ""
End If
End If

'将计算得到的K3的值写入单元格K3
Range("K3").Value = K3Value
这段VBA代码会根据I4和L4单元格的值，判断是否包含停职等关键词，然后根据I4的数值大小返回相应的星级评价。最后，将计算得到的K3的值写入单元格K3。你可以将这段VBA代码放入Excel文件的VBA编辑器中，运行宏即可实现与Excel函数公式相同的功能。追问

如果根据I5和L5单元格的值,I6和L6单元格的值，分别K4,K5进行判断，怎么进行循环执行呢？另外如果I列含有文本，则对应的K列等于空值。怎么去做呢？期待你的回复。谢谢！