Цитата(Pawlic @ 6.2.2013, 09:10  ) | | програмист |
программист
| Цитата(Pawlic @ 6.2.2013, 09:10 ) | | Предъистория |
Предыстория
| Цитата(Pawlic @ 6.2.2013, 09:10 ) | | благодая |
благодаря
| Цитата(Pawlic @ 6.2.2013, 09:10 ) | | EXEL |
Excel
| Цитата(Pawlic @ 6.2.2013, 09:10 ) | | впринципе |
в принципе
| Цитата(Pawlic @ 6.2.2013, 09:10 ) | | Как известно бизнес-отношения покупатель-поставщик выстраиваются во многом благодая EXEL: |
Нет, Excel вообще не является частью бизнес отношений.
| Цитата(Pawlic @ 6.2.2013, 09:10 ) | | Как програмно получить область ячеек, обведенных границей? |
| Код |
Sub Parser()
Dim MyMass() As String
Dim cll As Object
Dim x As Long
Dim y As Integer
For Each cll In ActiveSheet.Range("A1").Resize(65500, 255).SpecialCells(xlCellTypeFormulas).Cells
Let y = 0
If cll.Borders(xlEdgeLeft).LineStyle <> xlNone Then Let y = y + 1
If cll.Borders(xlEdgeTop).LineStyle <> xlNone Then Let y = y + 1
If cll.Borders(xlEdgeBottom).LineStyle <> xlNone Then Let y = y + 1
If cll.Borders(xlEdgeRight).LineStyle <> xlNone Then Let y = y + 1
If y = 4 Then
Let x = x + 1
ReDim Preserve MyMass(x - 1)
Let MyMass(x - 1) = cll.Address
End If
Next
For Each cll In ActiveSheet.Range("A1").Resize(65500, 255).SpecialCells(xlCellTypeConstants).Cells
Let y = 0
If cll.Borders(xlEdgeLeft).LineStyle <> xlNone Then Let y = y + 1
If cll.Borders(xlEdgeTop).LineStyle <> xlNone Then Let y = y + 1
If cll.Borders(xlEdgeBottom).LineStyle <> xlNone Then Let y = y + 1
If cll.Borders(xlEdgeRight).LineStyle <> xlNone Then Let y = y + 1
If y = 4 Then
Let x = x + 1
ReDim Preserve MyMass(x - 1)
Let MyMass(x - 1) = cll.Address
End If
Next
MsgBox "Адреса :" & Chr(10) & Join(MyMass(), ",")
End Sub
|
|
