Sub ШапкаТаблицы()
|
Sub ШапкаТаблицы() ' ' ШапкаТаблицы Macro ' Macro recorded 29.11. 1999 by Vladimir Billig ' 'Именование полей таблицы и задание индексов Range("A32:D32").Select ActiveCell.FormulaR1C1 = "Наименование товара" Range("E32").Select ActiveCell.FormulaR1C1 = "Единица измерения" Range("F32").Select ActiveCell.FormulaR1C1 = "Количество" Range("G32").Select ActiveCell.FormulaR1C1 = "Цена" Range("H32").Select ActiveCell.FormulaR1C1 = "Сумма" Range("I32").Select ActiveCell.FormulaR1C1 = "Ставка НДС" Range("J32").Select ActiveCell.FormulaR1C1 = "Сумма НДС" Range("K32").Select ActiveCell.FormulaR1C1 = "Всего с НДС" Range("A33:D33").Select ActiveCell.FormulaR1C1 = "1" Range("E33").Select ActiveCell.FormulaR1C1 = "2" Range("F33").Select ActiveCell.FormulaR1C1 = "3" Range("G33").Select ActiveCell.FormulaR1C1 = "4" Range("H33").Select ActiveCell.FormulaR1C1 = "5" Range("I33").Select ActiveCell.FormulaR1C1 = "6" Range("J33").Select ActiveCell.FormulaR1C1 = "7" Range("K33").Select ActiveCell.FormulaR1C1 = "8" 'Центрирование текста и изменение высоты строки, 'обеспечивающее видимость текста Range("A32:K33").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True 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.25. |
| Закрыть окно |
