MS Excel

Zdravím všechny, řeším problém, jak použít proměnnou
ve vzorci, tzn. místo 9 a 11 dát proměnnou.

R[9]C[11]

ActiveCell.FormulaR1C1 = _
"=SUMIF(R[9]C[11]:R[17]C[11],""Jan"",R[9]C[10]:R[17]C[10])"

Díky za radu.

Laďa

Zaslat odpověď >

Opičák(27.5.2013 20:56)#013478

Oblasti pojmenovat:
hodnoty sloupců a řádků přiřadit proměnným:

jmena = Range(Cells(10, 12), Cells(18, 12))
hodnoty = Range(Cells(10, 11), Cells(18, 11))
ActiveCell.FormulaR1C1 = "=SUMIF(jmena,""Jan"",hodnoty)"citovat

eLCHa(29.5.2013 7:35)#013511

@bordov
asi je třeba více specifikovat nebo sem vložit makro, kde to chcete použít
nicméně Formula je textový řetězec a jako zřetězení slouží operátor &

takže např.:
"R[" & x & "]C[" & y & "]"

nebo pokud netrváte na R1C1

Sub test()
Dim rData As Range
Set rData = Range("K9:K17")
Dim rValues As Range
Set rValues = Range("L9:L17")

Dim sValue As String
sValue = """Jan"""

Dim sFormula As String
sFormula = "=SUMIF(" & rData.Address & "," & sValue & "," & rValues.Address & ")"

ActiveCell.Formula = sFormula

Set rData = Nothing
Set rValues = Nothing
End Sub

Přiznám se, že tomu, co napsal Opičák moc nerozumím.citovat

Opičák(29.5.2013 15:00)#013517

to eLCHa:
myslel jsem jinak než psal , samozřejmě ptákovina.

řádky v makru:
ActiveWorkbook.Names("jmena").Comment = ""
jsou zde k ničemu, možno odstranit

Příloha: zip

13517_sumif_2.zip (96kB, staženo 25x)

citovat

Téma: použití proměnné ve vzorci v makru

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje