makro na obarvovani textu Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

jiri255
Level 1.5
Level 1.5
Příspěvky: 105
Registrován: leden 13
Pohlaví: Muž
Stav:
Offline

makro na obarvovani textu

Příspěvekod jiri255 » 23 kvě 2014 11:45

Zdravím,
opět bych chtěl ještě požádat o pomoc. Mám ještě jeden menší problém z makrem na obarvování textu.
Našel jsem údajně funkční makro, které pokud najde ve sloupci A na nějakém řádku černý text, tak ho
změní na jinou barvu, ale to makro končí hned na druhém řádku chybou, nevíte někdo v čem by mohl
být problém?
Ve sloupci A je například na řádku 1 text "aaaaaaa" ,na řádku 5 text "bbbbb", atd...

Kód: Vybrat vše

Sub obarveni()
Columns("A:A").select
ozn_text = thisComponent.currentController.ViewCursos
If Text.charColor = 16711680 Then
ozn_text.charColor = -1
End If
End Sub


Předem děkuji za pomoc

Reklama
cmuch
Level 4.5
Level 4.5
Příspěvky: 1544
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: makro na obarvovani textu

Příspěvekod cmuch » 23 kvě 2014 12:48

Tady je jiné makro které projde sl.A a kde je nastaven text na černou tak ho přenastaví na červenou.

Kód: Vybrat vše

Sub ObarviBunky()

  For radek = 1 To Range("A" & Rows.Count).End(xlUp).Row + 2
    'pokud ma bunka nastaven font na cernou tak prebarvi na cervenou
    If Cells(radek, "A").Font.Color = vbBlack Then
      Cells(radek, "A").Font.Color = vbRed
    End If
  Next radek
End Sub

lubo.
Level 2
Level 2
Příspěvky: 192
Registrován: červen 13
Pohlaví: Nespecifikováno
Stav:
Offline

Re: makro na obarvovani textu

Příspěvekod lubo. » 23 kvě 2014 15:25

Možná u toho makra také byl uveden program, pro ktery je určeno. (Calc - LO/AOO)

jiri255
Level 1.5
Level 1.5
Příspěvky: 105
Registrován: leden 13
Pohlaví: Muž
Stav:
Offline

Re: makro na obarvovani textu  Vyřešeno

Příspěvekod jiri255 » 23 kvě 2014 19:51

to makro od cmuch, funguje bezvadně :-) děkuji za pomoc


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Převod formatovaného textu na normalní.
    od BigSandy » 26 kvě 2023 07:27 » v Vše ostatní (sw)
    3
    1511
    od BigSandy Zobrazit poslední příspěvek
    26 kvě 2023 09:49
  • Ilustrator 2020 - problém textu v křivce Příloha(y)
    od showpayne » 13 srp 2023 17:50 » v Design a grafické editory
    4
    1919
    od Grander Zobrazit poslední příspěvek
    14 srp 2023 14:44
  • Makro pro myš Rapture Python
    od mmmartin » 27 srp 2023 15:18 » v Problémy s hardwarem
    9
    1111
    od mmmartin Zobrazit poslední příspěvek
    29 srp 2023 16:47

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 3 hosti