< návrat zpět
MS Excel
Téma: Kalendářní týden v InputBox ![rss](./plugins/templates/wall_2C/images/icons/rss.png)
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
![elninoslov](./pictures/avatars/5a6387658a0f4.jpg)
Tak nahraďte
Format(Date, "yyyy.mm.dd")
týmto
Application.IsoWeekNum(Date)citovat
Lugr(6.8.2019 23:12)#043882 ![Lugr](./pictures/avatars/5ea444280f10d.jpg)
Paráda, moc děkuju. Celý den to zkouším pokus omyl.
Děkuju.
citovat
Lugr(7.8.2019 7:15)#043886 ![Lugr](./pictures/avatars/5ea444280f10d.jpg)
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ěkuji
citovat
![elninoslov](./pictures/avatars/5a6387658a0f4.jpg)
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 ![Lugr](./pictures/avatars/5ea444280f10d.jpg)
Tedy v mém případě myslíte třeba takto:
Application.WeekNum(Date,2)
citovat
Lugr(8.8.2019 15:56)#043908 ![Lugr](./pictures/avatars/5ea444280f10d.jpg)
Už to funguje. Děkuji za radu.
citovat