Jak v Excelu změnit zvýraznění aktivní buňky?

[atari]

Potřebuji změnit v Excelu zvýraznění aktivní buňky. Je to nějak možné? Nikde jsem to nenašel.
(Když mám vlastní barevnou úpravu buněk a mřížky, tak ten kurzor aktivní buňky není skoro vidět.)

[Reklama]

[Petr Škorec]

Nemáš jen starý vysvícený monitor?

[atari]

To není o monitoru. Zvýraznění aktivní buňky je zesílené černé ohraničení. A když nastavím černou tlustou mřížku v listu, tak to není vidět.

[X]

Tak nejlepší by bylo dát obrázky, ať to můžeme posoudit ...

[mmmartin]

Zadej do Excelu do okna nahoře Řekněte mi, co chcete udělat "zvýraznění aktivní buňky"

[atari]

mmartin: to jsem zadal, ale nabídlo to jen formátování buněk, rovnice apod., což mě nepomůže.

X: obrázek přikládám, aktivní buňka je číslo "43,4"

[Uziv00]

No, něco jsem zkusil...
A12 je pomocná buňka, a pak je tam Visual Basic, který to dělá.

[lubo.]

Je to možné...

Zvýraznění řádku:
Vyber na listu oblast, ve které chceš zvýrazňovat.
podmíněný formát, určit buňky podle vzorce,
Vzorec :

Kód: Vybrat vše

=ŘÁDEK(NEPŘÍMÝ.ODKAZ(POLÍČKO("odkaz"))) = ŘÁDEK()

ve formátu vyber zvýraznění.

Sloupec analogicky.

Řádek se zvýzazní po přepočtu (f9) - často to stačí.

Pokud to má být automatické, tak do maker listu vlož:

Kód: Vybrat vše

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

[MK_Vs]

Dobrý den,
pokud by jste chtěl vizualizovat řádek, nabízí se vložit VBA + tlačítko pro vypnutí zvýraznění do daného listu.
Rozsahy a pozice je nutno si upravit.

Kód: Vybrat vše

Option Explicit

Private Sub Zvyr_radek_Click()

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Dim VRange As Range

    Set VRange = Range("a3:m50")
    VRange.Interior.ColorIndex = xlNone
    If Zvyr_radek.Value = True Then End
   
    If Union(ActiveCell, VRange).Address = VRange.Address Then
        Range(VRange.Cells(ActiveCell.Row - VRange.Row + 1, VRange.Cells(1).Column - VRange.Column + 1), _
              VRange.Cells(ActiveCell.Row - VRange.Row + 1, VRange.Columns.Count)) _
              .Interior.ColorIndex = 36
    End If

End Sub


[atari]

Díky za tipy. Použiji ty makra.

Mrkvosoft vymýšlí spoustu "nesmyslů", ale takovouto jednoduchou funkčnost Excelu neudělá ...