Adicionado em: | 28/08/2011 |
Modificado em: | 28/08/2011 |
Tamanho: | Vazio |
Downloads: | 4857 |
Saberexcel - o Site das Macros MS Excel VBA
EXCEL VBA CONVERTENDO NÚMETO(TEXTO) EM NÚMERO.
Esse macro do Aplicativo Microsoft Excel VBA, converte número(texto) em números.Observem que o macro substitui o Ponto(.) dos números (textos) com vírgula, convertendo os números(texto) em números. Veja bem, o macro esta apenas substituindo o ponto por vírgula, por isso não vá confundir com os números em formato de textos com essa operação de substituição. Espero que o exemplo possa lhe ser útil . Fique com Deus, Expedito Marcondes
Sub Converter_texto_em_numeros()
'Converter texto em numeros
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim vCelulas As Range
Dim ValorOrigem As String
Dim NovoValor As String
On Error Resume Next
Set sbx = Plan1.Range("C1:C25")
For Each vCelulas In sbx.Cells.SpecialCells(xlConstants, xlTextValues)
ValorOrigem = vCelulas.Value
NovoValor = ""
For i = 1 To Len(ValorOrigem)
If Mid(ValorOrigem, i, 1) = "." Then
NovoValor = NovoValor & ","
ElseIf Mid(ValorOrigem, i, 1) = "," Then
NovoValor = NovoValor & "."
Else
NovoValor = NovoValor & Mid(ValorOrigem, i, 1)
End If
Next i
On Error Resume Next
vCelulas.Value = CDbl(Trim(NovoValor))
On Error GoTo 0
On Error Resume Next
Next vCelulas
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
[E3].Value = "Números('textos') já convertidos!"
End Sub
Sub copiar_teste()
[a].Copy [b]
[E3].Value = "CONVERTA OS NÚMEROS('TEXTOS') EM NÚMEROS"
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Adicionado em: | 30/10/2011 |
Modificado em: | 30/10/2011 |
Tamanho: | Vazio |
Downloads: | 3043 |
Desenvolvedor Alunos SaberExcel - Escola Saberexcel VBA Estudos® - |
Função Extrair Caracteres Textos e Numéricos |
Função extrair caracteres, extrairá números ou textos
dependendo do argumento informado, se verdadeiro ou falso
Condição Argumentos
verdadeiro = Numeros
Falso = Textos e outros carcteres.
Como Usar a Função
Extrair texto:
'=EXTRAIRCARACTERES(C4;FALSO)
'- - - - - - - - - - - - - - - - - - - - - - - - -
'Extrair Numeros(Textos)
'=EXTRAIRCARACTERES(F6;VERDADEIRO)
'- - - - - - - - - - - - - - - - - - - - - - - - -
Exemplo da função (código VBA)
Este exemplo retorna Números ou textos de uma cadeia de caracteres dependendo do Argumento (Verdadeiro ou Falso).
© 2002 - 2012 MicrosoftExcel(Saberexcel) - o site das Macros - Todos os direitos reservados.
Adicionado em: | 25/11/2010 |
Modificado em: | 25/11/2010 |
Tamanho: | Vazio |
Downloads: | 1111 |
Saberexcel o site das Macros
Essa Função do Aplicativo Microsoft Excel VBA, insere números por extenso até 9.999
Function Escr(n)
Unid = Array("", "Um", "Dois", "Três", "Quatro", "Cinco", _
"Seis", "Sete", "Oito", "Nove", "Dez", "Onze", "Doze", _
"Treze", "Quatorze", "Quinze", "Dezesseis", "Dezessete", _
"Dezoito", "Dezenove", "Vinte")
Dezen = Array("", "Dez", "Vinte", "Trinta", "Quarenta", _
"Cinquenta", "Sessenta", "Setenta", "Oitenta", "Noventa")
Centen = Array("", "Cento", "Duzentos", "Trezentos", _
"Quatrocentos", "Quinhentos", "Seiscentos", _
"Setecentos", "Oitocentos", "Novecentos", "Mil")
Num = n
Escr = ""
If n = 0 Then
Escr = "Zero"
End If
If (n \ 1000) > 0 And n \ 1000 < 10 Then
Escr = Unid(n \ 1000) & " Mil "
End If
n = n - (n \ 1000) * 1000
If n > 100 Then
Escr = Escr & Centen(n \ 100)
End If
If n = 100 Then
Escr = Escr & " Cem"
GoTo Prossiga
End If
n = n - (n \ 100) * 100
If n >= 20 And n < 100 Then
Escr = Escr & " " & Dezen(n \ 10)
End If
If n > 0 And n < 20 Then
Escr = Escr & " " & Unid(n)
GoTo Prossiga
End If
n = n - (n \ 10) * 10
If n > 0 Then
Escr = Escr & " " & Unid(n)
End If
Prossiga:
If Num Mod 10 <> 0 Then
If InStr(1, Escr, "Vinte", 1) = 0 Then
If InStr(1, Escr, "Trinta", 1) = 0 Then
If InStr(1, Escr, "enta", 1) > 0 Then
Escr = Application.Substitute(Escr, "enta", "enta e ")
End If
End If
End If
End If
If Num Mod 10 <> 0 Then
If InStr(1, Escr, "Vinte", 1) > 0 Then
If InStr(1, Escr, "Trinta", 1) = 0 Then
If InStr(1, Escr, "enta", 1) = 0 Then
Escr = Application.Substitute(Escr, "Vinte", "Vinte e ")
End If
End If
End If
End If
If Num Mod 10 <> 0 Then
If InStr(1, Escr, "Vinte", 1) = 0 Then
If InStr(1, Escr, "Trinta", 1) > 0 Then
If InStr(1, Escr, "enta", 1) = 0 Then
Escr = Application.Substitute(Escr, "Trinta", "Trinta e ")
End If
End If
End If
End If
If Num Mod 100 <> 0 Then
If InStr(1, Escr, "ento", 1) > 0 Then
Escr = Application.Substitute(Escr, "Cento", "Cento e ")
End If
End If
If Num Mod 100 <> 0 Then
If InStr(1, Escr, "entos", 1) > 0 Then
Escr = Application.Substitute(Escr, "entos", "entos e ")
End If
End If
If Num Mod 1000 <> 0 Then
If (Num - (Num \ 1000) * 1000) <= 100 Then
If InStr(1, Escr, "Mil", 1) > 0 Then
Escr = Application.Substitute(Escr, "Mil", "Mil e ")
End If
End If
End If
End Function
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel
Compre com segurança, garantia e ótimos preços nas lojas SubMarino
Adicionado em: | 10/11/2012 |
Modificado em: | 10/11/2012 |
Tamanho: | Vazio |
Downloads: | 1074 |
Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções
Esse macro do aplicativo Microsoft Excel VBA, usando o objeto Dictionary, gera números aleatórios,
com o objetivo didatico há um incremento no macro para inserir cores aleatórias no interior das células na folha de planilhas
como também gerar cores da fonte da célula aleatórios.
Espero que gostem do exemplo de planilha que poderá baixá-la no final da página.
Fique com Deus, Expedito Marcondes
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.
: <<< Registre-se em nosso Site >>> acesse area para registrados.
Adicionado em: | 18/05/2011 |
Modificado em: | 18/05/2011 |
Tamanho: | Vazio |
Downloads: | 972 |
Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA.
Essas macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), verifica se há um valor númerico na célula(B4), havendo um valor númerico, insere a palavra(PAGO), desloca duas células à direita(Propriedade Offset) e insere a palavra(Título Liquidado).
Observe que usei a condição IF, para facilitar o teste do usuário, quando voce clicar novamente com uma string(NÃO NUMÉRICO), a condição insere uma mensagem pedindo para que voce insira um valor númerico para realização do teste. Nesta movimentação oculta e ou mostra um shapes(autoforma) ligado a um macro. Espero que exemplo seja útil. Fique com Deus, Expedito Marcondes.
Observe a importância do aprendizado sobre as WorsheetFunctions, as funções de planilhas, não deixe de ver a matéria sobre,
300 Exemplo de Planilhas com as WorksheetFunctions (VBA) - Saberexcel
Excel planilha wkf worksheetfunction funções de planilhas retornam valores vba
Sub verifica_valor_numerico()
Dim iValor As Boolean
vCelula = [B4]
iValor = Application.WorksheetFunction.IsNumber(vCelula)
If iValor = True Then
[B4] = "PAGO"
[B4].Offset(0, 2).Value = "Titulo Liquidado" 'deslocando duas células a direita
Else
[B4].Offset(0, 2).Value = "Insira um valor(B4) para o teste" 'deslocando duas células a direita
ActiveSheet.Shapes("sby").Visible = True
End If
End Sub
Macro auxiliar para o teste do usuário, em todos os exemplos existentes, tentei facilitar no máximo o teste, com macros auxliares.
Sub insere_valor_numerico()
[B4].Value = "1456"
[B4].Offset(0, 2).Value = ""
MsgBox ("Valor númerico inserido, faça o teste"), vbInformation, "Saberexcel - site das macros"
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Publicidade
Compre com segurança, garantia e ótimos preços
Adquira já o Acesso Imediato
à Area de Membros
Aprenda Excel VBA com Simplicidade de
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.
'-------------------------------------'
Entrega Imediata:
+ 500 Video Aulas MS Excel VBA
+ 35.000 Planilhas Excel e VBA
+ Coleção 25.000 Macros MS Excel VBA
+ 141 Planilhas Instruções Loops
+ 341 Planilhas WorksheetFunctions(VBA)
+ 04 Módulos Como Fazer Excel VBA
+ Curso Completo MS Excel VBA
+ Planilhas Inteligentes
<script type="text/javascript"><!--
google_ad_client = "ca-pub-2317234650173689";
/* retangulo 336 x 280 */
google_ad_slot = "0315083363";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,
Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA