Re: Borders question, please

From: Stuart (sg_booth_at_hotmail.com)
Date: 06/03/04 

Date: Thu, 3 Jun 2004 19:18:51 +0100

Many thanks.

Regards.

"Trevor Shuttleworth" <Trevor@Shucks.demon.co.uk> wrote in message
news:OvoBGWZSEHA.3476@tk2msftngp13.phx.gbl...
> 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" <sg_booth@hotmail.com> wrote in message
> news:eApE6PZSEHA.808@tk2msftngp13.phx.gbl...
> > 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 ***:
> >
> > 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