Excel - datum

Od: Datum: 21.09.12 23:57 odpovědí: 3 změna: 22.09.12 16:34

Dobrý den,

rád bych se zeptal, jak vytvorit funkci, ktera by ze startovniho a konecneho datumu vypsala vsechny datumy mezi do radku a zastavila se na konecnem datu. dekuji moc za pomoc


avatar
Upozornění
Tato otázka je 4 roky bez odpovědi a proto byla uzavřena.
Máte-li podobnou otázku, a nenašli jste vhodnou odpověď, založte novou otázku.
Seznam odpovědí:
 
moment čekejte prosím, probíhá přenos dat...
Zobrazení struktury odpovědí v otázce
Skrytí struktury odpovědí v otázce
Zobrazení struktury odpovědí v otázce

 

Odpovědi na otázku:
Datum: 22.09.12 07:34
 
avatar

nevystačíte s funkcí, protože počítáte víc hodnot. Potřebujete Sub.

Okopírujte kod přes schránku a vložte do modulu.

*

Sub Datum()
Dim StartovaciBunka As Range, PrvniDatum As Range, PosledniDatum As Range
Set StartovaciBunka = Range(C1)
Set PrvniDatum = Range(A1)
Set PosledniDatum = Range(A2)

x = PosledniDatum.Value - PrvniDatum.Value
For i = 0 To x
StartovaciBunka.Offset(i, 0).Value = i + PrvniDatum.Value
Next i
End Sub

doplněno 22.09.12 07:41:


Tak ještě jednou celý kód. Přes schránku se mi nepřenesly uvozovky a vám se možná nepřenesou taky. Tak pozor. Adresy si samozřejmě můžete změnit jak poptřebujete. Jestli chcete začít rozepisovat seznam například na buňce B5 pak třetí řádek bude vypadat takto:


Set StartovaciBunka = Range("B5")


*


Sub Datum()
Dim StartovaciBunka As Range, PrvniDatum As Range, PosledniDatum As Range
Set StartovaciBunka = Range("C1")
Set PrvniDatum = Range("A1")
Set PosledniDatum = Range("A2")


x = PosledniDatum.Value - PrvniDatum.Value
For i = 0 To x
StartovaciBunka.Offset(i, 0).Value = i + PrvniDatum.Value
Next i

End Sub

 
Datum: 22.09.12 09:27
 
avatar

Dle způsobu použití by stačily i ty vzorce.

Do první buňky výpisu zkopíruju startovní datum, do buňky pod ní toto datum zvětším o 1 a pokud už je přes koncové datum, nezobrazím nic. A tuhle druhou buňku nakopíruju dolů do sloupečku.

 
Od: kimnator*
Datum: 22.09.12 16:34
 

Dekuji moc, vyreseno

 

Neneseme odpovědnost za správnost informací a za škodu vzniklou jejich využitím. Jednotlivé odpovědi vyjadřují názory jejich autorů a nemusí se shodovat s názorem provozovatele poradny Poradte.cz

 
Copyright © 2004-2016 Poradna Poradte.cz. Všechna práva na poradně Poradte.cz vyhrazena.