Saberexcel - o site das macros

Estas funções do Aplicativo Microsoft Excel VBA, tem por finalidade retornar textos e ou numeros contidos em uma determinada célula,
Digamos que na celula(A1) você tem o seguinte dado: Saber8754 Excel2008Macros
Função usada : '=Retorna_Numeros(A1)
Retorna .......: '87542008

Função usada .....: =Retorna_Texto(A1)
Retorno .............: ExcelVBAMacros

----------------'
'Retorna somente texto ignorando números
'=Retorna_Texto(A1)

Function Retorna_Texto(Cell As Range) As String
Dim LenStr As Long
For LenStr = 1 To Len(Cell)
Select Case Asc(Mid(Cell, LenStr, 1))
Case 65 To 90
Retorna_Texto = Retorna_Texto & Mid(Cell, LenStr, 1)
Case 97 To 122
Retorna_Texto = Retorna_Texto & Mid(Cell, LenStr, 1)
End Select
Next
End Function


Esta função Retorna_numeros, retorna somente números, ignorando os textos:
'=Retorna_Numeros(A1)

Function Retorna_Numeros(Cell As Range) As Long
Dim Ret_Texto As Long
For Ret_Texto = 1 To Len(Cell)
Select Case Asc(Mid(Cell, Ret_Texto, 1))
Case 48 To 57
Retorna_Numeros = Retorna_Numeros & Mid(Cell, Ret_Texto, 1)
End Select
Next
End Function

'macro usada para selecionar o módulo VBE(Visual Basic Editor)
Sub ir_módulo()
SendKeys ("%{F11}")
End Sub

'Agrupando as folhas de planilhas
Sub Agrupar_Colunas()
Columns("F:L").Select
Selection.Columns.Group
Range("D1").Select
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

Saberexcel - o Site das Macros

Essa função e macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), gera números aleatórios, fracionados e inteiros.


'GERA NUMEROS ALEATORIOS FRACIONADOS e inteiros

Function GERA_ENTRE_INTEIRO(Limite_inferior, Limite_superior)
GERA_ENTRE_INTEIRO = Int(Limite_inferior + Rnd() * (Limite_superior - Limite_inferior))
End Function

Function GERA_ENTRE(Limite_inferior, Limite_superior)
GERA_ENTRE = Limite_inferior + Rnd() * (Limite_superior - Limite_inferior)
End Function
'ex: '=GERA_ENTRE(0,60)

Sub gera_numeros_aleatorios_inteiro()
[G1:G100].FormulaR1C1 = "=GERA_ENTRE_INTEIRO(100,459)"
End Sub

Sub gera_numeros_aleatorios()
[G1:G100].FormulaR1C1 = "=GERA_ENTRE(100,459)"
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel

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

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

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.