Macro para ajudar o último caractere sobrescrito de muitas linhas em uma única coluna

Question

Estou adicionando notas de rodapé (sempre adicionando notas de rodapé) a uma tabela e gostaria de poder automatizar a natureza repetitiva de tornar meus símbolos sobrescritos.

Atualmente, é: > insira a célula > destaque o último caractere > clique na caixa Fonte (versão 2007) para abrir as opções para usar sobrescrito & gt ;, caixa sobrescrito > clique em OK > e seguir em frente.

Qualquer um de vocês tem ideias de como eu posso dizer: > procure na coluna A até a linha 400, onde > você encontra "símbolo" para fazer o último código dessa sequência (o sysmbol de fato) sobrescrito >

Eu tentei gravar algumas das minhas ações, mas ele está escrito sobrescrito FALSE. Então devo estar fazendo algo errado.

Alguma idéia ou exemplo de como fazer isso?

    

Answer 1

Crie uma macro que seja acionada fora do evento WorksheetChange, faça o teste do seu símbolo e altere-o para Sobrescrito, se estiver lá. Isso será acionado toda vez que você alterar uma célula:

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