Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
contar numero de ca...
 
Notifications
Clear all

contar numero de caracteres

 
2024 - VBA & Macros
6 Posts
2 Usuários
0 Reactions
2,721 Visualizações
RSS
 serbar
(@serbar)
Posts: 7
Active Member
Topic starter
 

Preciso, em vba, saber o número de caracteres em uma célula. como estou em um loop não tenho o endereço preciso da célula (B14), por exemplo mas sim uma variável que guarda o endereço

Ex: If num.caract(Range(leitura)) = 17 Then
mas "num.caract" não funciona. Como posso fazer isso ?

 
Postado : 07/08/2012 6:14 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Eu não sei o que você quer :cry: 

Sub teste()
StringLength = Len(Range("A1"))
[D1] = StringLength
End Sub
 
Postado : 07/08/2012 6:25 am
 serbar
(@serbar)
Posts: 7
Active Member
Topic starter
 

Alexandre
Preciso determinar o número de caracteres na célula atual, que é determinada por range(leitura). Se testo com len os espaços após o último caracter tambem são contados

 
Postado : 07/08/2012 6:42 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Se existem espaços antes ou depois dos caracteres; eles tambem fazem parte da qtde de caracter de uma celula; contudo é possivel "desconsidera-los" se usar a função Arrumar e núm.caract. Em VBA conforme seu exemplo utilize: If Len(Trim((Range(leitura))) = 17 Then ...
Len (tamanho/comprimento)
Trim ou LTrim ou RTrim:
Retorna uma Variant (String) que contém uma cópia de uma seqüência de caracteres especificada, sem espaços à esquerda (LTrim), espaços à direita (RTrim) ou sem espaços à esquerda e precedentes (Trim):

 
Postado : 07/08/2012 7:32 am
 serbar
(@serbar)
Posts: 7
Active Member
Topic starter
 

valeu ! era o que eu precisava !

 
Postado : 07/08/2012 8:16 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Por favor marque o tópico como resolvido na próxima vez!!!
E agradeça com a mãozinha os colegas que te ajudaram, veja como:
viewtopic.php?f=7&t=3784

Att

 
Postado : 07/08/2012 11:30 am
Forum Jump:
  Tópico Anterior
Próximo Tópico