Does borders exist ?

  • Thread starter Thread starter PdeC
  • Start date Start date
P

PdeC

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
 
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
 
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
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Dynamic border formatting based on dates. Use VBA? 1
VBA set thick borders around non empty cells in range 0
Generate list based on multiple criteria 1
Excel Macro Help 1
Cant format border? 5
Pivot Table formatting 2
Loop Excel Borders 2
Excel 2007 Ribbon Limitations 2

Back
Top