AskOverflow.Dev

AskOverflow.Dev Logo AskOverflow.Dev Logo

AskOverflow.Dev Navigation

  • Início
  • system&network
  • Ubuntu
  • Unix
  • DBA
  • Computer
  • Coding
  • LangChain

Mobile menu

Close
  • Início
  • system&network
    • Recentes
    • Highest score
    • tags
  • Ubuntu
    • Recentes
    • Highest score
    • tags
  • Unix
    • Recentes
    • tags
  • DBA
    • Recentes
    • tags
  • Computer
    • Recentes
    • tags
  • Coding
    • Recentes
    • tags
Início / computer / Perguntas / 1584990
Accepted
lanselibai
lanselibai
Asked: 2020-09-13 14:33:13 +0800 CST2020-09-13 14:33:13 +0800 CST 2020-09-13 14:33:13 +0800 CST

Como usar funções para definir subscrito/sobrescrito no Excel?

  • 772

Eu quero formatar o subscrito para o texto no Excel. Como tenho muitos textos, quero fazer em batch. Posso perguntar se existe uma função para converter o texto em subscrito?

Eu gostaria de usar funções, não teclas de atalho.

Por exemplo, converta VL para V L .

microsoft-excel worksheet-function
  • 1 1 respostas
  • 182 Views

1 respostas

  • Voted
  1. Best Answer
    Noel Nemeth
    2020-09-14T01:46:40+08:002020-09-14T01:46:40+08:00

    Para conseguir isso, você pode escrever uma macro e executá-la na guia do desenvolvedor.
    Para obter mais informações sobre como executar uma macro ou ativar as ferramentas do desenvolvedor, consulte a página de suporte

    'You can make the first character in the A1 cell subscript like this
    Worksheets("Sheet1").Range("A1").Characters(0, 1).Font.Subscript = True
    

    Exemplo estendido

    Sub SubscriptWithRegex()
        'Create a new regex object, import reference from
        'Tools > References > Microsoft VBScript Regular Expressions 5.5
        Set regex = New RegExp
        'Define the pattern, use regexr.com to test and write regex
        'For this example we will subscript all L characters after a V
        regex.Pattern = "V(L+)"
        'if TRUE, find all matches, if FALSE find only the first match
        regex.Global = True
        'Iterate trough cells in Sheet1 range A1:A6
        For Each cell In Worksheets("Sheet1").Range("A1:A6")
            'Search for the pattern
            Set matches = regex.Execute(cell.Value)
            'Iterate trough the matches
            For Each Match In matches
                'Make characters subscript
                'We need to shift the match to left by 2 to skip the V character
                'and we need to subtract that single V from the total length
                cell.Characters(Match.FirstIndex + 2, Match.Length - 1).Font.Subscript = True
            Next
        Next
    End Sub
    

    Antes e depois de executar a macro

    +----------+----------+
    | Antes | Depois |
    +---+------+---+------+
    | | A | | A |
    +---+------+---+------+
    | 1 | VLLL | 1 | V LLL |
    +---+------+---+------+
    | 2 | VL | 2 | V L    |
    +---+------+---+------+
    | 3 | VVLL | 3 | VV LL |
    +---+------+---+------+
    | 4 | VLVL | 4 | V L V L |
    +---+------+---+------+
    | 5 | LLL | 5 | LLL |
    +---+------+---+------+
    | 6 | V | 6 | V |
    +---+------+---+------+
    

    Referências
    Excel Referência VBA
    Objeto Font (Excel)
    Objeto Characters (Excel)

    • 0

relate perguntas

  • Como usar a função LENGTH do Excel para uma coluna inteira?

  • Matriz do Excel (2 variáveis)

  • como abrir um arquivo de escritório do WSL

  • VBA para renomear planilha com base no nome do arquivo

Sidebar

Stats

  • Perguntas 205573
  • respostas 270741
  • best respostas 135370
  • utilizador 68524
  • Highest score
  • respostas
  • Marko Smith

    Como posso reduzir o consumo do processo `vmmem`?

    • 11 respostas
  • Marko Smith

    Baixar vídeo do Microsoft Stream

    • 4 respostas
  • Marko Smith

    O Google Chrome DevTools falhou ao analisar o SourceMap: chrome-extension

    • 6 respostas
  • Marko Smith

    O visualizador de fotos do Windows não pode ser executado porque não há memória suficiente?

    • 5 respostas
  • Marko Smith

    Como faço para ativar o WindowsXP agora que o suporte acabou?

    • 6 respostas
  • Marko Smith

    Área de trabalho remota congelando intermitentemente

    • 7 respostas
  • Marko Smith

    O que significa ter uma máscara de sub-rede /32?

    • 6 respostas
  • Marko Smith

    Ponteiro do mouse movendo-se nas teclas de seta pressionadas no Windows?

    • 1 respostas
  • Marko Smith

    O VirtualBox falha ao iniciar com VERR_NEM_VM_CREATE_FAILED

    • 8 respostas
  • Marko Smith

    Os aplicativos não aparecem nas configurações de privacidade da câmera e do microfone no MacBook

    • 5 respostas
  • Martin Hope
    CiaranWelsh Como posso reduzir o consumo do processo `vmmem`? 2020-06-10 02:06:58 +0800 CST
  • Martin Hope
    Jim Pesquisa do Windows 10 não está carregando, mostrando janela em branco 2020-02-06 03:28:26 +0800 CST
  • Martin Hope
    v15 Por que uma conexão de Internet gigabit/s via cabo (coaxial) não oferece velocidades simétricas como fibra? 2020-01-25 08:53:31 +0800 CST
  • Martin Hope
    fixer1234 O "HTTPS Everywhere" ainda é relevante? 2019-10-27 18:06:25 +0800 CST
  • Martin Hope
    andre_ss6 Área de trabalho remota congelando intermitentemente 2019-09-11 12:56:40 +0800 CST
  • Martin Hope
    Riley Carney Por que colocar um ponto após o URL remove as informações de login? 2019-08-06 10:59:24 +0800 CST
  • Martin Hope
    zdimension Ponteiro do mouse movendo-se nas teclas de seta pressionadas no Windows? 2019-08-04 06:39:57 +0800 CST
  • Martin Hope
    jonsca Todos os meus complementos do Firefox foram desativados repentinamente, como posso reativá-los? 2019-05-04 17:58:52 +0800 CST
  • Martin Hope
    MCK É possível criar um código QR usando texto? 2019-04-02 06:32:14 +0800 CST
  • Martin Hope
    SoniEx2 Altere o nome da ramificação padrão do git init 2019-04-01 06:16:56 +0800 CST

Hot tag

windows-10 linux windows microsoft-excel networking ubuntu worksheet-function bash command-line hard-drive

Explore

  • Início
  • Perguntas
    • Recentes
    • Highest score
  • tag
  • help

Footer

AskOverflow.Dev

About Us

  • About Us
  • Contact Us

Legal Stuff

  • Privacy Policy

Language

  • Pt
  • Server
  • Unix

© 2023 AskOverflow.DEV All Rights Reserve