Excel VBA 1004エラー式

Question

私はVBAで約1ヶ月間働いています。残念ながら、そのため、このエラーはとてもイライラです。

私はセルに数式を割り当てようとしていますが、私はイギリススタイルの区切り記号（セミコロンの代わりにカンマ）を使用していません。私はまだランタイムエラーが発生しています。私はExcelでそれを使用して試してみたよう

実際の式の構文は、結構です、そしてそれは私がそれをするために必要なものありませんので、私はエラーが以下の、私のVBA構文であると想定する必要があります。

With DecileChooser 
    Range("A1").CurrentRegion.PasteSpecial 

    Range("I1").Value = CurrentPD 
    Range("I2").Value = CompanyDomain 


    DecileChooser.Range("J2").Formula = "=IF($I$1 > D2, G2, "")" 

    Range("J2:J11").FillDown 

    Range("K1").FormulaLocal = "=max(J1:J11)" 

    Range("K1").Value = DecileValue 
End With 

これはサブルーチン全体ではなく、機能部分だけです。二重引用符で

Answer 1

ダブルアップ：

DecileChooser.Range("J2").Formula = "=IF($I$1 > D2, G2, """")" 

または

dq = Chr(34) 
DecileChooser.Range("J2").Formula = "=IF($I$1 > D2, G2," & dq & dq & ")" 

Answer 2

問題ここでのコードは、式の最後として、あなたの式の中に二重引用符を読んでいることが、すなわちどのようなそれがされて読み取ります。その後、

DecileChooser.Range("J2").Formula = "=IF($I$1 > D2, G2, " 

が、残りで、構文の問題を持っている「）」

文字列を終了しないことを示すには、二重引用符を使用する必要があります。

With DecileChooser 
Range("A1").CurrentRegion.PasteSpecial 

Range("I1").Value = CurrentPD 
Range("I2").Value = CompanyDomain 

DecileChooser.Range("J2").Formula = "=IF($I$1 > D2, G2, """")" 

Range("J2:J11").FillDown 

Range("K1").FormulaLocal = "=max(J1:J11)" 

Range("K1").Value = DecileValue 
End With