Como fazer o celular piscar em vermelho no Excel?
Em geral, destacamos as células com fundos diferentes para diferenciá-las de outras, mas aqui, neste artigo, apresento um código VBA que pode fazer as células específicas piscarem com fundo vermelho para se destacarem no Excel.
Faça o celular piscar em vermelho com VBA
Faça o celular piscar em vermelho com VBA
Para fazer as células piscarem para atrair a atenção dos usuários, aqui está um código VBA.
1. Ative a planilha para a qual deseja exibir células e pressione Alt + F11 chaves para abrir Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o código VBA abaixo no Módulo roteiro. Veja a imagem:
VBA: fazer o celular piscar em vermelho
Private Sub Flash_Cells()
'UpdatebyExtendoffice20160614
Dim xColor As Integer
Dim xCount As Integer
Dim xSpeed As Double
Dim xStart As Double
Dim xDelay As Double
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
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("Select cells", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value > 4 Then
xColor = 3
xSpeed = 0.6
Do Until xCount = 20
DoEvents
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xColor
Loop
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xlNone
Loop
xCount = xCount + 1
Loop
End If
Next
End Sub
3. Pressione F5 chave, e um Kutools for Excel caixa de diálogo aparece para selecionar as células que você deseja fazer flash, consulte a captura de tela:
4. Clique OK. Agora a célula selecionada está piscando com fundo vermelho.
Dicas:
(1) No código VBA, você pode alterar a cor de fundo (xCor = 3), velocidade de piscar (xSpeed = 0.6) e piscar (Faça até xCount = 20) como você quiser.
(2) Este código VBA não adicionará fundo instantâneo à seleção em branco.
(3) Este fundo flash será removido automaticamente após o término dos tempos em branco.
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!