excel, excel návod, microsft excel, vba, funkce, makra, tabulky, šablony, android

Excel - tipy a šablony, funkce, analýzy, grafy, programování maker ve VBA

• Home
• Excel tipy
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Fórum

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

Potř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.

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.

Autor: petr Vydáno: 2.1.2009 21:00 Přečteno: 11634x

Formát pro tisk

Sdílet článek:

• Facebook
• Delicious
• Linkuj
• Bookmarky
• QR kód
• E-mailem

Komentáře

Přidat komentář >

---

vladamares, - (17.6.2010 20:51) odpovědět

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...

Vlada

petr odpověděl(a) (18.6.2010 8:47)

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

vladamares odpověděl(a) (18.6.2010 16:42)

Tak na to bych asi neprisel.
Zatracene properties.
Mockrat dekuji...

VM

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Novinky

Formulář Faktura III

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

Aktivní diskuse