В данном случае перед запуском макроса также необходимо выделить требуемый диапазон.
Рассматриваемый в данном подразделе трюк позволяет преобразовать последний символ ячейки в верхний индекс. Для этого следует применить макрос, приведенный в листинге 3.65.
Sub LastCharUp()
' Изменение расположения последнего символа ячейки
With ActiveCell.Characters(Start:=Len(Selection),
Length:=1).Font
.Superscript = True
End With
End Sub
В результате выполнения макроса можно в ячейке вместо значения, например, м3 получить значение м3. При этом следует учитывать, что данный макрос не преобразует числовые значения (например, представление числа 72 не изменится).
Возможности программы позволяют быстро заключить в рамку выделенный диапазон, изменив при этом вид сетки. Для достижения такого эффекта достаточно применить следующий макрос (листинг 3.66).
Sub ChangeSelGrid()
' Оформление границ выделения
' Левая граница
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
' Правая граница
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
' Верхняя граница
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
' Нижняя граница
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
' Изменение сетки внутри выделения
' Вертикальные линии сетки
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
' Горизонтальные линии сетки
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
End Sub
Результат применения макроса показан на рис. 3.20.
На рисунке видно, что диапазон ячеек ограничен рамкой, а сетка внутри его представлена в виде пунктирных линий.
Рис. 3.20. Рамка и сетка
Трюк, который мы рассмотрим в данном разделе, позволяет быстро вставить в любое место документа определенный заранее текст. Такую возможность удобно использовать, например, для вставки в документ должностей и фамилий директора и главного бухгалтера предприятия (либо других сотрудников). Подобная задача реализуется при использовании макроса, код которого приведен в листинге 3.67.
