将特定函数传输到 VBA 代码

Question

我需要帮助将函数转换为 VBA 代码，有人可以帮助我吗？

函数如下：

=IF(H4&I4&J4="TEXT"&"TEXT"&"TEXT";"TEXT";
IF(J4&I4="TEXT"&"TEXT";H4;
IF(H4&J4="TEXT"&"TEXT";I4;
IF(H4&I4="TEXT"&"TEXT";J4;
IF(J4="TEXT";(H4+I4)/2;IF(I4="TEXT";(H4+J4)/2;
IF(H4="TEXT";(I4+J4)/2;(H4+I4+J4)/3))))))

我尝试在 VBA 中编写类似的内容，但没有成功。 . . . . . . .

If Cells(H4) and Cells (I4) and Cells (J4) = "TEXT". Then 

Answer 1

我无法理解公式。你想做什么？

关于比较你拥有的单元格的文本，使用这样的 VBA 代码

Range("H4").Value = "TEXT"

所以If Cells(H4) and Cells (I4) and Cells (J4) = "TEXT" Then变成了

If Range("H4").Value = "TEXT" And _
Range("I4").Value = "TEXT" And _
Range("J4").Value = "TEXT" Then
    '~~> Do Something
End If

上面的代码也可以写成

Dim strString As String

strString = Range("H4").Value & Range("I4").Value & Range("J4").Value

If strString = "TEXTTEXTTEXT" Then
    '~~> Do Something
End If