Como fazer uma forma piscando ou piscando continuamente no Excel?
Se você quiser fazer uma forma piscando continuamente em uma planilha, um método neste artigo pode ajudá-lo.
Faça uma forma piscando continuamente com o código VBA
Faça uma forma piscando continuamente com o código VBA
Na planilha, para fazer uma forma piscar, faça o seguinte.
1. aperte o outro + F11 chaves 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 na janela Código.
Código VBA: faça uma forma piscando continuamente na planilha
Dim NextTime As Date
Dim xColor As Long
Sub Flash()
NextTime = Now + TimeValue("00:00:01")
With ActiveSheet.Shapes("new").Fill.ForeColor
If xColor = 0 Then
xColor = .SchemeColor
End If
.SchemeColor = Int(Rnd() * 55 + 1)
End With
Application.OnTime NextTime, "Flash"
End Sub
Sub StopIt()
Application.OnTime NextTime, "Flash", schedule:=False
ActiveSheet.Shapes("new").Fill.ForeColor.SchemeColor = xColor
xColor = 0
End Sub
Notas:
3. aperte o outro + Q chaves juntas para sair do Microsoft Visual Basic para Aplicações janela.
4. Insira um botão na planilha clicando em Developer > inserção > Botão (controle de formulário) como a imagem abaixo mostrada.
5. No popping up Atribuir Macro caixa de diálogo, selecione Flash no Nome da macro e, em seguida, clique no OK botão.
6. Em seguida, altere o texto de exibição no botão conforme necessário. Neste caso, eu mudo o texto de exibição para Começar a piscar conforme a imagem mostrada abaixo.
7. Repita as etapas 4 e 5 acima para inserir um novo botão e atribuir o Pare macro para este botão.
8. Altere o texto de exibição deste novo botão.
Em seguida, você pode ver dois botões atribuídos a diferentes macros inseridos na planilha. Veja a imagem:
A partir de agora, ao clicar no botão Começar a piscar, a forma começa a piscar com cores diferentes. Se quiser parar o flash, clique no botão Parar de piscar.
Artigo relacionado:
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!