MS Excel

Zdravím,
mám dotaz zda je nějak možné převzít LOCAL fukci se kterou pracuju ve VBA rovnou do promene bez toho aniz bych ji musel vracet na list a pak zpet z listu zas do VBA.
Je nutne zachovat LOCAL funkci to ze bych ji mohl prepsat rovnou na VBA funkce vim ale nechce se mi tak se ptam jestli je to mozne pokud ne zacnu se ucit VBA funkce více nu.

Dekuji za radu viz příloha

Zaslat odpověď >

Merlin99(4.9.2020 11:36)#047877

*chtěl bych výsledek z funkce:
=CONCATENATE(ROK(EDATE(DNES();-1));""_"";KDYŽ(MĚSÍC(EDATE(DNES();-1))>9;MĚSÍC(EDATE(DNES();-1));CONCATENATE(0;MĚSÍC(EDATE(DNES();-1)))))
= 2020_08

vrátit ve VBA do promene DATUMx
bez pouziti listu excelucitovat

Robert13(4.9.2020 11:50)#047878

Mnoho z funkcií obsahuje aj VBA a ďalšie sa dajú volať z Excelu cez WorksheetFunction. Concatenate nepotrebuješ, výraz si vo VBA zložíš cez operátor &citovat

Robert13(4.9.2020 11:58)#047879

Tieto informácie som uviedol pre prípad, keby si chcel byť na seba hrdý, že si to dokázal sám. V opačnom prípade stačí počkať, kým sem dá hotové riešenie elnino. Priame funkcie vba zistíš cez googlecitovat

elninoslov(4.9.2020 12:46)#047880

Asi iba použiť Evaluate spolu s dočasným vytvorením definovaného názvu, ktorý zabezpečí preklad vzorca pre Evaluate. V reťazci vzorca, treba tak či tak ošetriť úvodzovky ("" namiesto "):
Sub FUNKCE2()
Dim RetVal
Dim LocalFormula As String
Dim LanguageCode As Long

LanguageCode = Application.LanguageSettings.LanguageID(msoLanguageIDUI)
If LanguageCode <> 1029 Then MsgBox "Nemožno vykonať, nesprávny jazyk Excelu.": Exit Sub

LocalFormula = "=CONCATENATE(ROK(EDATE(DNES();-1));""_"";KDYŽ(MĚSÍC(EDATE(DNES();-1))>9;MĚSÍC(EDATE(DNES();-1));CONCATENATE(0;MĚSÍC(EDATE(DNES();-1)))))"

On Error Resume Next
Names("EVALNAMELOCAL").Delete
On Error GoTo 0

Names.Add Name:="EVALNAMELOCAL", RefersToLocal:=LocalFormula
RetVal = Evaluate("EVALNAMELOCAL")
Names("EVALNAMELOCAL").Delete

MsgBox RetVal
End Sub
To samozrejme nemožno použiť 10 000x, lebo to bude pomalé.citovat

Dingo(4.9.2020 12:59)#047881

Možná jsem to špatně pochopil, ale výsledek té funkce má dávat datum vždy o měsíc pozadu?? a to KDYŽ jen kompenzuje 2 místa pro měsíc?
Jestli ano, měl bych jiný postup:
promenna= Format(Application.WorksheetFunction.EDate(Date, -1), "yyyy_mm")citovat

elninoslov(4.9.2020 15:13)#047884

No to práve píše, že to nechce prepisovať na VBA funkcie. Postup s Name a Evaluate sa dá použiť takmer všeobecne. Ale samozrejme akákoľvek funkcia Excelu sa dá prerobiť do VBA, či už jednoduchšie alebo zložitejšie.citovat

Merlin99(4.9.2020 17:35)#047888

elninoslov
MASAKR reseni to jsem necekal ze je mozne aani, urco budu mega pouzivat. Děkuji

Dingo
super VBA reseni takto bych se to spravne mel naucit ale asi neni diky elninoslov treba

Děkuji pánové za pomoc hezký víkend