USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Contar cores no Excel
Marcel
não registrado
ENUNCIADA !
Postada em 26/06/2008 23:55 hs   
Galera

consegui uma programação em vb para contar cores no excel, porem desejo contar mais que um grupo de celula e quando insiro a progração abaixo e muda a referencia de contagem ela nao funciona

alguem pode me ajudar?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
'
Dim i As Object
Dim Intervalo As Range
Set Intervalo = Range("b8:k11")
'Intervalo onde estão as células na cor vermelha
For Each i In Intervalo
If CorFundo(i) = 1 Then ' [ 1 ]= preto
qtde = qtde + 1
End If
Next i
[k13] = qtde
'Célula que receberá a informação de quantas repetições houve
End Sub

Function CorFundo(vRange As Range)
If Selection.Areas.Count = 1 Then
CorFundo = vRange.Interior.ColorIndex
Else
CorFundo = Null
End If
End Function
   
Ama
Pontos: 2843
UBERLÂNDIA
MG - BRASIL
ENUNCIADA !
Postada em 04/07/2008 01:47 hs         
da pra ser mais claro aqui em casa mudei a referencia para b2:k31 funcionou perfeitamente
   
Ama
Pontos: 2843
UBERLÂNDIA
MG - BRASIL
ENUNCIADA !
Postada em 05/07/2008 13:40 hs         
estava olhando isto e tem uma contradição ai vc esta procurando células vermelhas índide 3 através do índice da cor preta (1), não será este o problema?
   
Marcel Lopes
não registrado
Postada em 11/08/2008 23:52 hs   
Entao disso eu sei esta eu coloquei para puchar cores pretas... o que eu quero é
que conte ex:
de a1 ate z1 cores pretas
 
de a5 ate z5 cores vermelhas e assim por diante..
 
eu nao consigo pois quando repito algumas formulas ele da erro
     
vanessa
não registrado
Postada em 28/10/2009 17:24 hs   
Pessoal , preciso de ajuda .
tenho uma planilha com alguns compos na cor verde e preciso contar estes que estão na cor verde. Mas não tenho a minima ideia de como fazer.

se puder me ajudar agradeço.
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página