Добрый день уважаемые читатели блога! Чемпионат идёт, мы болеем за наших, но вопросы продолжают поступать и сегодня мы поговорим о том, как можно записать надстрочный знак в Excel.
В прошлом уроке мы говорили о макросе удаления файлов.
Под надстрочным знаком подразумевается обозначение кубических ли квадратных метров, градусов Цельсия, степеней в математике. Примеров может быть множество. Вот только Excel в отличие от программы Word не умеет быстро и просто включать и отключать надстрочный и подстрочный знак.
Представьте себе, что у вас есть небольшая таблица — 5 строк. В ней нужно, чтобы обозначение кубических метров (3) встало над строкой.
Стандартным способом Excel считает:
- выделение символа «3» в каждой ячейке;
- открытие диалогового окна «Шрифт»;
- выбор нужного положения для символа (над строкой или под строкой);
- подтверждение.
Слишком долго и много действий, причём их нужно будет повторить для каждой ячейки! Если их будет больше, то, конечно, можно будет воспользоваться копированием формата ячеек, но это не вариант.
Пойдём по пути написания небольшого макроса, который позволит для выделенной ячейки перевести последний символ в надстрочное положение.
Как обычно:
- вкладка «Разработчик», блок кнопок «Код»;
- жмём «Visual Basic»;
- добавляем новый модуль Insert -> Module.
Далее вставим код макроса.
Sub Nadstr()
‘ Переводим последний символ в надстрочное положение
With ActiveCell.Characters(Start:=Len(Selection), Length:=1)
.Font.Superscript = True
End With
End Sub
Далее нажимаем на вкладке «Разработчик» кнопку «Макросы», жмём «Выполнить» и получаем вот такой результат. Без выделения определённых символов в ячейке.
Можно назначить этому макросу сочетание клавиш и использовать в дальнейшем! Надстрочный регистр применён!
