Excel VBA Planilha Shapes 49 intermitência base total horas

Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções

Planilha Excel VBA Shapes 49 intermitencia base total horas

PROMOÇÃO ESPECIAL – EXCEL VBA Adquirir o Material Didático Escola SaberExcel VBA Estudos

Excel VBA Planilha Shapes 49 intermitência base total horas

com este procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), vamos inserir um shapes(Autoforma) a soma do total de horas lançadas, se o total de horas nas células (D5) ou [D8] ou D11 for maior ‘> 37h00’ o shape ficará intermitente(piscando) na linha da ocorrencia da digitação para realização do teste digite um total de horas nas célula Col(A), Col(B) ou Col(C)

Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet
.Unprotect Password:=”12″
If Not Intersect(Range(“a4:c5,a7:c8,a10:c11”), Target) Is Nothing And Target.Count = 1 Then
vLin = ((Target.Row – 3) 3) * 3 + 5
If Cells(vLin, 4) > (37 / 24) Then
ActiveSheet.Shapes(“SaberHORAS”).Visible = True
ActiveSheet.Shapes(“SaberHORAS”).TextFrame.Characters.Text = Application.Text(Cells(vLin, 4), “[h]:mm”)
ActiveSheet.Shapes(“SaberHORAS”).Top = Cells(vLin, 4).Top – 20
sbxINTERMITENCIA “SaberHORAS”, 10
Else
ActiveSheet.Shapes(“SaberHORAS”).Visible = False
End If
End If
‘.Protect password:=”12″
End With
End Sub

Sub sbxINTERMITENCIA(s, sb)
Num = 0
Do While Num < sb
ActiveSheet.Shapes(s).Visible = True
vFim = Timer + 0.2
Do While Timer < vFim
DoEvents
Loop
ActiveSheet.Shapes(s).Visible = False
vFim = Timer + 0.4
Do While Timer < vFim
DoEvents
Loop
Num = Num + 1
Loop
End Sub

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.