Favicon Svetmobilne.cz  Svět mobilně Favicon Svetaudia.cz  Svět audia Favicon TVFreak.cz  TV Freak   Fórum Favicon Digimanie.cz  Digimanie   Fórum   Galerie Společnost oXy Online s.r.o.
Zobrazené výsledky: 1 až 5 z 5

Téma: Excel 2010 výpočet bunky s farebný pismom

  1. #1
    Nováček
    Registrace
    Feb 2011
    Příspěvků
    3

    Ahoj,

    Prosím o radu,
    potrebujem zrátať dve číselné bunky, ale s tým že ak budú čísla v tých bunkách napísané červenou farbou tak ich výsledok bude 0 (nula), ak budú inou farbou tak budú sčítané normálne.

    Ďakujem.
    Odpovídat lze po přihlášení

  2. #2
    Obyvatel SHW
    Registrace
    Feb 2011
    Příspěvků
    478

    Dělá se to ve VBA.
    Kód:
        If Selection.Font.Color = vbRed Then
            Barva písma je červená
        Else
            Barva písma není červená.
        End If
    Odpovídat lze po přihlášení



  3. #3
    Nováček
    Registrace
    Feb 2011
    Příspěvků
    3

    Prosím Ťa nemôžeš mi to napísať do priloženého súboru? Ak by to išlo.
    Bol by som Ti fakt vďačný.

    Ďakujem.


    Vzorec.xlsx
    Odpovídat lze po přihlášení

  4. #4
    Obyvatel SHW
    Registrace
    Feb 2011
    Příspěvků
    478

    Založ sešit s makry, pokud nemáš, vlož kartu Vývojář, založ nové makro a do něj zkopíruj
    Kód:
    Sub Prepis()
    Dim PocetRadku
    Dim PocetSloupcu
    Dim i
    Dim ii
    
    PocetSloupcu = 30 'Predpokladany pocet sloupcu
    Range("A1").Select 'Nejvice obsazeny sloupec a radek odkud zacinaji data
    'PocetRadku = ActiveSheet.Cells(1).CurrentRegion.Rows.Count 'Pocet obsazenych radku
    'Horni radek se da pouzit pouze, pokud je sloupec obsazen bez mezer!
    'Jinak se počet sloupců musí zadat rucne.
    PocetRadku = 30
    
    Range("A1").Select 'Vrat se na zacatek
    For i = 1 To PocetRadku 'Posouva po radcich
        For ii = 1 To PocetSloupcu 'posouva po sloupcich
            If Selection.Font.Color = vbRed Then 'Pokud je cervena, zapis nulu
                ActiveCell.Value = 0 'Zapise nulu
                Selection.Font.Color = vbBlack 'Zmen barvu na cernou
            End If
            ActiveCell.Offset(0, 1).Range("A1").Select 'Posun o jedno doprava
        Next ii
    
        ActiveCell.Offset(1, -30).Range("A1").Select 'Posun o jedno dolů a 30 doleva
    Next i
    End Sub
    Potom už stačí pustit makro.
    Odpovídat lze po přihlášení

  5. #5
    Nováček
    Registrace
    Feb 2011
    Příspěvků
    3

    Ďakujem za pomoc.
    Vyriešil som čo som potreboval. Prišiel som na jednoduchší spôsob, ale aj tak tam mám niečo s VBA.
    Odpovídat lze po přihlášení

Podobná témata

  1. Excel 2007/2010, jak nalézt n-tý výskyt pole? Ne VBA.
    Od Akzirk v sekci Kancelářské balíky
    Reakcí: 1
    Poslední příspěvek: 29-08-2015, 09:14
  2. Microsoft Office: EXCEL makra 2003 => 2010
    Od Janno60 v sekci Kancelářské balíky
    Reakcí: 4
    Poslední příspěvek: 07-03-2013, 12:59
  3. Microsoft Office: Excel 2010 - Barevné označení rozdílu buněk
    Od bruma99 v sekci Kancelářské balíky
    Reakcí: 4
    Poslední příspěvek: 19-01-2013, 01:14
  4. Microsoft Office: Excel 2010-vyplnit řady
    Od PoloTom23 v sekci Kancelářské balíky
    Reakcí: 3
    Poslední příspěvek: 19-05-2011, 20:38
  5. Microsoft Office: Excel- zamčení pozice buňky
    Od jablicko85 v sekci Kancelářské balíky
    Reakcí: 1
    Poslední příspěvek: 09-12-2009, 16:32