Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revisionNext revision | Previous revision | ||
home_server:mswindows_notes [2025-03-18 Tue wk12 16:55] – [MS Excel Highlight Row or Column] baumkp | home_server:mswindows_notes [2025-03-18 Tue wk12 17:10] (current) – [MS Excel Highlight Row or Column] baumkp | ||
---|---|---|---|
Line 227: | Line 227: | ||
Use a VB macro. | Use a VB macro. | ||
- | < | + | ++++VB Code 1| |
+ | < | ||
+ | 'from https:// | ||
+ | Private Sub Worksheet_SelectionChange(ByVal Target As Range) | ||
+ | If Target.Cells.Count > 1 Then Exit Sub | ||
+ | Application.ScreenUpdating = False | ||
+ | |||
+ | 'Clear the color of all cells | ||
+ | Cells.Interior.ColorIndex = 0 | ||
+ | With Target | ||
+ | ' | ||
+ | .EntireRow.Interior.ColorIndex = 38 'or use RGB(200, | ||
+ | .EntireColumn.Interior.ColorIndex = 24 | ||
+ | End With | ||
+ | |||
+ | Application.ScreenUpdating = True | ||
+ | End Sub</ | ||
+ | ++++ | ||
+ | |||
+ | ++++VB Code 2| | ||
+ | < | ||
+ | Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) | ||
Static xRow | Static xRow | ||
Static xColumn | Static xColumn | ||
Line 251: | Line 272: | ||
End With | End With | ||
End Sub</ | End Sub</ | ||
+ | ++++ | ||
=====Text to Column===== | =====Text to Column===== |