• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: makro -aktívna bunka inej farby

Zaslal/a kabaka 29.11.2018 14:25

Našla som toto makro, ktoré mi vyhovuje, len neviem ako vsunúť do makra, aby bunka, kde sa stretáva stĺpec s riadkom - aktívna bunka, kde je kurzor mala inú farbu.

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Static xRow
Static xColumn
If xColumn <> "" Then
With Columns(xColumn).Interior
.ColorIndex = xlNone
End With
With Rows(xRow).Interior
.ColorIndex = xlNone
End With
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
With Columns(pColumn).Interior
.ColorIndex = 17
.Pattern = xlSolid
End With
With Rows(pRow).Interior
.ColorIndex = 17
.Pattern = xlSolid
End With
End Sub

Našla som aj makro na označenie bunky, ale neviem ich dať dokopy.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = 0
Target.Interior.Color = vbCyan
Application.ScreenUpdating = True
End Sub

Zaslat odpověď >

---

Dingo(30.11.2018 12:40)#042007

řádekTarget.Interior.Color = vbCyanzapište do prvního makra na konec před End sub.citovat

kabaka(30.11.2018 13:35)#042008

Vďaka, funguje, a keby som ešte chcela meniť farbu samotnej vybratej bunky? Teraz mi svieti modrá. Chcela by som si ju zmeniť.

Asi treba aj tento kód niekde umiestniť, prípadne ešte inú podmienku zadefinovať.

Cells.Interior.ColorIndex = 0citovat

Dingo(30.11.2018 15:10)#042009

Ta vybraná buňka je právě v tomto případě Target. Stačí tedy změnit např. na Target.Interior.ColorIndex = 0 - nebo jiné číslo pro nějakou jinou barvu.citovat

kabaka(30.11.2018 17:31)#042010

Dingo napsal/a:

Ta vybraná buňka je právě v tomto případě Target. Stačí tedy změnit např. na Target.Interior.ColorIndex = 0 - nebo jiné číslo pro nějakou jinou barvu.

Vďaka, teraz je to ok.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse