Samsung95
20.09.17,07:54
Ahojte,
potrebujem spocitat bunky, len ktore su zlte, a zaroven ak v nich je urcity text ( basic alebo intermediate alebo advanced)
na spocitanie zltych buniek pouzivam funkciu cez makra :CountCcolor
a klasicky na vyhladavanie slova : CountIf
vie mi niekto poradit, ako jednoducho spojit tieto funkcie aby mi pocitalo, to co chcem ? :)
Dakujem za vsetky rady
potrebujem spocitat bunky, len ktore su zlte, a zaroven ak v nich je urcity text ( basic alebo intermediate alebo advanced)
na spocitanie zltych buniek pouzivam funkciu cez makra :CountCcolor
a klasicky na vyhladavanie slova : CountIf
vie mi niekto poradit, ako jednoducho spojit tieto funkcie aby mi pocitalo, to co chcem ? :)
Dakujem za vsetky rady
ivka70
20.09.17,06:12
Spočítanie počtu výskytov na základe viacerých kritérií pomocou funkcie COUNTIFS
Kedze mas len 3 texty, tak si vytvoris 3 countifs (farba + text podmienky), pripadne si vytvoris bunku, na kotru sa bude vzorec odkazovat a v tej bunke budes vyberat hodnotu (text), ktoru chces v danom momente pocitat
https://support.office.com/sk-sk/article/Spo%C4%8D%C3%ADtanie-v%C3%BDskytu-hodnoty-aa1f3067-05c9-44e4-b141-f75bb9bb89bd
Kedze mas len 3 texty, tak si vytvoris 3 countifs (farba + text podmienky), pripadne si vytvoris bunku, na kotru sa bude vzorec odkazovat a v tej bunke budes vyberat hodnotu (text), ktoru chces v danom momente pocitat
https://support.office.com/sk-sk/article/Spo%C4%8D%C3%ADtanie-v%C3%BDskytu-hodnoty-aa1f3067-05c9-44e4-b141-f75bb9bb89bd
elninoslov
20.09.17,06:43
Akurát, že to nerieši podmienku s farbou AND podmienka s textom. Ako vzniká tá farba ? Ak pomocou PF, tak to rovnakým vzorcom otestujte, aký je v PF. Ak manuálnym vyfarbením, potom to musí urobiť jedine UDF.
elninoslov
20.09.17,10:47
Príklad s nejakým tým popisom.
mepex
20.09.17,13:05
Buď dostať všetky podmienky aj s farbou do UDF, alebo countifs(podmienky + aj na farbu)
elninoslov
20.09.17,14:15
Na tých presných podmienkach, ktoré netušíme, to celé závisí. Ako som uviedol príklad v prílohe CountColor.zip, ak nebude v podmienke Range ktorú COUNTIFS potrebuje, musí sa použiť iná "finta", napr. taká ako som použil. Uvidíme, či sa dočkáme prílohy, alebo to ostane bez odozvy, ako to býva čoraz častejšie ...
Samsung95
21.09.17,05:34
Ahojte, ked mi poradite ako pridam prilohu pridam :) som tu nova zatial
ked pridam prilohu pridam aj podrobny popis k tomu, dakujeeem
ked pridam prilohu pridam aj podrobny popis k tomu, dakujeeem
elninoslov
21.09.17,08:24
Keď idete myšou na svoj 1. príspevok, nemáte tam pod ním ikonku ceruzky ? To je úprava príspevku, a tam by ste mala nájsť možnosť priložiť súbor. Ak je to XLSM musí byť zabalený do ZIP.
xxn
26.09.17,07:29
Skús do VBA nakopírovať a spustiť nasledujúcu procedúru:
Sub CountColorValue()
Dim numbersBas As Long, numbersAdv As Long, numbersInt As Long, lastrow As Long
Dim rng As Range, c As Range
'Nájdi posledný riadok
lastrow = Range("A" & Rows.Count).End(xlUp).Row
'Urči oblasť buniek
Set rng = Range("A1:A" & lastrow)
'prejdi oblasť buniek
For Each c In rng
'If the interior color is 6 (standard yellow), not blank and not a number
If c.Value = "basic" And c.Interior.ColorIndex = 6 Then
'basic
numbersBas = numbersBas + 1
ElseIf c.Value = "advanced" And c.Interior.ColorIndex = 6 Then
'advanced
numbersAdv = numbersAdv + 1
ElseIf c.Value = "intermediate" And c.Interior.ColorIndex = 6 Then
'intermediate
numbersInt = numbersInt + 1
End If
Next c
'Message box popis + počet
MsgBox "Yellow + basic " & numbersBas & Chr(13) & _
"Yellow + advanced " & numbersAdv & Chr(13) & _
"Yellow + intermediate " & numbersInt
End Sub
Žiaľ odmieta mi to tu upnúť upravený súbor (Upload failed).
Stiahni si ho z: https://uloz.to/!pzLN2y7i7sj6/countcolor-upr-xlsm
Úprava je na Hárku 2.
Sub CountColorValue()
Dim numbersBas As Long, numbersAdv As Long, numbersInt As Long, lastrow As Long
Dim rng As Range, c As Range
'Nájdi posledný riadok
lastrow = Range("A" & Rows.Count).End(xlUp).Row
'Urči oblasť buniek
Set rng = Range("A1:A" & lastrow)
'prejdi oblasť buniek
For Each c In rng
'If the interior color is 6 (standard yellow), not blank and not a number
If c.Value = "basic" And c.Interior.ColorIndex = 6 Then
'basic
numbersBas = numbersBas + 1
ElseIf c.Value = "advanced" And c.Interior.ColorIndex = 6 Then
'advanced
numbersAdv = numbersAdv + 1
ElseIf c.Value = "intermediate" And c.Interior.ColorIndex = 6 Then
'intermediate
numbersInt = numbersInt + 1
End If
Next c
'Message box popis + počet
MsgBox "Yellow + basic " & numbersBas & Chr(13) & _
"Yellow + advanced " & numbersAdv & Chr(13) & _
"Yellow + intermediate " & numbersInt
End Sub
Žiaľ odmieta mi to tu upnúť upravený súbor (Upload failed).
Stiahni si ho z: https://uloz.to/!pzLN2y7i7sj6/countcolor-upr-xlsm
Úprava je na Hárku 2.