Excel vprašanje
- Ustvarjalec teme moho
- Začetni datum
V ecxelu bi želel vodoravno sešteti število modrih in število rdečih polj - se pravi v vsaki vrstici bi na koncu izpisalo število modrih in rdečih polj posebej.
Nekaj sem geldal, spraševal ChatGPT, vendar mi ni uspelo. Psorim za pomoč.
Nekaj sem geldal, spraševal ChatGPT, vendar mi ni uspelo. Psorim za pomoč.
Uporaba VBA (VBA modul za štetje po barvi)
Če celice nimajo posebne oznake in so le obarvane z barvo polnil, morate ustvariti lastno funkcijo v VBA:
Function PrestejBarve(Rng As Range, BarvnaCelica As Range) As Long
Dim Celica As Range
Dim Stevec As Long
Dim KodaBarve As Long
KodaBarve = BarvnaCelica.Interior.Color
For Each Celica In Rng
If Celica.Interior.Color = KodaBarve Then
Stevec = Stevec + 1
End If
Next Celica
PrestejBarve = Stevec
End Function
Če celice nimajo posebne oznake in so le obarvane z barvo polnil, morate ustvariti lastno funkcijo v VBA:
- Pritisnite ALT + F11, da odprete VBA urejevalnik.
- V meniju izberite Insert > Module.
- V okno prilepite naslednjo kodo:
Function PrestejBarve(Rng As Range, BarvnaCelica As Range) As Long
Dim Celica As Range
Dim Stevec As Long
Dim KodaBarve As Long
KodaBarve = BarvnaCelica.Interior.Color
For Each Celica In Rng
If Celica.Interior.Color = KodaBarve Then
Stevec = Stevec + 1
End If
Next Celica
PrestejBarve = Stevec
End Function
- Zaprite VBA urejevalnik.
- V Excelu pripravite dve pomožni celici na vrhu (npr. $A$1 pobarvajte v modro, $B$1 pa v rdečo).
- V vrstici uporabite formulo:
- Za preštevanje modrih celic v vrstici 2: =PrestejBarve(A2:AE2; $A$1)
- Za preštevanje rdečih celic v vrstici 2: =PrestejBarve(A2:AE2; $B$1)
Podobne teme
