Příspěvky uživatele


< návrat zpět

Barva aktivní buňky (22.3.2023 8:52)

Ú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)
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