Excel VBA - Numeros

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

    vba numeros gera números aleatorios decimais e inteiros vba numeros gera números aleatorios decimais e inteiros

    popular!
    Adicionado em: 14/02/2011
    Modificado em: 14/02/2011
    Tamanho: Vazio
    Downloads: 965

    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


    vba numeros retorna numeros ou texto de dados misto vba numeros retorna numeros ou texto de dados misto

    popular!
    Adicionado em: 25/11/2010
    Modificado em: 25/11/2010
    Tamanho: Vazio
    Downloads: 465

    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


     

    vba numeros deleta pares ou impares em determinada range vba numeros deleta pares ou impares em determinada range

    popular!
    Adicionado em: 25/11/2010
    Modificado em: 25/11/2010
    Tamanho: Vazio
    Downloads: 938

    Saberexcel - o site das macros
    Essas macros do Aplicativo Microsoft Excel VBA, deletam números pares ou impares, incluí na planilha uma macro para copiar os números de 1 a 100 para facilitar o seu teste. Espero que o exemplo possa lhe ser útil. Fiique com Deus, E_Marcondes.

    Deleta números pares
    Sub Deletar_numeros_pares()
    For i = 1 To [A1].CurrentRegion.Rows.Count
    For j = 1 To Cells(i, 1).CurrentRegion.Columns.Count
    If Cells(i, j).Value Mod 2 = 0 Then
    Cells(i, j).Delete xlToLeft
    End If
    Next
    Next
    End Sub

    'Deleta números ímpares
    'Observe que aqui usamos a mesma macro, porém, mudamos o nome e a atribuição
    'do Operador Mod 1 (impares) Operador Mod 2 (pares)
    Sub Deletar_numeros_impares()
    For i = 1 To [A1].CurrentRegion.Rows.Count
    For j = 1 To Cells(i, 1).CurrentRegion.Columns.Count
    If Cells(i, j).Value Mod 1 = 0 Then
    Cells(i, j).Delete xlToLeft
    End If
    Next
    Next
    End Sub

    Esta é uma macro auxiliar que usei para copiar os números da Plan2 para a Plan2
    Sub copiar_teste()
    Sheets("Plan2").Range("A1:J10").Copy
    Sheets("Plan1").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("N1").Select
    End Sub


    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel




    Baixe o exemplo de planilha contendo as macros acima
    vba numeros por extenso ate 9999 (20.9 kB 2010-11-25 19:28:18)


    Publicidade:
    Compre com segurança, qualidade, garantia e preços baixos - Lojas SubMarino.

    Informática - Submarino.com.br

    vba numeros macro insere ordem inversa em numeros coluna vba numeros macro insere ordem inversa em numeros coluna

    popular!
    Adicionado em: 25/11/2010
    Modificado em: 25/11/2010
    Tamanho: Vazio
    Downloads: 826

    Saberexcel - o site de quem precisa aprender macros
    Essas macros do Aplicativo Microsoft Excel VBA, inverte a ordem de números de uma determinada coluna, observe que não é ordem descendente, é uma inversão de ordem, como pode ver na imagem abaixo, a posição dos números na ordem inversa. baixe a planilha exemplo no final da página.


    '................'
    Option Explicit
    Option Base 1

    Sub Inverter_Valores_Celulas()
    Dim WkbBook As Workbook
    Dim wsPlan As Worksheet
    Dim rnDados As Range
    Dim VlrDados As Variant, VlrTemp As Variant
    Dim i As Long
    On Error Resume Next
    Set WkbBook = ActiveWorkbook
    Set wsPlan = WkbBook.Worksheets("Inverter valores celula")

    With wsPlan
    Set rnDados = .Range(.Range("A2"), .Range("A65536").End(xlUp))
    End With

    VlrDados = rnDados.Value

    For i = 1 To (UBound(VlrDados, 1) / 2)
    VlrTemp = VlrDados(i, 1)
    'Aqui para posições 1 a 9 na matriz» do último 9 valores a
    'partir da matriz original.
    VlrDados(i, 1) = VlrDados(UBound(VlrDados) - i + 1, 1) * 1
    'Aqui para posições 10 a 18 na matriz» do 9 valores a
    'partir da matriz original.
    VlrDados(UBound(VlrDados) - i + 1, 1) = VlrTemp * 1

    Next i

    With wsPlan
    .Range("B2:B" & UBound(VlrDados, 1) + 1).Value = VlrDados
    End With

    End Sub

    Sub limpar()
    Range("B2:B19").ClearContents
    End Sub



    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - Saberexcel




    Publicidade
    Compre com garantia, segurança e ótimos preços nas lojas submarino. Eletrônicos - Submarino.com.br

    vba numeros por extenso ate 9999 vba numeros por extenso ate 9999

    popular!
    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 Informática - Submarino.com.br

    Página 2 de 3

    PROMOÇÃO DIDÁTICOS SABEREXCEL



    Adquira já o Acesso Imediato
    à Area de Membros

    Compra Grantida --- Entrega Imediata

    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


    Pesquisa Google SaberExcel

    Publicidade Google

    <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>

    Publicidade

    RSFirewallProtected


    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

    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