将 Excel 数组公式转换为 VBA 代码答案

【问题标题】：converting Excel array formula to VBA code将 Excel 数组公式转换为 VBA 代码
【发布时间】：2021-07-25 03:39:08
【问题描述】：

大家好
我在 excel 中有这个数组公式，我想将它合并到 VBA 代码中，但它给了我一个错误：无法设置 Range 类的 FormulaArray 属性（错误 1004）
这是我在代码中修改后的公式

"=IF(SUMPRODUCT(--(($D$2=$B9)*(E$7>=$D$3)*(E$7<=$D$4)*(NOT(E$6>=1))*(NOT(E$8='الجمعة'))))=1;VLOOKUP($D$5;LeavesTypes;2;0);"""")"

这是完整的代码

Option Explicit
Option Base 1
Dim wrk As Workbook, DataSH As Worksheet, CurrentSH As Worksheet
Dim FirstCol As Integer, EmpRow As Integer, EmpID As String
Dim GetEmpRowLoop As Integer, StartingEmpCol As Integer
Dim StartColLoop As Integer, EndingEmpCol As Integer
Dim EndColLoop As Integer
Public Sub Macro1()

    Set wrk = ThisWorkbook
    Set DataSH = wrk.Worksheets("الاجازات ")
    Set CurrentSH = wrk.ActiveSheet

    If CurrentSH.Name = DataSH.Name Then
        MsgBox "Please Navigate to an Active Sheet", vbCritical
        Exit Sub
    End If
    
    EmpID = CurrentSH.Range("d2").Value
    
    For GetEmpRowLoop = 9 To CurrentSH.Cells(Cells.Rows.Count, 2).End(xlUp).Row
        If CurrentSH.Cells(GetEmpRowLoop, 2).Value = EmpID Then
            EmpRow = GetEmpRowLoop
            Exit For
        End If
    Next GetEmpRowLoop
    
    For StartColLoop = 4 To CurrentSH.Cells(EmpRow, Cells.Columns.Count).End(xlToRight).Column
        If CurrentSH.Cells(7, StartColLoop).Value = CurrentSH.Range("D3").Value Then
            StartingEmpCol = StartColLoop
            Exit For
        End If
    Next StartColLoop
    
    For EndColLoop = 4 To CurrentSH.Cells(EmpRow, Cells.Columns.Count).End(xlToRight).Column
        If CurrentSH.Cells(7, EndColLoop).Value = CurrentSH.Range("D4").Value Then
            EndingEmpCol = EndColLoop
            Exit For
        End If
    Next EndColLoop
    
    CurrentSH.Range(Cells(EmpRow, StartingEmpCol), Cells(EmpRow, StartingEmpCol)).FormulaArray = _
    "=IF(SUMPRODUCT(--(($D$2=$B9)*(E$7>=$D$3)*(E$7<=$D$4)*(NOT(E$6>=1))*(NOT(E$8='الجمعة'))))=1;VLOOKUP($D$5;LeavesTypes;2;0);"""")"
          
End Sub

我试图说明公式本身或结果是否无关紧要。

【问题讨论】：

标签： excel vba array-formulas

【解决方案1】：

您需要将单引号 (') 替换为双引号 ("")。但是，您需要加倍引号...

(NOT(E$8=""الجمعة""))

顺便说一句，不需要SUMPRODUCT。以下应该就足够了......

.Formula = "=IF(($D$2=$B9)*(E$7>=$D$3)*(E$7<=$D$4)*(NOT(E$6>=1))*(NOT(E$8=""الجمعة""))=1;VLOOKUP($D$5;LeavesTypes;2;0);"""")"

【讨论】：