< návrat zpět
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
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ěkuji
citovat
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