Planilha Excel VBA Shapes 13 intermitente valor acima 100_II

Planilha Excel VBA Shapes 13 intermitente valor acima 100_II

Este procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application),usando o Evento Change da folha de planilha aciona torna shapes intermitente com base no valor na célula C9 Esse exemplo de planilha contém shapes(autoforma) ligados a célula C9, que ficam intermitentes(piscando) quando o valor total da soma for maior que 100, observe também que se o valor for da soma for menor que 100, os shapes(Autoformas) são ocultados automaticamente. “usei o Evento de planilha WorkSheetChange() para sensibilizar ao alterar valores no intervalo C4:C8 Bons Estudos! Fique com Deus, Expedito Marcondes
‘//=========’

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([C4:C8], Target) Is Nothing And Target.Count = 1 Then
If [C9] > 100 Then
ActiveSheet.Shapes(“sbxIMAGEM”).Visible = True
Intermitencia “sbxIMAGEM1”, 3
Intermitencia “sbxIMAGEM”, 10
Else
ActiveSheet.Shapes(“sbxIMAGEM”).Visible = False
ActiveSheet.Shapes(“sbxIMAGEM1”).Visible = False
End If
End If
End Sub
‘//=========’
Sub Intermitencia(s, Num)
[c2].Value = “”
n = 0
Do While n < Num
ActiveSheet.Shapes(s).Visible = False
fin = Timer + 0.2
Do While Timer < fin: DoEvents: Loop
ActiveSheet.Shapes(s).Visible = True
fin = Timer + 0.4
Do While Timer < fin: DoEvents: Loop
n = n + 1
[c2].Value = n
Loop
[c2].Value = “”
End Sub
‘//=========’
Escola Saberexcel VBA Estudos®
Treinamentos com Macros, Fórmulas e Funções
[email protected]

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.