Questão:
Macro Excel: Como contar a quantidade de valores numa linha de grafico?
Eu Mesmo
2009-08-03 05:41:38 UTC
Fala pessoal, blz?

Estou com uma duvida: Gostaria de saber como contar a quantidade de dados em um gráfico, através de uma macro. Por ex:

Tenho uma tabela com os dados de "Clientes cadastrados", de jan a dez de 2009. Mas só tenho um dado, o de maio, e o resto está em branco.

Com isso, gostaria de elaborar uma macro onde eu dê uma variável (também não sei qual: Long, Integer, Range, Variant etc) para que essa variável me dê o valor "1", que corresponde ao único dado da tabela.

Preciso disso para formatar uma linha com pontos ou não, pois esse dado não aparece em uma linha sem pontos.

Tentei usar o comando x = ActiveChart.SeriesCollection(2).Values com x as Variant, mas ele dá um monte de variáveis, uma por linha, o que eu não gostaria. No máximo o comando poderia contar os valores válidos.

Conto mais uma vez com o auxílio dos experts do YR!!

Agradeço.
Trzy respostas:
bokomoko
2009-08-03 14:20:39 UTC
A questào aí é : vc quer adicionar uma nova série de dados ? ou a série de dados é uma só mas tem tamanho variável ?



Se for a segunda alternativa, o truque é definir onde a série começa e onde termina.



dim comeco as range

dim fim as range



set comeco = range("A1")



set fim = comeco.offset( linhas desejadas -1 , colunas desejas -1)



wfim = ":" & Left(fim.Address, 3)







ActiveChart.SeriesCollection(i).Values = "='Plan1'!$A$" & comeco.Row & wfim & celula.Row



Seria algo assim, obviamente, o (i) vai ter que variar para cada série que vc quer adicionar. Se for uma só, é só colocar (1), ou (2), como está na sua pergunta.
2009-08-03 13:21:03 UTC
Essa função pronta não existe, mas você pode criá-la.

Aliás, vou criar para você:



Function ContarValores(InputRange As Range) As Long

Dim cl As Range, VUnicos As New Collection

Application.Volatile

For Each cl In InputRange

VUnicos.Add cl.Value, CStr(cl.Value) ' adiciona o valor

Next cl

On Error GoTo 0

CountUniqueValues = VUnicos.Count

End Function
José De Jesus
2009-08-03 12:49:17 UTC
xii complicado...


ⓘ
Este conteúdo foi postado originalmente no Y! Answers, um site de perguntas e respostas que foi encerrado em 2021.
Loading...