Sčítavanie s podmienkou - Excel

Jana Kovalčínová · Napísal **Jana Kovalčínová**: 30.06.2009 15:51

Zdravím všetkých,

vie mi niekto poradiť ako by som mohla v tabuľke (dochádzka) do bunky vložiť funkciu, ktorá by mi spočítavala iba tie čísla, ktoré sú zvýraznené (bold-tučné). Príklad: Janko Mrkvička odpracoval 2xdennú zmenu a 2xnočnú. V tabuľke to je uvedené v riadku s tým, že nočné sú zvýraznené tučným typom písma. Na konci by som chcela, aby mi sčítavalo osobitne nezvýraznené a osobitne zvýraznené. Je možné to nejako cez funkciu nastaviť? Hodnoty sú v bunkách rovnaké 11,5.
Ďakujem všetkým za odpovede.
Jana

PaloPa · Napísal **PaloPa**: 20.07.2009 13:55

Jana Kovalčínová píše:

Zdravím všetkých,

vie mi niekto poradiť ako by som mohla v tabuľke (dochádzka) do bunky vložiť funkciu, ktorá by mi spočítavala iba tie čísla, ktoré sú zvýraznené (bold-tučné). Príklad: Janko Mrkvička odpracoval 2xdennú zmenu a 2xnočnú. V tabuľke to je uvedené v riadku s tým, že nočné sú zvýraznené tučným typom písma. Na konci by som chcela, aby mi sčítavalo osobitne nezvýraznené a osobitne zvýraznené. Je možné to nejako cez funkciu nastaviť? Hodnoty sú v bunkách rovnaké 11,5.
Ďakujem všetkým za odpovede.
Jana

Dá sa to urobiť prostredníctvom makra:

Kód:

Public Function SumaBold(oblast As Variant) As Double
Dim bunka As Range, xObl As Range
    Application.Volatile
    SumaBold = 0
    Set xObl = Range(CStr(oblast))
    For Each bunka In xObl
        'If bunka.Interior.ColorIndex = farba Then SumaBold = SumaBold + bunka.Value
        If bunka.Font.Bold = True Then
            If IsNumeric(bunka.Value) Then
                SumaBold = SumaBold + bunka.Value
            End If
        End If
    Next
End Function

Sub ForceRekalk()
    ActiveSheet.Calculate
End Sub

Vložiť kód:
1) ALT+F11 - okno VBA
2) klik pravým tlačidlom na názve zošita a vybrať "Insert / Module"
3) skopírovať kód uvedený vyššie

Príklad:
http://pc-prog.eu/phpBB3/images/xMyKB/SumarBoldHodnot.xls

Poznámky:
1) pre príklad treba mať povolené makrá
2) automaticky sa dá kontrolovať iba zmena obsahu bunky, nie však zmena formátu (napr. na Bold), preto treba pri jeho zmene "prinútiť" prepočítať hárok (F9)

Palo

Jana Kovalčínová · Napísal autor témy **Jana Kovalčínová**: 21.07.2009 17:24

Páni, tak to dnes vyskúšam. Ak sa mi to podarí, tak som macherka. Veľká vďaka.
Jana

Jana Kovalčínová · Napísal autor témy **Jana Kovalčínová**: 21.07.2009 20:27

PaloPa píše:

Dá sa to urobiť prostredníctvom makra:

Kód:

Public Function SumaBold(oblast As Variant) As Double
Dim bunka As Range, xObl As Range
    Application.Volatile
    SumaBold = 0
    Set xObl = Range(CStr(oblast))
    For Each bunka In xObl
        'If bunka.Interior.ColorIndex = farba Then SumaBold = SumaBold + bunka.Value
        If bunka.Font.Bold = True Then
            If IsNumeric(bunka.Value) Then
                SumaBold = SumaBold + bunka.Value
            End If
        End If
    Next
End Function

Sub ForceRekalk()
    ActiveSheet.Calculate
End Sub

Vložiť kód:
1) ALT+F11 - okno VBA
2) klik pravým tlačidlom na názve zošita a vybrať "Insert / Module"
3) skopírovať kód uvedený vyššie

Príklad:
http://pc-prog.eu/phpBB3/images/xMyKB/SumarBoldHodnot.xls

Poznámky:
1) pre príklad treba mať povolené makrá
2) automaticky sa dá kontrolovať iba zmena obsahu bunky, nie však zmena formátu (napr. na Bold), preto treba pri jeho zmene "prinútiť" prepočítať hárok (F9)

Palo

Funguje to! Si macher :shock:

PaloPa · Napísal **PaloPa**: 22.07.2009 8:02

Jana Kovalčínová píše:

Funguje to! Si macher :shock:

Vďaka za pochvalu, prihodím do životopisu :-)

Palo

Sčítavanie s podmienkou - Excel

Podobné témy