Kako da u excel (2007) tabeli izbrojim ćelije u redu koje su obojene ( prazne su , u njima nema nikakva tekst. ili brojčana vrednost).
Brojanje ćelija u boji ?
Zaključano
Zakačeno
Pogledaj primer koji je postavio 3okc sa upotrebom korisničke funkcije http://www.elitesecurity.org/t231552-0#1775026
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Filtriras po boji.
Potpis
Rent a car Beograd https://www.yakonorent.com
Na ovakvu tabelu sam mislio.
To je tabela - kalendar - i svaka obojena ćelija je znak da je taj radnik tog dana radio.Znači treba mi ona krajnja kolona - ukupno radio dana u tom mesecu - da mi excel upiše automatski.
To je tabela - kalendar - i svaka obojena ćelija je znak da je taj radnik tog dana radio.Znači treba mi ona krajnja kolona - ukupno radio dana u tom mesecu - da mi excel upiše automatski.
Ok. Ajde da probamo ovako:
1. Otvor VB Editor sa Alt+F11
2. Dodaj novi modul sa Insert/Module
3. Dodaj sledeci kod
4. Napisi u AK3
5. Kopiraj ovu formulu do AK47 ;))) tj. do AK32
Kada "farbas" celije, da bi se ova formula ponovo izracunala moraces da pritisnes F9 ili da negde promenis
vrednost u nekoj celiji jer Excel nece da izracunava formule kada se promeni format u celijama.
Pozdrav
1. Otvor VB Editor sa Alt+F11
2. Dodaj novi modul sa Insert/Module
3. Dodaj sledeci kod
Code:
Public Function CountColor(r As Range) As Long
Dim lNum As Long
Dim cellA As Range
Application.Volatile
For Each cellA In r
If cellA.Interior.Pattern <> xlNone Then lNum = lNum + 1
Next cellA
CountColor = lNum
End Function
Public Function CountColor(r As Range) As Long
Dim lNum As Long
Dim cellA As Range
Application.Volatile
For Each cellA In r
If cellA.Interior.Pattern <> xlNone Then lNum = lNum + 1
Next cellA
CountColor = lNum
End Function
4. Napisi u AK3
Code:
=countcolor(D3:AH3)
=countcolor(D3:AH3)
5. Kopiraj ovu formulu do AK47 ;))) tj. do AK32
Kada "farbas" celije, da bi se ova formula ponovo izracunala moraces da pritisnes F9 ili da negde promenis
vrednost u nekoj celiji jer Excel nece da izracunava formule kada se promeni format u celijama.
Pozdrav
To je baš to.Hvala @timmy
Citat:
timmy: Ok. Ajde da probamo ovako:
1. Otvor VB Editor sa Alt+F11
2. Dodaj novi modul sa Insert/Module
3. Dodaj sledeci kod
4. Napisi u AK3
5. Kopiraj ovu formulu do AK47 ;))) tj. do AK32
Kada "farbas" celije, da bi se ova formula ponovo izracunala moraces da pritisnes F9 ili da negde promenis
vrednost u nekoj celiji jer Excel nece da izracunava formule kada se promeni format u celijama.
Pozdrav
1. Otvor VB Editor sa Alt+F11
2. Dodaj novi modul sa Insert/Module
3. Dodaj sledeci kod
Code:
Public Function CountColor(r As Range) As Long
Dim lNum As Long
Dim cellA As Range
Application.Volatile
For Each cellA In r
If cellA.Interior.Pattern <> xlNone Then lNum = lNum + 1
Next cellA
CountColor = lNum
End Function
Public Function CountColor(r As Range) As Long
Dim lNum As Long
Dim cellA As Range
Application.Volatile
For Each cellA In r
If cellA.Interior.Pattern <> xlNone Then lNum = lNum + 1
Next cellA
CountColor = lNum
End Function
4. Napisi u AK3
Code:
=countcolor(D3:AH3)
=countcolor(D3:AH3)
5. Kopiraj ovu formulu do AK47 ;))) tj. do AK32
Kada "farbas" celije, da bi se ova formula ponovo izracunala moraces da pritisnes F9 ili da negde promenis
vrednost u nekoj celiji jer Excel nece da izracunava formule kada se promeni format u celijama.
Pozdrav
SVAKA CAST!!!
Potpis
Rent a car Beograd https://www.yakonorent.com