Note: The other languages of the website are Google-translated. Back to English

Como abrir uma caixa de mensagem pop-up para exibir o intervalo de células ou valores de células no Excel?

Em alguns casos, você pode precisar se lembrar do escopo do intervalo selecionado ou exibir todos os valores do intervalo especificado. Neste artigo, você obterá métodos de como abrir uma caixa de mensagem pop-up para exibir a referência de célula selecionada ou valores de célula detalhados no Excel.

Caixa de mensagem pop up para exibir o intervalo de células com código VBA
Caixa de mensagem pop up para exibir os valores do intervalo especificado com o código VBA


Caixa de mensagem pop up para exibir o intervalo de células com código VBA

O código VBA a seguir ajuda a exibir o escopo do intervalo selecionado em uma caixa de mensagem pop-up. Faça o seguinte.

1. Depois de selecionar o intervalo de células na planilha, pressione outro + F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie e cole o código VBA abaixo na janela Módulo.

Código VBA: caixa de mensagem para exibir o intervalo de células

Sub Test()
    On Error Resume Next
    MsgBox Application.Selection.Address, vbInformation, "Kutools for Excel"
End Sub

3. aperte o F5 chave para executar o código. Em seguida, uma caixa de mensagem aparece com o escopo do intervalo de células selecionadas exibindo dentro.


Caixa de mensagem pop up para exibir os valores do intervalo especificado com o código VBA

Supondo que você precise abrir uma caixa de mensagem para exibir todos os valores de células do intervalo A1: D13, conforme a captura de tela abaixo. Execute o código VBA abaixo.

1. Pressione outro + F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie e cole o código VBA abaixo na janela Módulo.

Código VBA: caixa de mensagem para exibir os valores das células selecionadas no Excel

Sub mesage()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xStr As String
    Dim xRow As Long
    Dim xCol As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    On Error Resume Next
    For xRow = 1 To xRg.Rows.Count
        For xCol = 1 To xRg.Columns.Count
            xStr = xStr & xRg.Cells(xRow, xCol).Value & vbTab
        Next
        xStr = xStr & vbCrLf
    Next
    MsgBox xStr, vbInformation, "Kutools for Excel"
End Sub

3. aperte o F5 chave para executar o código, no pop-up Kutools for Excel caixa de diálogo, selecione o intervalo que você precisa para exibir os valores das células em uma caixa de mensagem e, em seguida, clique no OK botão. Veja a imagem:

Em seguida, você obterá uma caixa de mensagem como a imagem abaixo mostrada, e todos os valores de células do intervalo especificado são exibidos na caixa de mensagem.


Artigos relacionados:


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório
Comentários (2)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Isso é muito útil! Existe uma maneira de formatar as colunas na exibição de valores de intervalo no VBA? Vejo no seu exemplo também que nem todas as colunas estão mostrando os mesmos dados. A coluna de nome é longa e empurra sua coluna de data para a direita.
Este comentário foi feito pelo moderador no site
Me puedes ayudar?. Necessário fazer a seleção que se faz com este cuadro, para selecionar o que quer copiar e pegar em outro hoja.
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL