Differences

This shows you the differences between two versions of the page.

--- home_server:mswindows_notes [2025-03-18 Tue wk12 16:38] – baumkp
+++ home_server:mswindows_notes [2025-03-18 Tue wk12 17:10] (current) – [MS Excel Highlight Row or Column] baumkp
@@ Line 218: / Line 218: @@
 ======MSExcel Tips======
+=====MS Excel Highlight Row or Column=====
+The basic built in way :
+  * ''shift+space'' to highlight the row
+  * ''ctrl+space'' to highlight the column
+Use conditional formating, but this requires hitting ''F9'' or a VB macro to actually highlight.
+Use a VB macro.  Main down side to this is that it slows down the MSExcel performance
+++++VB Code 1|
+<code>
+'from https://www.exceldemy.com/learn-excel/highlight/row/
+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
+    'Highlight row and column of the selected cell
+    .EntireRow.Interior.ColorIndex = 38  'or use RGB(200,200,200) to pick a colour
+    .EntireColumn.Interior.ColorIndex = 24
+  End With
+  Application.ScreenUpdating = True
+End Sub</code>
+++++
+++++VB Code 2|
+<code>'from https://www.howtoexcel.org/highlight-current-row-column/
+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 = 6
+    .Pattern = xlSolid
+End With
+With Rows(pRow).Interior
+    .ColorIndex = 6
+    .Pattern = xlSolid
+End With
+End Sub</code>
+++++
 =====Text to Column=====