Изменение ширины полей, меняя размеры
|
Sub СтолбцыТаблицы() ' ' СтолбцыТаблицы Macro ' Macro recorded 29.11.1999 by Vladimir Billig ' Изменение ширины полей, меняя размеры столбцов Columns("E:E").ColumnWidth = 4 Columns("F:F").ColumnWidth = 4 Columns("I:I").ColumnWidth = 4.43 Columns("K:K").ColumnWidth = 11.86 'Слияние ячеек для поля Название Товара Range("A32:D32").Select Selection.MergeCells = True 'Выделение внешних границ: слева,снизу, справа Range("A32:K32").Select With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin End With 'Выделение вертикальной внутренней границы With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlThin End With 'Копирование формата на всю область таблицы Selection.Copy Range("A33:K46").Select Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False End Sub |
| Листинг 6.24. |
| Закрыть окно |
