MS Excel

Zdravím,
mám v excelu menší problém, tak doufám, že mi ho pomůžete vyřešit.
Mám funkci ='1'!B34 a potřebuji, aby si číslo té stránky bralo z vedlejšího pole.
Dohrabal jsem se akorát k funkci:

Public Function retezec(cislo) As String
retezec = "'" & cislo & "'!$B$29"
End Function

která mi vrátí ten řetězeč, ale já ho potřebuji ještě vykonat.
Mohl by mi někdo prosím pomoci, jak na to? Moc bych to ocenil.
Předem díky,
Jakub.

Zaslat odpověď >

Poki(25.5.2010 9:29)#001717

Zdravim,
pokud to spravne chapu, potrebujete jen pomoci nejakeho cisla v bunce zmenit odkaz na list.
V tomto pripade je idealni vestavena funkce NEPŘÍMÝ.ODKAZ, takze neni nutne ani psat vlastni funkci.
Napovedu urcite najdete nekde na webu :)citovat

h3llc0re(25.5.2010 9:45)#001718

Takhle jsem to nemyslel, ale už jsem na to přišel, respektive vygooglig, mám teďka ovšem jiný problém.
Mám funkci:

Public Function zakonnaLhuta(cislo) As String
zakonnaLhuta = "SUMIF('" & cislo & "'!$A$24:$A$29;I2;'" & cislo & "'!$E$24:$E$29)"
End Function

a funkci, která vykoná předešlou funkci :> :

Function eval(func As String)
Application.Volatile
eval = Evaluate(func)
End Function

Například: eval(zakonnaLhuta(1))
Ovšem když mi funkce vracela normální výraz, třeba ='1'!B13 tak to funguje, když tam mám jiné fce, tak to už nefunguje, nevěděl by si co s tím? Tam, kde jsem to našel se to neřeší.
Děkuju za tvůj čas,
Jakub.citovat

Poki(28.5.2010 0:22)#001730

Zkus tuhle funkci misto obou uvedenych:
Public Function zakonnaLhuta(cislo) As String
zakonnaLhuta = Application.WorksheetFunction.SumIf(Worksheets(cislo).Range("a24:a29"), Range("I2"), Worksheets(cislo).Range("e24:e29"))
End Function
Nevyhoda toho ale je, ze pokud listy pojmenujes cisly, tak se neodkazujes za list se jmenem napr. '1', ale na prvni list v sesitu, tzn. ze by bylo lepsi pojmenovat listy napr. 'a', 'b' atd...citovat

Téma: odkazy makrem

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje