PROMOÇÃO ESPECIAL – CURSO EXCEL VBA EXPERT – ESCOA SABEREXCEL VBA Adquirir Todo Material Didático Escola SaberExcel VBA Estudos
Excel VBA função Planilha personalizada extrair números
Este Macro e Função do Aplicativo Microsoft Excel VBA(Visual Basic Application), extraem os números de palavras observe que usei um macro para chamar a função e também usei a função como fórmula para ilustrar o exemplo. Espero que o exemplo lhe seja útil. Fique com Deus, Expedito Marcondes.
Function sbxExtrairNumeros(chave)
Application.Volatile
vTempChave = Trim(Application.Substitute(chave, “,”, “.”))
vTemp = “”
For i = 1 To Len(vTempChave)
c = Mid(vTempChave, i, 1)
If c >= “0” And c <= “9” Or c = “.” Then vTemp = vTemp & c
Next i
sbxExtrairNumeros = Val(vTemp)
End Function
‘//=====’
Sub sbx_chama_funcao_extrair_num()
Dim i As Long
For i = 4 To Cells(Rows.Count, “c”).End(xlUp).Row
Cells(i, “g”).Value = sbxExtrairNumeros(Cells(i, “c”))
Next i
End Sub
‘//=====’
Sub sbx_limpar_dados()
x = Cells(Rows.Count, “c”).End(xlUp).Row + 1 ‘ +1 para nao apagar o cabeçalho
Range(Cells(4, “g”), Cells(x, “g”)).ClearContents
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.
| Compre pelo PagSeguro | Compre pelo PayPal | |
 |
 |
|
| Material Didático: Curso Excel VBA Expert |
 |
 Baixe o exemplo de planilha contendo os macros acima: |
 Planilha Excel VBA função personalizada extrair números |
| << Link Download: Verifique também a Caixa de Itens Excluídos >> |
Planilha Excel VBA função personalizada extrair números
