 |
 |
|
|
|
|
Welcome to the { mindfrost82.com } forums. You are currently viewing our boards as a guest which gives you limited access to view most discussions and access our other features. By joining our free community you will have access to post topics, communicate privately with other members (PM), respond to polls, upload content and access many other special features. Registration is fast, simple and absolutely free so please, join our community today! If you have any problems with the registration process or your account login, please contact contact us. |
|
|||||||
 |
|
|
LinkBack | Thread Tools | Search this Thread | Display Modes |
09-02-2008, 03:26 PM
|
|||
|
|||
|
Re: Does borders exist ?
Option Explicit
Sub testme() With ActiveSheet.Range("a1") If .Borders(xlEdgeLeft).LineStyle = xlNone Then MsgBox "No left border" End If If .Borders(xlEdgeBottom).LineStyle = xlNone Then MsgBox "No bottom border" End If End With End Sub PdeC wrote: > > Hello. > I wish to write a macro that tells me if a cell has a border and if this > border is a left one or a bottom one or both. > Thanks for an help. > > Pierre -- Dave Peterson 
|
|
09-02-2008, 03:58 PM
|
|||
|
|||
|
Re: Does borders exist ?
Thaks a lot.
Pierre Dave Peterson a écrit : > Option Explicit > Sub testme() > With ActiveSheet.Range("a1") > If .Borders(xlEdgeLeft).LineStyle = xlNone Then > MsgBox "No left border" > End If > If .Borders(xlEdgeBottom).LineStyle = xlNone Then > MsgBox "No bottom border" > End If > End With > End Sub > > > PdeC wrote: >> Hello. >> I wish to write a macro that tells me if a cell has a border and if this >> border is a left one or a bottom one or both. >> Thanks for an help. >> >> Pierre >
|
|
|
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Linear Mode
