TIRAR ESPA?OS NO LISTBOX

OGUSTAVOREIS 18/09/2014 14:31:51
#441328
Boa tarde galera,

Gostaria de saber se tem como formatar um textbox, onde quando requerido, a função retire todos espaços entre os conteúdo do textbox!
Porque isso... Se eu colocar algum contudo desformatado no listbox ele vai ocupar mais espaço!

Exemplo:
De:
Textbox1.value = [Ô]11111, 11111[Ô]
Para:
Textbox1.value = [Ô]11111,11111[Ô]
NICKOLASCARLOS 18/09/2014 14:38:16
#441329
Você pode usar esse código:

TextBox1.Text = ([Ô]11111,          11111[Ô]).Replace([Ô] [Ô], [Ô][Ô])


ou, se o valor já estiver no textbox e você for retirar os espaços:

TextBox1.Text = Textbox1.text.replace([Ô] [Ô],[Ô][Ô])
OGUSTAVOREIS 18/09/2014 14:48:37
#441331
Citação:

:
Você pode usar esse código:

TextBox1.Text = ([Ô]11111,          11111[Ô]).Replace([Ô] [Ô], [Ô][Ô])


ou, se o valor já estiver no textbox e você for retirar os espaços:

TextBox1.Text = Textbox1.text.replace([Ô] [Ô],[Ô][Ô])



No caso a ideia é seguir a sua opção dois!

Porém da erro de compilação: [Ô]Qualificador Inválido[Ô]
NICKOLASCARLOS 18/09/2014 15:04:29
#441334
Faz o download do meu projeto ai você vê como faz.
OGUSTAVOREIS 18/09/2014 15:09:57
#441335
Amigo,

Eu estou fazendo uma aplicação VBA no excel 2010, um form simples!
NICKOLASCARLOS 18/09/2014 15:12:03
#441336
Atá, então eu num sei como faz não!
OGUSTAVOREIS 18/09/2014 15:13:25
#441337
Tudo bem, valeu pela força!
OGUSTAVOREIS 18/09/2014 15:42:23
#441338
Galera,

Depois de muita busca e tentativas segue exatamente o que eu queria:

  
Sub cmdFormat()

    Dim OriginalText As String
    Dim CorrectedText As String

    OriginalText = TextBox1.Value

    CorrectedText = Replace(OriginalText, [Ô] [Ô], [Ô][Ô])

    TextBox1.Value = CorrectedText

End Sub


Valeu!
Faça seu login para responder
Voltar