Страницы: 1
RSS
Перевод в надстрочный шрифт
 
Добрый вечер друзья, подскажите пожалуйста кто нибудь функцию которая меняла бы автоматом две последние цифры числа в ячейке в надстрочный формат
 
Думаю, что с числом так не получится. Только с текстом.
 
как только напишете макрос, который это делает считайте функция у Вас есть.
только....
число нужно будет предварительно преобразовать в текст и забыть о нем как о числе
смотреть на это будет приятно, пользоваться - невозможно
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 Вот так. Может поможет тому, кто будет потом искать. Но сие только для текста.
Код
Sub Nadstr()
  With ActiveCell.Characters(Start:=Len(Selection) - 1, Length:=2)
    .Font.Superscript = True
  End With
End Sub
Изменено: tutochkin - 10.08.2020 16:26:43
Страницы: 1
Наверх