Como inserir uma tabela flutuante ou caixa de texto na planilha do Excel?
Se você tiver uma tabela ou caixa de texto com alguns dados importantes que deseja que estejam sempre visíveis na tela da planilha, mesmo quando você rolar para cima ou para baixo na planilha. Essa pode ser uma tarefa interessante, neste artigo, vou apresentar um truque rápido para resolvê-la.
Inserir tabela flutuante no Excel com código VBA
Inserir caixa de texto flutuante no Excel com código VBA
Inserir tabela flutuante no Excel com código VBA
Não há uma maneira direta de inserir a tabela flutuante, então você precisa converter os dados da tabela em uma imagem e, em seguida, aplicar um código para finalizá-la, faça o seguinte:
1. Selecione a tabela de dados que deseja manter visível e clique em Copiar > Copiar como imagem sob a Home page guia, veja a captura de tela:
2. No estalou para fora Copiar imagem caixa de diálogo, selecione Conforme mostrado na tela do Aparência seção e escolha Imagem sob a Formato seção, clique em OK para fechar a caixa de diálogo e, em seguida, clique em uma célula para gerar a imagem, por fim, pressione Ctrl + V para colar esta imagem, veja a imagem:
3. Depois de converter a mesa em imagem, clique com o botão direito na guia da planilha que contém a imagem da mesa que você deseja manter sempre visível e escolha Ver código a partir do menu de contexto, e no aberto Microsoft Visual Basic para aplicativos janela, copie e cole o seguinte código no módulo em branco:
Código VBA: insira a tabela flutuante no excel:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
Application.ScreenUpdating = False
If Target.Cells.Count > 1 Then Exit Sub
With ActiveSheet.Shapes("Picture1")
.Top = ActiveWindow.VisibleRange.Top + 5
.Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
End With
Application.ScreenUpdating = False
End Sub
Note: Neste código, o Picure1 é o nome da imagem que você criou, altere-o de acordo com sua necessidade.
4. Em seguida, salve e feche a janela de código, agora, ao rolar a planilha e clicar em uma célula, a imagem da tabela é sempre mantida no canto superior direito da planilha.
Inserir caixa de texto flutuante no Excel com código VBA
Para inserir uma caixa de texto flutuante, aqui está também um código VBA para resolver esta tarefa.
1. Primeiro, você deve inserir uma caixa de texto do Developer guia, clique em Developer > inserção > Caixa de texto (controle ActiveX)e, em seguida, desenhe a caixa de texto e insira as informações na caixa de texto conforme necessário. Veja a imagem:
2. Em seguida, clique com o botão direito na guia da página que contém a caixa de texto que você deseja manter sempre visível e escolha Ver código a partir do menu de contexto, e no aberto Microsoft Visual Basic para Aplicações janela, copie e cole o seguinte código no espaço em branco Módulo:
Código VBA: insira a caixa de texto flutuante no Excel:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
Application.ScreenUpdating = False
With ActiveWindow.VisibleRange
TextBox1.Top = .Top + 5
TextBox1.Left = .Left + .Width - TextBox1.Width - 45
End With
Application.ScreenUpdating = True
End Sub
Note: Neste código, o Caixa de texto1 é o nome da caixa de texto que você inseriu, altere-o de acordo com sua necessidade.
3. Em seguida, salve e feche a janela de código, agora, ao rolar a planilha para qualquer lugar, a caixa de texto inserida é sempre mantida no canto superior direito da planilha.
Maximize ou minimize a janela da planilha
Para maximizar a janela da planilha pode liberar mais espaço para os usuários, no Excel, você pode maximizar a janela da planilha, ocultando a faixa de opções, a barra de fórmulas ou a barra de status. Kutools for Excel's Área de trabalho pode ajudá-lo a ocultar a faixa de opções com apenas um clique. Baixe e teste gratuitamente o Kutools para Excel agora!
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!