Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Borders question, please
If I run the following code (which colours unlocked cells) and
many contiguous cells become coloured, then it becomes a little difficult to orientate within the sheet: For Each c In .UsedRange.Columns("A:G") For Each cell In c.Cells With cell If Not cell.Locked = True Then 'User is permitted to edit this cell, so color it: With cell .Interior.ColorIndex = 34 End With End If End With Next cell Next c What are the correct statements please, that will format just the top and bottom borders of each coloured cell to the default (feint) Xl style? Regards. --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.692 / Virus Database: 453 - Release Date: 28/05/2004 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Borders question, please
Stuart
you could try a variation on this sample: With Range("E8:I16") With .Interior .ColorIndex = 6 .Pattern = xlSolid End With .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone .Borders(xlEdgeLeft).LineStyle = xlNone With .Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With With .Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With .Borders(xlEdgeRight).LineStyle = xlNone .Borders(xlInsideVertical).LineStyle = xlNone .Borders(xlInsideHorizontal).LineStyle = xlNone End With Regards Trevor "Stuart" wrote in message ... If I run the following code (which colours unlocked cells) and many contiguous cells become coloured, then it becomes a little difficult to orientate within the sheet: For Each c In .UsedRange.Columns("A:G") For Each cell In c.Cells With cell If Not cell.Locked = True Then 'User is permitted to edit this cell, so color it: With cell .Interior.ColorIndex = 34 End With End If End With Next cell Next c What are the correct statements please, that will format just the top and bottom borders of each coloured cell to the default (feint) Xl style? Regards. --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.692 / Virus Database: 453 - Release Date: 28/05/2004 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Borders question, please
Many thanks.
Regards. "Trevor Shuttleworth" wrote in message ... Stuart you could try a variation on this sample: With Range("E8:I16") With .Interior .ColorIndex = 6 .Pattern = xlSolid End With .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone .Borders(xlEdgeLeft).LineStyle = xlNone With .Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With With .Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With .Borders(xlEdgeRight).LineStyle = xlNone .Borders(xlInsideVertical).LineStyle = xlNone .Borders(xlInsideHorizontal).LineStyle = xlNone End With Regards Trevor "Stuart" wrote in message ... If I run the following code (which colours unlocked cells) and many contiguous cells become coloured, then it becomes a little difficult to orientate within the sheet: For Each c In .UsedRange.Columns("A:G") For Each cell In c.Cells With cell If Not cell.Locked = True Then 'User is permitted to edit this cell, so color it: With cell .Interior.ColorIndex = 34 End With End If End With Next cell Next c What are the correct statements please, that will format just the top and bottom borders of each coloured cell to the default (feint) Xl style? Regards. --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.692 / Virus Database: 453 - Release Date: 28/05/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.692 / Virus Database: 453 - Release Date: 28/05/2004 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Micro to do borders question. | Excel Discussion (Misc queries) | |||
Question about borders | Excel Discussion (Misc queries) | |||
Question about Cell Borders | New Users to Excel | |||
Borders | Excel Discussion (Misc queries) | |||
A Borders question | Excel Programming |