Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Place Thin Border around Cell
I only want to code a line which instructs VBA to
Place a thin border around a cell. With Range("G2") .Range("A1").Formula = "=SUBTOTAL(9,$G$5:$G$50)" .Range("A1").Interior.ColorIndex = 6 .Range("A1").Font.Bold = True .Range("A1").Style = "Comma" <<<<<<<<<<<?????? End With I did a Record Macro to get the code,, I only Clicked on the single icon with the Full continuous line around the cell (top,left,right,& bottom) and when I examined the code it was 15-20 lines << What is the SKINNY of this auto produced code to produce a SIMPLE Border (All-Round type)? TIA, Jim May |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Place Thin Border around Cell
I don't know that there is an easy way to complete all borders:
With Range("A1") With .Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlHairline End With With .Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlHairline End With With .Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlHairline End With With .Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlHairline End With End With Jason "JMay" wrote: I only want to code a line which instructs VBA to Place a thin border around a cell. With Range("G2") .Range("A1").Formula = "=SUBTOTAL(9,$G$5:$G$50)" .Range("A1").Interior.ColorIndex = 6 .Range("A1").Font.Bold = True .Range("A1").Style = "Comma" <<<<<<<<<<<?????? End With I did a Record Macro to get the code,, I only Clicked on the single icon with the Full continuous line around the cell (top,left,right,& bottom) and when I examined the code it was 15-20 lines << What is the SKINNY of this auto produced code to produce a SIMPLE Border (All-Round type)? TIA, Jim May |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Place Thin Border around Cell
Please ignore last post...
.Range("A1").BorderAround Weight:=xlHairline HTH Jason "JMay" wrote: I only want to code a line which instructs VBA to Place a thin border around a cell. With Range("G2") .Range("A1").Formula = "=SUBTOTAL(9,$G$5:$G$50)" .Range("A1").Interior.ColorIndex = 6 .Range("A1").Font.Bold = True .Range("A1").Style = "Comma" <<<<<<<<<<<?????? End With I did a Record Macro to get the code,, I only Clicked on the single icon with the Full continuous line around the cell (top,left,right,& bottom) and when I examined the code it was 15-20 lines << What is the SKINNY of this auto produced code to produce a SIMPLE Border (All-Round type)? TIA, Jim May |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Place Thin Border around Cell
With Range("G2")
.Range("A1").Formula = "=SUBTOTAL(9,$G$5:$G$50)" .Range("A1").Interior.ColorIndex = 6 .Range("A1").Font.Bold = True .Range("A1").Style = "Comma" .Range("A1").BorderAround weight:=xlThin End With "JMay" wrote: I only want to code a line which instructs VBA to Place a thin border around a cell. With Range("G2") .Range("A1").Formula = "=SUBTOTAL(9,$G$5:$G$50)" .Range("A1").Interior.ColorIndex = 6 .Range("A1").Font.Bold = True .Range("A1").Style = "Comma" <<<<<<<<<<<?????? End With I did a Record Macro to get the code,, I only Clicked on the single icon with the Full continuous line around the cell (top,left,right,& bottom) and when I examined the code it was 15-20 lines << What is the SKINNY of this auto produced code to produce a SIMPLE Border (All-Round type)? TIA, Jim May |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Place Thin Border around Cell
Jason:
Tom Ogilvy recommended: ..Range("A1").BorderAround Weight:=xlThin Works great!! Jim May "Jason" wrote in message : I don't know that there is an easy way to complete all borders: With Range("A1") With .Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlHairline End With With .Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlHairline End With With .Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlHairline End With With .Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlHairline End With End With Jason "JMay" wrote: I only want to code a line which instructs VBA to Place a thin border around a cell. With Range("G2") .Range("A1").Formula = "=SUBTOTAL(9,$G$5:$G$50)" .Range("A1").Interior.ColorIndex = 6 .Range("A1").Font.Bold = True .Range("A1").Style = "Comma" <<<<<<<<<<<?????? End With I did a Record Macro to get the code,, I only Clicked on the single icon with the Full continuous line around the cell (top,left,right,& bottom) and when I examined the code it was 15-20 lines << What is the SKINNY of this auto produced code to produce a SIMPLE Border (All-Round type)? TIA, Jim May |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
border on last cell of page effects border on beginning cell of ne | Excel Discussion (Misc queries) | |||
Place a Bottom Border in a Table via a Macro | Excel Discussion (Misc queries) | |||
create a thin border around the selected cells | New Users to Excel | |||
How to place a border on every page in excel? | Excel Worksheet Functions | |||
How to create thin cell border | Excel Discussion (Misc queries) |