Sub VDGS() Dim BorderCells Dim iCount As Long For Each BorderCells In [h5:ab20] If BorderCells.Borders(xlDiagonalUp).Weight = xlMedium Then iCount = iCount + 1 Next BorderCells '[a1] = iCount MsgBox iCount End Sub
[/vba]
Так например:[vba]
Код
Sub VDGS() Dim BorderCells Dim iCount As Long For Each BorderCells In [h5:ab20] If BorderCells.Borders(xlDiagonalUp).Weight = xlMedium Then iCount = iCount + 1 Next BorderCells '[a1] = iCount MsgBox iCount End Sub
Function diag(diap As Range) ' Application.Volatile Dim d_, i For i = 1 To diap.Count d_ = d_ - (diap(i).Borders(xlDiagonalUp).LineStyle <> xlNone) Next i diag = d_ End Function
[/vba]
Или функцией [vba]
Код
Function diag(diap As Range) ' Application.Volatile Dim d_, i For i = 1 To diap.Count d_ = d_ - (diap(i).Borders(xlDiagonalUp).LineStyle <> xlNone) Next i diag = d_ End Function
Serge_007, ikki, Boroda большое Вам спасибо за оказанную помощь! Все замечательно работает. Искреннее спасибо от нашего абонентского отдела, собственно для которых я и просил помощи. Перевел на счет я\д Serge_007 немного средств на развитие сайта.
Serge_007, ikki, Boroda большое Вам спасибо за оказанную помощь! Все замечательно работает. Искреннее спасибо от нашего абонентского отдела, собственно для которых я и просил помощи. Перевел на счет я\д Serge_007 немного средств на развитие сайта. VDGS
Сообщение отредактировал VDGS - Среда, 09.07.2014, 13:47