Макрос для помощи надстрочному символу последнего символа множества строк в одном столбце

Я добавляю сноски (всегда добавляя сноски) к таблице, и я действительно хотел бы иметь возможность автоматизировать повторяющийся характер создания надстрочных символов.

В настоящее время это: >введите ячейку>выделите последний символ> нажмите на поле шрифта (версия 2007), чтобы открыть параметры для использования надстрочного>отметьте поле надстрочного>нажмите кнопку ОК> и перейти к следующему.

любой из вас есть идеи, как я могу сказать: >посмотрите в столбце вниз до строки 400, где>вы найдете "символ" сделать последний устав этой строки (символов на самом деле) Надстрочный>перейти к следующему.

Я попытался записать некоторые из моих действий, но он читает верхний индекс FALSE. Значит, я что-то делаю не так.

любые идеи или примеры, как это сделать?

20
задан Lance Roberts
17.12.2022 4:45 Количество просмотров материала 2375
Распечатать страницу

1 ответ

создайте макрос, который будет инициировать событие WorksheetChange, затем выполните тест для своего символа, а затем измените его на верхний индекс, если он есть. Это будет срабатывать каждый раз при изменении ячейки:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Cells.Count > 1 Then
    Exit Sub
  Else
    If Right(Target.Value, 1) = CHR(128) Then
      Target.Characters(Start:=Len(Target.Value), _
                        Length:=1).Font.Superscript = True
    End If
  End If
End Sub
1
отвечен Lance Roberts 2022-12-18 12:33

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх