Excel - pomoc pri spočítavaní v tabuľke

deccros · Napísal **deccros**: 02.11.2009 10:45

Zdravím, potreboval by som poradiť s týmto problemom...

1. mám tabuľku, ktorá obsahuje 12 riadkov (každý riadok reprezentuje jeden mesiac v roku Január až December)
2. ďalej je tabuľka tvorená stĺpcami, ktoré reprezentujú dni v mesiaci (max. 31)
3. týmto mi vzniká matica buniek, do ktorých zaznamenávam dovolenky v jednotlivých dňoch v tom ktorom mesiaci (dovolenka je v bunke označená znakom D, inak je bunka prázdna)
4. potrebujem vzorec alebo funkciu, ktorý vykoná to, že pri otvorení dokumentu určí dnešný dátum a spočíta počet dní vyčerpanej dovolenky od začiatku roka k dnešnému dňu a ďalej určí počet dní dovolenky ktoré ostáva vyčerpať do konca roka

vďaka za pomoc...

p360t · Napísal **p360t**: 03.11.2009 18:31

Spočíta to toto makro. (takto ho pridáš do excelu)

Kód:

Sub SpocitajDovolenku()
    Dim den As Integer, mesiac As Integer, vycerpanych As Integer, nevycerpanych As Integer
    Dim r As Worksheet
    Set r = ThisWorkbook.ActiveSheet
    den = DatePart("d", Date)
    mesiac = DatePart("m", Date)
    vycerpanych = 0
    nevycerpanych = 0
    For i = 1 To 12
        For j = 1 To 31
            If r.Cells(i, j).Value = "D" Then
                If i < mesiac Or (i = mesiac And j <= den) Then
                    vycerpanych = vycerpanych + 1
                Else
                    nevycerpanych = nevycerpanych + 1
                End If
            End If
        Next j
    Next i
    
    MsgBox "Mas " + CStr(vycerpanych) + " vycerpanych dni a " + CStr(nevycerpanych) + " nevycerpanych dni dovolenky"
End Sub

Excel - pomoc pri spočítavaní v tabuľke

Podobné témy