| Descricao: |
 Saberexcel - o site de quem precisa aprender Microsoft Excel VBA.
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), conta a ocorrencia de determinados produtos nas Colunas(B) e Coluna(C), essa macro representa a funcionalidade da Função SomarProduto(), com o mesmo resultado da fórmula:
'=SOMARPRODUTO((B1:B10=C1:C10)*1)
Option Base 1
Sub Simulacao_macro_somarproduto()
Dim vRegiao1 As Range, vRegiao2 As Range
Dim vCelula1 As Range, vCelula2 As Range
Dim i As Long, j As Long, z As LongB
Dim aVerif() As String, bVerif As Boolean
Set vRegiao1 = Range("B1:B16")
Set vRegiao2 = Range("C1:C16")
i = 0
j = 0
For Each vCelula1 In vRegiao1
For Each vCelula2 In vRegiao2
If vCelula2 = vCelula1 Then
i = i + 1
ReDim Preserve aVerif(i)
If i = 0 Then
aVerif(i) = vCelula2
j = j + 1
Else
bVerif = False
For z = 1 To UBound(aVerif)
If aVerif(z) = vCelula1 Then bVerif = True
Next z
If bVerif = False Then
j = j + 1
aVerif(i) = vCelula2
End If
End If
End If
Next vCelula2
Next vCelula1
MsgBox "Há [ " & j & " ] - ocorrências no range[-[B1:B16]:[C1:C16]-]", vbInformation, "Saberexcel - site das Macros"
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Publicidade
Compre com segurança, garantia e ótimos preços
|