< návrat zpět

MS Excel


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

Zaslal/a 29.11.2018 14:25

kabakaNaš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

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#042007
avatar
řádekTarget.Interior.Color = vbCyanzapište do prvního makra na konec před End sub.citovat
#042008
kabaka
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
#042009
avatar
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
#042010
kabaka

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)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje