Nacházíte se: WALL.czExcel návod › Vzorec na výpočet počtu pracovních dní
Kategorie: Excel návod

Vzorec na výpočet počtu pracovních dní

ExcelPotřebujete v Microsoft Excelu jednoduše zjistit počet pracovních dní mezi dvěma daty? Pracovní dny nezahrnují soboty, neděle a státem definované svátky.

Pro zjištění počtu pracovních dní mezi dvěma daty slouží vzorec NETWORKDAYS. Tento vzorec obsahuje syntaxe:

NETWORKDAYS (začátek; konec; svátky)

  • Začátek je počáteční datum.
  • Konec je koncové datum.
  • Svátek

Svátky je volitelný seznam kalendářních dat, která jsou vyjmuta z pracovního kalendáře (například státní a pohyblivé svátky). Tento seznam může být tvořen oblastí buněk s kalendářními daty nebo maticovou konstantou s pořadovými čísly, která představují daná kalendářní data.

Excel - vzorec na výpočet pracovních dní

Důležitá poznámka na závěr. Pokud vzorec NETWORKDAYS zobrazuje #NÁZEV?, potřebujete nainstalovat doplněk "Analytické nástroje". Doplněk nainstalujete v menu Nástroje > Doplňky > Analytické nástroje.

print Formát pro tisk

Sdílet článek:

Komentáře rss

Zasílate odpověď ke stávajícímu příspěvku (zrušit).

Nemáte oprávnění přidávat příspěvky.

Uživatelské jméno
Heslo
     

Registrace >
Ztracené heslo >


, - odpovědět
avatar
zdravim,

pratele nevite prosim nekdo jak zapsat workday ve VBA?

1.1.2010
workday
workday #N/A
workday
2.2.2010
workday
workday

Sub CISTKA()
For radek = 1 To ActiveSheet.UsedRange.Rows.Count
If IsError(Cells(radek, 7)) = True Then
If Cells(radek + 1, 1) = Cells(radek, 1) Then
Cells(radek + 1, 6) = Cells(radek, 1)
Rows(radek).Delete
radek = radek - 1

Else
Rows(radek).Delete
End If
End If
Next
End Sub

Takhle to funguje tak, ze to najde chybu, prepise datum a smaze radek.
Jde me o to, aby pri prepsani pouzil funkci workday, nebo prepsal bunky i s touto funkci.

Diky moc...

Vladacitovat
icon odpověděl(a)
admin
Pokud chcete použít funkci ve VBA musíte v editoru maker v menu Tool / Preferences zaškrtnout 'aptvbaen.xls'. Pak lze použít funkci například takto:


Sub PRAC_DNY()

Dim D1 As Date, D2 As Date, Datum As Date
Dim Dny As Integer, pDnu As Integer

D1 = "1.1.2010"
D2 = "31.1.2010"
pDnu = 150
Dny = NETWORKDAYS(D1, D2)
Datum = WORKDAY(D1, pDnu)

Debug.Print Dny
Debug.Print Datum

End Sub
citovat
odpověděl(a)
avatar
Tak na to bych asi neprisel.
Zatracene properties.
Mockrat dekuji...

VMcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Makro smyčka

elninoslov • 19.4. 9:02

Čas od do

elninoslov • 19.4. 8:46

Čas od do

jarek1111 • 18.4. 13:46

Čas od do

lubo • 18.4. 11:13

Čas od do

jarek1111 • 18.4. 8:32

Čas od do

jarek1111 • 18.4. 8:31

Makro smyčka

MilanKop • 18.4. 7:18