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 Sub3. 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 Sub3. 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:
- Como criar um temporizador de caixa de mensagem para fechar automaticamente a caixa de mensagem após certo tempo no Excel?
- Como abrir uma caixa de mensagem ao clicar em uma determinada célula no Excel?
- Como copiar texto de caixa de mensagem no Excel?
- Como abrir uma caixa de mensagem ao ativar / abrir uma planilha especificada no Excel?
- Como abrir uma caixa de mensagem pop-up se o valor da célula mudar dentro de um intervalo no Excel?
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 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!
