Цитата(SAA_66 @ 14.04.2007 - 15:48)
Для VSlav
К сожалению, запись макроса при активированной строке формул невозможна, вручную написание With Selection.Font тоже не помогает - макросы не активны при активированной строке формул.
Единственный выход, если у Вас задачи однообразные, написать что-то типа:
Sub SUBSCR()
With ActiveCell.Characters(Start:=2, Length:=1).Font
.Superscript = True
End With
End Sub
Это для выражения из двух знаков, второй - верхний индекс.
Ну и создать кнопку для этого макроса.
Для трёх знаков - ещё одну кнопку, и т.д. Туповато, но работает.
Я бы запрашивал количество знаков до и в верхнем индексе InputBoxом