Somando células com valores coloridos no excel 2000

Somando células com valores coloridos no Excel 2000
Neste tutorial será abordado como são somados valores que possuem cor no Excel ...
03/06/03h

Neste tutorial será abordado como são somados valores que possuem cor.

Um pequeno exemplo nesta figura: Na coluna "Cor" está a cor que está para ser somada, na coluna "Valor a ser somado" está o valor que cada cor será somada e na coluna "Resultado" está o resultado da soma das cores.

Para criar tal "regra de soma" é usada uma função chamada SOMACOR - mas esta função não está na lista de funções que o Excel 2000 possui e portanto nós criaremos ela a partir de códigos VBA.

A seguir a descrição das etapas:

Abra uma planilha, clique em "Ferramentas" > "Macro" > "Editor do visual basic" (ou utilize o atalho + ): aparecerá a seguinte tela (localizada no alto à esquerda da tela): Clique duas vezes em "EstaPasta_de_trabalho" e do lado direito (no editor em si) coloque o seguinte código: "Option Explicit" (sem aspas). Fazer o mesmo em "Plan1 (Plan1): depois de ter feito o processo acima, um Módulo será adicionado. Ainda no editor do Visual Basic, clique em "Inserir" e logo depois em "Módulo".

Agora no editor do lado direito o seguinte código deverá ser colocado:"Option Explicit" (sem aspas), apertar 'Enter'.

Depois disso você deve adicionar estes códigos (sem aspas), que é a função em si:

Function SOMACOR(qRange As Range, ByVal qCor$) As Double
Dim c As Range, xcolor&, xvalue#

Select Case qCor$
Case "VERMELHO" xcolor& = 255
Case "PRETO" xcolor& = 0
Case "AZUL" xcolor& = RGB(0, 0, 255)
Case "VERDE" xcolor& = RGB(0, 255, 0)
Case "AMARELO" xcolor& = RGB(255, 255, 0)
Case "ROSA" xcolor& = RGB(255, 0, 255)
'Case "isto é apenas um comentário, para adicionar cores aqui, coloque o nome da cor aqui e retire o ' do começo da linha"
' xcolor& = isto é apenas um comentário, para adicionar cores aqui, coloque o código RGB da cor correspondente aqui e retire o ' do começo da linha
End