Soucet vsech nestejnych cisel(datumu)

[PsychiKsSs]

Dobrý večer,
chtěl jsem se poradit ohledně problému se součtem datumů s podmínkou, že každý datum započítá jen jednou a když u datumu neni napsaný čas tak ho také nezapočítá.
Viz. přiložený dokument.

dny.xls

Dny

(20 KiB) Staženo 23 x

[mike007]

Vítej na PC-help!

Do dokumentu jsem ti vložil vlastní funkci, která ti to spočítá.

Kód: Vybrat vše

Function unikaty(InputRange As Range) As Long
Dim cl As Range, uhodnota As New Collection
Application.Volatile
On Error Resume Next
For Each cl In InputRange
uhodnota.Add cl.Value, CStr(cl.Value)
Next cl
On Error GoTo 0
unikaty = uhodnota.Count
End Function

Vzorec tedy vypadá následovně: =unikaty(A4:A16)-1

Otestuj a dej vědět, jestli to takto stačí.

[PsychiKsSs]

Děkuji ti mike007.
Sám bych to určitě nezvládl, k psaní funkcí jsem se v excelu ješte nedostal.
Tato funkce je naprosto dostačující.
Když budu mít opět nějaký problém, vím kde se mám obrátit, ještě jednou díky