question

Como fazer uma borda de célula piscar no VBA do Excel?

Se fizermos Range("a1:a3").Copy, então a fronteira estaria piscando, mas também iria alterar o conteúdo da área de transferência. Como poderíamos fazer a borda da célula piscar sem alterar o conteúdo da área de transferência?
resposta Resposta

Para criar uma borda de célula piscando no VBA do Excel sem alterar o conteúdo da área de transferência, você pode seguir os seguintes passos:

  1. Abra o Microsoft Excel e pressione "Alt + F11" para abrir o Editor do Visual Basic.
  2. No Editor do Visual Basic, clique em "Inserir" e selecione "Módulo" para adicionar um novo módulo ao seu projeto VBA.
  3. Dentro do módulo, você pode inserir o seguinte código para criar a borda de célula piscando:
	Sub PiscarBorda()
    Dim Piscar As Integer
    Range("A1:A3").Select
    Piscar = 1
    Do While Piscar < 6
        With Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = 3
            .TintAndShade = 0
            .Weight = xlThin
        End With
        Application.Wait (Now + TimeValue("0:00:01"))
        With Selection.Borders(xlEdgeTop)
            .LineStyle = xlNone
        End With
        Application.Wait (Now + TimeValue("0:00:01"))
        Piscar = Piscar + 1
        Loop
    End Sub
	
  1. Depois de inserir o código, você pode fechar o Editor do Visual Basic e voltar para a Planilha do Excel.
  2. Para executar o código e fazer a borda da célula piscar, pressione "Alt + F8" para abrir a janela "Executar Macro", selecione a macro "PiscarBorda" e clique em "Executar".

Seguindo esses passos, você será capaz de criar uma borda de célula piscando no VBA do Excel sem alterar o conteúdo da área de transferência.


ComentáriosComentários
Acho que a resposta não está correta ou que você gostaria de acrescentar mais
alguma informação? Envie o seu comentário abaixo..

Guest


HTML não é permitido!

Image Code

Digite os caracteres que aparecem na imagem por isso sabemos que você é humano!

Receber um email quando alguém acrescenta outro comentário a esta pergunta


Topo da página


Home  Terms
Copyright © Accelerated Ideas 2005-2024
All rights reserved