Quotes & Variable gleichzeitig in FormulaR1C1

Question

Mein Code zu verwenden ist einfach diese

Sub Macro2() 
Dim X As Variant 
X = "3.7" 
Range("O36").FormulaR1C1 = "=SUM(COUNTIF(INDIRECT({""C9:C34"",""F9:F34""}),"">=""" & Chr(34) & X & Chr(34) & "))" 
MSGBOX "Total " & Range("O36").Value & " elements Standard Volts are Greater or Equal to " & X & " Volts" 
End Sub 

ich verschiedene Kombinationen von "" & aber ohne Erfolg versucht haben. Die Ausgabe des obigen Codes ist

= SUM (COUNTIF (INDIRECT ({ "C9: C34", "F9: F34"}), "> =" "3.7"))

aber von groben wird es nur funktionieren, wenn es

= SUMME (COUNTIF (INDIREKT ({ "C9: C34", "F9: F34"}) "> = 3,7"))

Answer 1

Um diese Art von Zeichenfolgen richtig und einfach zu schreiben, gehen Sie wie folgt vor:

1) Schreiben Sie die Zeichenfolge in der Art und Weise Sie es am Ende sein soll, zum Beispiel:

Range("O36").FormulaR1C1 = "=SUM(COUNTIF(INDIRECT({"C9:C34","F9:F34"}),">=3.7"))" 

2) Jedes Auftreten eines " zwischen dem Start- und End diejenigen einfach machen es doppelt, wie diese :

Range("O36").FormulaR1C1 = "=SUM(COUNTIF(INDIRECT({""C9:C34"",""F9:F34""}),"">=3.7""))" 

Das ist es !!!!

Answer 2

könnte mit direkterer Ansatz (pun intended) einfacher sein:

Range("O36").Formula = Replace("=SUMPRODUCT((C9:C34>=?)+(F9:F34>=?))", "?", X) 

oder vielleicht

Range("O36").ArrayFormula = Replace("=SUM((C9:C34>=?)+(F9:F34>=?))", "?", X) 

Sie können auch das Ergebnis erhalten, ohne Bereich mit:

result = Evaluate(Replace("SUMPRODUCT((C9:C34>=?)+(F9:F34>=?))", "?", X))