Выделение границ итоговой строки With
|
Sub ПоследняяСтрока() ' ' ПоследняяСтрока Macro ' Macro recorded 29.11.1999 by Vladimir Billig ' 'Задание итоговой строки Range("A46:D46").Select ActiveCell.FormulaR1C1 = "Всего к оплате" Range("A46:K46").Select With Selection.Font .Name = "Arial" .FontStyle = "Полужирный" .Size = 11 End With ' Выделение границ итоговой строки With Selection.Borders(xlEdgeLeft) .LineStyle = xlDouble .Weight = xlThick End With With Selection.Borders(xlEdgeTop) .LineStyle = xlDouble .Weight = xlThick End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlDouble .Weight = xlThick End With With Selection.Borders(xlEdgeRight) .LineStyle = xlDouble .Weight = xlThick End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlThin End With End Sub |
| Листинг 6.26. |
| Закрыть окно |
