Extrair números de um Textbox1
Enviado: 04 Abr 2017 às 17:42
por NiltoAraujo
Olà amigos
Gostaria de uma ajudinha, tenho textbox1 e colo dados extraídos de um site e gostaria de extrair apenas os números de telefone e envia-los para um textbox2 em vba
Agradeço.
Re: Extrair números de um Textbox1
Enviado: 10 Abr 2017 às 09:22
por alexandrevba
Bom dia!!
Uma forma seria:
Código: Selecionar todosPrivate Sub CommandButton1_Click()
Dim lMyNewNum As Long
Dim strTest As String
strTest = Me.TextBox1.Text
lMyNewNum = ExtractNumber(strTest)
Me.TextBox2.Value = lMyNewNum
End Sub
Código: Selecionar todosFunction ExtractNumber(sText As String)
Dim iCount As Integer, i As Integer
Dim lNum As String
For iCount = Len(sText) To 1 Step -1
If IsNumeric(Mid(sText, iCount, 1)) Then
i = i + 1
lNum = Mid(sText, iCount, 1) & lNum
End If
If i = 1 Then lNum = CInt(Mid(lNum, 1, 1))
Next iCount
ExtractNumber = CLng(lNum)
End Function
Att