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

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


seta azul bolha direita 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 Início guia, veja a captura de tela:

doc inserir tabela flutuante 1

2. No estalou para fora Copiar imagem caixa de diálogo, selecione Conforme mostrado na tela de 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:

doc inserir tabela flutuante 2

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

Nota: Neste código, o Picure1 é o nome da imagem que você criou, altere-o de acordo com sua necessidade.

doc inserir tabela flutuante 3

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.


seta azul bolha direita 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 Desenvolvedor guia, clique em Desenvolvedor > 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:

doc inserir tabela flutuante 4

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

Nota: Neste código, o TextBox1 é o nome da caixa de texto que você inseriu, altere-o de acordo com sua necessidade.

doc inserir tabela flutuante 5

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 grátis Kutools para Excel agora!


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 (8)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Obrigado-isso resolveu meu problema muito facilmente!
Este comentário foi feito pelo moderador no site
Se eu redimensionar a janela, a imagem flutuará muito no meio. Como faço para que a imagem flutue para a mesma margem da tela, independentemente do tamanho da janela que eu tenho?
Este comentário foi feito pelo moderador no site
Oi,
Em algum lugar entre as etapas 2 e 3 em "Inserir tabela flutuante no Excel com código VBA", perdi como nomear a imagem que acabei de copiar e colar.

Tom
Este comentário foi feito pelo moderador no site
O mesmo aconteceu comigo também, como você sabe o nome do arquivo de imagem?
Este comentário foi feito pelo moderador no site
Olá Peter,
Para saber o nome da imagem, basta selecionar a imagem e, em seguida, visualizar o nome na caixa de nome no canto superior esquerdo.
Este comentário foi feito pelo moderador no site
Canto superior esquerdo ao lado da caixa em que você insere a fórmula
Este comentário foi feito pelo moderador no site
Os nomes são os mesmos, mas por algum motivo ainda estou encontrando o objeto de erro de tempo de execução 424 necessário?
Este comentário foi feito pelo moderador no site
Olá, bom dia.

Mi pregunta es cómo mantener siempre visível la imagen flotante aun cuando me desplace en diferentes filas o columnas de la hoja.

Saludos y gracias por compartir tus conocimientos.
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