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:
- 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?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab 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!