Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
borders
Is there a way to check wether an active cell is bordered?
If ActiveCell is bordered Then --- action --- End If Thank you very much in advance |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
borders
If ActiveCell.Borders.LineStyle 0 Then
Mike F "jobra" wrote in message ... Is there a way to check wether an active cell is bordered? If ActiveCell is bordered Then --- action --- End If Thank you very much in advance |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
borders
Mike & jobra,
Some of the Linestyle's return less that zero, eg xlDash (-4115 ), xlDouble (-4119), and others. Sub test() Dim s As String Dim v As Variant v = ActiveCell.Borders.LineStyle If IsNull(v) Then 'less than 4 borders and/or mixed styles s = "mixed borders" ElseIf v = xlLineStyleNone Then s = "no borders" Else s = "got 4 same style borders" End If MsgBox s End Sub Regards, Peter T "Mike Fogleman" wrote in message ... If ActiveCell.Borders.LineStyle 0 Then Mike F "jobra" wrote in message ... Is there a way to check wether an active cell is bordered? If ActiveCell is bordered Then --- action --- End If Thank you very much in advance |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
borders
Thank you very much Peter you are right about the differences. Mike thanks as
well for you time "Peter T" wrote: Mike & jobra, Some of the Linestyle's return less that zero, eg xlDash (-4115 ), xlDouble (-4119), and others. Sub test() Dim s As String Dim v As Variant v = ActiveCell.Borders.LineStyle If IsNull(v) Then 'less than 4 borders and/or mixed styles s = "mixed borders" ElseIf v = xlLineStyleNone Then s = "no borders" Else s = "got 4 same style borders" End If MsgBox s End Sub Regards, Peter T "Mike Fogleman" wrote in message ... If ActiveCell.Borders.LineStyle 0 Then Mike F "jobra" wrote in message ... Is there a way to check wether an active cell is bordered? If ActiveCell is bordered Then --- action --- End If Thank you very much in advance |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
borders
Hi,
how about something like this: Function HasBorder(Cell As Range) As Boolean Dim i As Variant For Each i In Array(xlDiagonalDown, xlDiagonalUp, _ xlEdgeLeft, xlEdgeTop, xlEdgeBottom, xlEdgeRight) If Cell(1).Borders(i).LineStyle < xlLineStyleNone Then HasBorder = True Exit For End If Next End Function Sub Test() If HasBorder(ActiveCell) Then End If End Sub this also detects borders of adjacent cells. if you don't want them, use xlLeft, xlTop, xlBottom and xlRight instead of xlEdge***. (even if a cell has no borders, adjacent cells may display borders) this doesn't detect borders displayed by a conditional formatting. perhaps there is no easy way to detect them without evaluating conditions. -- HTH, okaizawa jobra wrote: Is there a way to check wether an active cell is bordered? If ActiveCell is bordered Then --- action --- End If Thank you very much in advance |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
borders | Excel Discussion (Misc queries) | |||
Borders | Excel Discussion (Misc queries) | |||
borders | Excel Discussion (Misc queries) | |||
borders | Excel Discussion (Misc queries) | |||
Help with borders | Excel Programming |