Considere a seguinte Função definida pelo usuário :
Public Function BlockCount(rng As Range) As Long
Dim ItemCount As Long, r As Range, v As String
BlockCount = 0
ItemCount = 0
For Each r In rng
v = r.Text
If v = "0" Then
ItemCount = ItemCount + 1
If ItemCount = 7 Then
ItemCount = 0
BlockCount = BlockCount + 1
End If
Else
ItemCount = 0
End If
Next r
End Function
FunçõesDefinidaspeloUsuário(UDFs)sãomuitofáceisdeinstalareusar:
- ALT-F11exibeajaneladoVBE
- ALT-IALT-Mabreumnovomódulo
- coleomaterialefecheajaneladoVBE
Sevocêsalvarapastadetrabalho,aUDFserásalvacomela.SevocêestiverusandoumaversãodoExcelposteriora2003,deverásalvaroarquivocomo.xlsmemvezde.xlsx
PararemoveroUDF:
- abrirajaneladoVBEcomoacima
- limpeocódigo
- fecheajaneladoVBE
ParausaroUDFdoExcel:
=BlockCount(A1:Z1)
Parasabermaissobremacrosemgeral,consulte:
e
e para detalhes sobre UDFs, consulte:
As macros devem estar ativadas para que isso funcione!