Mám v Excelu udělaný roční kalendář, kde si vybarvuju žlutě buňky pro Dovolenou.
Udělala jsem funkci, které mi počítá, kolik podbarevných buněk v kalendáři mám (zeleně označený výsledek).
funkce vypadá takto:
Function Color_Cell_Count(ColorCell As Range; DataRange As Range)
Dim Data_Range As Range
Dim Cell_Color As Long
Cell_Color = ColorCell.Interior.ColorIndex
For Each Data_Range In DataRange
If Data_Range.Interior.ColorIndex = Cell_Color Then
Color_Cell_Count = Color_Cell_Count + 1
End If
Next Data_Range
End Function
co mě trápí je fakt, že když podbarvení v některé z buňěk odstraním (nebo přidám), tak funkce "nefunguje, automaticky se nespustí.
musím jít do funkce a odklepnout ho Entrem.
Za každou radu budu ráda
(ve Vzorce-možnosti výpočtů-automaticky mám zaškrtnuto automaticky).
