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

Příspěvky uživatele

Úplně jednochuchá změna pozadí aktivní buňky

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 35
End Sub


A pro podbarvení celého řádku použijte toto

Public old_range As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If old_range = "" Then
Cells.Interior.ColorIndex = xlNone
old_range = Target.Row
End If
Rows(old_range).Interior.ColorIndex = xlNone
Rows(ActiveCell.Row).Interior.ColorIndex = 35
old_range = Target.Row
End Sub


Zvýraznění řádku i sloupce

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 = 35
End With
With Rows(pRow).Interior
.ColorIndex = 35
End With
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse