[Resolvido] Substituir todos os números de uma "String" pelo digito "0"

Bom dia a todos e Boas Festas,

Acabei de passar por mais um problema, que resolvi mas de modo grosseiro.

O que eu pretendo é substituir todos os números de uma "String" pelo digito "0", ou seja, pretendo que este valor "bar21212w" fique assim "bar00000w".

A minha solução foi:

Código:

strValue = fld.Value
strValue = Replace(strValue, "1", "0")
strValue = Replace(strValue, "2", "0")
strValue = Replace(strValue, "3", "0")
strValue = Replace(strValue, "4", "0")
strValue = Replace(strValue, "5", "0")
strValue = Replace(strValue, "6", "0")
strValue = Replace(strValue, "7", "0")
strValue = Replace(strValue, "8", "0")
strValue = Replace(strValue, "9", "0")

Conseguem me ajudar a tornar isto mais limpo?

Obrigado a todos

Bruno Gordino

não sei se da certo
use o select case

strValue = fld.Value
select case strValue
case strValue 1 to 9
strValue = 0
end select

Olá meu caro

Acho que é a 1 vez que nos falamos aqui no forum.

O código que passou funciona se a "String" for só de 1 digito, certo?

No entanto, pretendo que este valor "bar21212w" fique assim "bar00000w".

Obrigado na mesma

Bruno Gordino

Tentou usar a função format
De uma pesquisada em seu funcionamento

Viva.

Fui agora ver aqui (espero não estar a infringir nenhuma regra do Forum):
https://www.excelfunctions.net/vba-format-function.html

Mas como é que o "Format()" substituiria todos os dígitos para "0"?

Obrigado

Olá Bruno!

Para um campo com números e letras de qualquer tamanho

Saludos

brunogor

Código:

Dim i as byte

for i = 0 to 9
    fld.value = replace(fld.value, i, "0")
next i

Olá Franklin e Damasceno

O código que me facultaram é 5*****.

Hoje foi um dia de muita sorte, para além de me resolverem o problema, revi o Damasceno (ajuda já recorrente) e conheci Franklin e o scandinavo pela 1ª vez.

A todos o meu muito, mas mesmo muito obrigado.

Desejo-vos Boas festas e muita saúde.

Abraço

Bruno Gordino

Olá Damasceno,

Resolvi reabrir o tópico, pois parece que alguma coisa está mal no seu código, experimentei e não altera qualquer digito para "0".

Pode confirmar s.f.f. ou será que estou a fazer algo errado.

Obrigado

Bruno Gordino

Veja

Olá Damasceno,

Mais uma vez eu é que estava errado, o seu Código está simplesmente correto.

Muito obrigado pela tempo que dispensou comigo, ainda por cima nesta altura natalícia.

Obrigado e Boas Festas

Bruno Gordino