MS Excel

Téma: Kalendářní týden v InputBox

Zaslal/a Lugr 6.8.2019 12:14

Dobrý den,

prosím,

mám makro pro import dat. V Inputbox se mi automaticky vyplní
aktuální datum. Potřeboval bych ale do Inputboxu dostat místo datumu aktuální kalendářní týden.

Datum = Replace(Application.InputBox("Import dat","Získat data", Format(Date, "yyyy.mm.dd"), Type:=2), ".", "/")
If Datum = "False" Then Exit Sub

Děkuji za pomoc

Zaslat odpověď >

elninoslov(6.8.2019 22:53)#043881

Tak nahraďte
Format(Date, "yyyy.mm.dd")
týmto
Application.IsoWeekNum(Date)citovat

Lugr(6.8.2019 23:12)#043882

Paráda, moc děkuju. Celý den to zkouším pokus omyl.

Děkuju.citovat

Lugr(7.8.2019 7:15)#043886

Dobrý den,

tak jsem dnes v práci zjistil, že na MS Excel 2010 mi to nefunguje. Přitom na MS Excel 2016 nebyl problém. Existuje ještě jiná metoda pro MS Excel 2010?

Děkujicitovat

elninoslov(7.8.2019 17:09)#043897

Skúste či bude vyhovovať "WeekNum" (bez toho "Iso"). Len si treba nájsť správny druhý parameter (typ výsledku) - teda ako má počítať týždeň.citovat

Lugr(7.8.2019 21:06)#043899

Tedy v mém případě myslíte třeba takto:

Application.WeekNum(Date,2)citovat

Lugr(8.8.2019 15:56)#043908

Už to funguje. Děkuji za radu.citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.