Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Change highlight cell color
anyone know how to change the way that the current cell is highlighted?
Currently a white border is displayed around the cell. However, I am trying to find an alternative way of highlighting the cell for a partially sighted colleague. A different color for the current cell would be good, or a big thick border in a contrasting color would do. Any ideas? |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Change highlight cell color
'McCurdy.Here is something inspired by Don Guillett.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim MyRng As Range Set MyRng = Target '.EntireRow Application.EnableEvents = False On Error GoTo end1 Application.Cells.FormatConditions.Delete With MyRng .FormatConditions.Add Type:=xlExpression, Formula1:= _ "=ROW()=ROW(INDIRECT(CELL(""address"")))" With .FormatConditions(1).Font .Bold = True .Italic = False .ColorIndex = 1 End With .FormatConditions(1).Interior.ColorIndex = 36 End With end1: Application.EnableEvents = True End Sub -- Don Guillett SalesAid Software "Reteb" wrote in message ... anyone know how to change the way that the current cell is highlighted? Currently a white border is displayed around the cell. However, I am trying to find an alternative way of highlighting the cell for a partially sighted colleague. A different color for the current cell would be good, or a big thick border in a contrasting color would do. Any ideas? |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Change highlight cell color
Don
This is really useful. Tried it and liked it. But..... is there any way to make the highlighted text even larger? The standard font size on the spreadsheet is 11pt. So I tried adding ".Size = 16" to your macro, but nothing seems to happen "Don Guillett" wrote: To use, right click sheet tabview codecopy/paste thisSAVEtry it -- Don Guillett SalesAid Software "Don Guillett" wrote in message ... 'McCurdy.Here is something inspired by Don Guillett. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim MyRng As Range Set MyRng = Target '.EntireRow Application.EnableEvents = False On Error GoTo end1 Application.Cells.FormatConditions.Delete With MyRng .FormatConditions.Add Type:=xlExpression, Formula1:= _ "=ROW()=ROW(INDIRECT(CELL(""address"")))" With .FormatConditions(1).Font .Bold = True .Italic = False .ColorIndex = 1 End With .FormatConditions(1).Interior.ColorIndex = 36 End With end1: Application.EnableEvents = True End Sub -- Don Guillett SalesAid Software "Reteb" wrote in message ... anyone know how to change the way that the current cell is highlighted? Currently a white border is displayed around the cell. However, I am trying to find an alternative way of highlighting the cell for a partially sighted colleague. A different color for the current cell would be good, or a big thick border in a contrasting color would do. Any ideas? |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
Change highlight cell color
try this mod
'McCurdy.Here is something inspired by Don Guillett. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim MyRng As Range Set MyRng = Target '.EntireRow Application.EnableEvents = False On Error GoTo end1 Application.Cells.FormatConditions.Delete Application.Cells.Font.Size = 10 With MyRng .FormatConditions.Add Type:=xlExpression, Formula1:= _ "=ROW()=ROW(INDIRECT(CELL(""address"")))" With .FormatConditions(1).Font .Bold = True .Italic = False .ColorIndex = 1 End With .Font.Size = 20 .FormatConditions(1).Interior.ColorIndex = 36 End With end1: Application.EnableEvents = True End Sub -- Don Guillett SalesAid Software "Reteb" wrote in message ... Don This is really useful. Tried it and liked it. But..... is there any way to make the highlighted text even larger? The standard font size on the spreadsheet is 11pt. So I tried adding ".Size = 16" to your macro, but nothing seems to happen "Don Guillett" wrote: To use, right click sheet tabview codecopy/paste thisSAVEtry it -- Don Guillett SalesAid Software "Don Guillett" wrote in message ... 'McCurdy.Here is something inspired by Don Guillett. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim MyRng As Range Set MyRng = Target '.EntireRow Application.EnableEvents = False On Error GoTo end1 Application.Cells.FormatConditions.Delete With MyRng .FormatConditions.Add Type:=xlExpression, Formula1:= _ "=ROW()=ROW(INDIRECT(CELL(""address"")))" With .FormatConditions(1).Font .Bold = True .Italic = False .ColorIndex = 1 End With .FormatConditions(1).Interior.ColorIndex = 36 End With end1: Application.EnableEvents = True End Sub -- Don Guillett SalesAid Software "Reteb" wrote in message ... anyone know how to change the way that the current cell is highlighted? Currently a white border is displayed around the cell. However, I am trying to find an alternative way of highlighting the cell for a partially sighted colleague. A different color for the current cell would be good, or a big thick border in a contrasting color would do. Any ideas? |
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
Change highlight cell color
Don
Your a star. Thanks for the help. Just what we wanted. Regards Reteb "Don Guillett" wrote: try this mod 'McCurdy.Here is something inspired by Don Guillett. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim MyRng As Range Set MyRng = Target '.EntireRow Application.EnableEvents = False On Error GoTo end1 Application.Cells.FormatConditions.Delete Application.Cells.Font.Size = 10 With MyRng .FormatConditions.Add Type:=xlExpression, Formula1:= _ "=ROW()=ROW(INDIRECT(CELL(""address"")))" With .FormatConditions(1).Font .Bold = True .Italic = False .ColorIndex = 1 End With .Font.Size = 20 .FormatConditions(1).Interior.ColorIndex = 36 End With end1: Application.EnableEvents = True End Sub -- Don Guillett SalesAid Software "Reteb" wrote in message ... Don This is really useful. Tried it and liked it. But..... is there any way to make the highlighted text even larger? The standard font size on the spreadsheet is 11pt. So I tried adding ".Size = 16" to your macro, but nothing seems to happen "Don Guillett" wrote: To use, right click sheet tabview codecopy/paste thisSAVEtry it -- Don Guillett SalesAid Software "Don Guillett" wrote in message ... 'McCurdy.Here is something inspired by Don Guillett. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim MyRng As Range Set MyRng = Target '.EntireRow Application.EnableEvents = False On Error GoTo end1 Application.Cells.FormatConditions.Delete With MyRng .FormatConditions.Add Type:=xlExpression, Formula1:= _ "=ROW()=ROW(INDIRECT(CELL(""address"")))" With .FormatConditions(1).Font .Bold = True .Italic = False .ColorIndex = 1 End With .FormatConditions(1).Interior.ColorIndex = 36 End With end1: Application.EnableEvents = True End Sub -- Don Guillett SalesAid Software "Reteb" wrote in message ... anyone know how to change the way that the current cell is highlighted? Currently a white border is displayed around the cell. However, I am trying to find an alternative way of highlighting the cell for a partially sighted colleague. A different color for the current cell would be good, or a big thick border in a contrasting color would do. Any ideas? |
#7
Posted to microsoft.public.excel.misc
|
|||
|
|||
Change highlight cell color
glad it helped.
-- Don Guillett SalesAid Software "Reteb" wrote in message ... Don Your a star. Thanks for the help. Just what we wanted. Regards Reteb "Don Guillett" wrote: try this mod 'McCurdy.Here is something inspired by Don Guillett. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim MyRng As Range Set MyRng = Target '.EntireRow Application.EnableEvents = False On Error GoTo end1 Application.Cells.FormatConditions.Delete Application.Cells.Font.Size = 10 With MyRng .FormatConditions.Add Type:=xlExpression, Formula1:= _ "=ROW()=ROW(INDIRECT(CELL(""address"")))" With .FormatConditions(1).Font .Bold = True .Italic = False .ColorIndex = 1 End With .Font.Size = 20 .FormatConditions(1).Interior.ColorIndex = 36 End With end1: Application.EnableEvents = True End Sub -- Don Guillett SalesAid Software "Reteb" wrote in message ... Don This is really useful. Tried it and liked it. But..... is there any way to make the highlighted text even larger? The standard font size on the spreadsheet is 11pt. So I tried adding ".Size = 16" to your macro, but nothing seems to happen "Don Guillett" wrote: To use, right click sheet tabview codecopy/paste thisSAVEtry it -- Don Guillett SalesAid Software "Don Guillett" wrote in message ... 'McCurdy.Here is something inspired by Don Guillett. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim MyRng As Range Set MyRng = Target '.EntireRow Application.EnableEvents = False On Error GoTo end1 Application.Cells.FormatConditions.Delete With MyRng .FormatConditions.Add Type:=xlExpression, Formula1:= _ "=ROW()=ROW(INDIRECT(CELL(""address"")))" With .FormatConditions(1).Font .Bold = True .Italic = False .ColorIndex = 1 End With .FormatConditions(1).Interior.ColorIndex = 36 End With end1: Application.EnableEvents = True End Sub -- Don Guillett SalesAid Software "Reteb" wrote in message ... anyone know how to change the way that the current cell is highlighted? Currently a white border is displayed around the cell. However, I am trying to find an alternative way of highlighting the cell for a partially sighted colleague. A different color for the current cell would be good, or a big thick border in a contrasting color would do. Any ideas? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
cell pointer color change | Setting up and Configuration of Excel | |||
Macro To Change Cell Color (Continued) | Excel Worksheet Functions | |||
Macro To Change Cell Color When Value Changes | Excel Worksheet Functions | |||
How do I change cell color based upon data range within the cell? | Excel Worksheet Functions | |||
How to change the default Border, Font Color, and Cell Color | Excel Discussion (Misc queries) |