VBA運行時錯誤1004：無法設置範圍類的FormulaArray屬性

Question

VBA運行時錯誤1004：無法設置範圍類

我已經按照迪克Kusleika的建議的FormulaArray屬性在此link，但無法通過VBA獲得以下數組公式進入excel。任何人都可以看到我要去哪裏嗎？該公式的兩半都容易低於255個字符。

Public Sub Configuration() 

Dim theFormulaPart1 As String 

Dim theFormulaPart2 As String 

theFormulaPart1 = "=IF(ISODD(B2),IFERROR(INDEX(Race1Grid,MATCH(C2&I2&""Q3""," & _ 
       "QualRace1ID&QualDriver&QSession,0)),IFERROR(INDEX(Race1Grid" & _ 
       ",MATCH(C2&I2&""Q2"",QualRace1ID&QualDriver&QSession,0)),INDEX" & _ 
       "(Race1Grid,MATCH(C2&I2,QualRace1ID&QualDriver,0))))," & _ 
       "X_X_X())" 

theFormulaPart2 = "IFERROR(INDEX(Race2Grid,MATCH(C2&I2&""Q3"",QualRace2ID&" & _ 
       "QualDriver&QSession,0)),IFERROR(INDEX(Race2Grid,MATCH(C2&" & _ 
       "I2&""Q2"",QualRace2ID&QualDriver&QSession,0)),INDEX(" & _ 
        "Race2Grid,MATCH(C2&I2,QualRace2ID&QualDriver,0)))))" 

    With Worksheets("Races").Range("V2") 
     .FormulaArray = theFormulaPart1 
     .Replace "X_X_X())", theFormulaPart2 
    End With 

End Sub 

我已經嘗試將公式分成多行以便於閱讀。

Answer 1

正如我在評論中提到的，這只是公式第一部分的長度。我建議你進一步簡化：

Public Sub Configuration() 

Dim theFormulaPart1 As String 

Dim theFormulaPart2 As String 

Dim theFormulaPart3 As String 

theFormulaPart1 = "=IF(ISODD(B2),X_X_X1(),X_X_X())" 
theFormulaPart3 = "IFERROR(INDEX(Race1Grid,MATCH(C2&I2&""Q3""," & _ 
       "QualRace1ID&QualDriver&QSession,0)),IFERROR(INDEX(Race1Grid" & _ 
       ",MATCH(C2&I2&""Q2"",QualRace1ID&QualDriver&QSession,0)),INDEX" & _ 
       "(Race1Grid,MATCH(C2&I2,QualRace1ID&QualDriver,0))))," 
theFormulaPart2 = "IFERROR(INDEX(Race2Grid,MATCH(C2&I2&""Q3"",QualRace2ID&" & _ 
       "QualDriver&QSession,0)),IFERROR(INDEX(Race2Grid,MATCH(C2&" & _ 
       "I2&""Q2"",QualRace2ID&QualDriver&QSession,0)),INDEX(" & _ 
        "Race2Grid,MATCH(C2&I2,QualRace2ID&QualDriver,0)))))" 

    With ActiveSheet.Range("V2") 
     .FormulaArray = theFormulaPart1 
     .Replace "X_X_X())", theFormulaPart2 
     .Replace "X_X_X1()", theFormulaPart3 
    End With 

End Sub