Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Gerador de estatistica

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
supremo



Mensagens : 4
Data de inscrição : 27/11/2012

MensagemAssunto: Gerador de estatistica   Qua Nov 28, 2012 5:18 am

ola amigos sou leigo em VBA estou tentando a alguns dias criar um gerador de estatistica seria mais ou menos assim

16-24-35-37-49-46-59-68-78-98
61-42-53-73-94-64-95-86-87-89
03-07-13-18-29-34-47-56-59-67
30-70-31-81-92-43-74-65-95-76

penso em 10 linha com 10 colunas, mais conforme acima quando um numero é gerado o seu inverso não pode vir junto um tipo de reijeição.

abraços.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Gerador de estatistica   Qua Nov 28, 2012 7:16 pm

Boa tarde!!

Sua postagem está confusa explique melhor... confused
Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
supremo



Mensagens : 4
Data de inscrição : 27/11/2012

MensagemAssunto: Re: Gerador de estatistica   Qui Nov 29, 2012 1:43 am

alexandrevba escreveu:
Boa tarde!!

Sua postagem está confusa explique melhor... confused
Att

ola amigo alexandrevba boa noite, bom vamos la é o seguinte suponhamos que desejo fazer um gerador de jogos de loterias tipo mega sena tem de 01 a 60 dezenas certo, gostaria de fazer da seguinte forma :

gera a 12 o 21 não pode vir quando o 12 for gerado, vise versa,
gera a 13 o 31 não pode vir quando o 13 for gerado, vise versa,
gera a 23 o 32 não pode vir quando o 23 for gerado, vise versa,
gera a 34 o 43 não pode vir quando o 34 for gerado, vise versa,
gera a 45 o 54 não pode vir quando o 45 for gerado, vise versa,

é isso ai sera que da certo vc pode usar a lotomania pra tu ter uma ideia, nela tem 45 dezenas inversa e 45 não inversa.


abraços.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Gerador de estatistica   Sex Dez 07, 2012 12:57 am

Boa noite!!

Tente

Código:
Sub AleVBATEST()

Dim IsUnique As Boolean
Dim iNum As Integer
Dim r As Long
Dim c As Long

For r = 1 To 10

    ReDim Arr(1)
   

    iNum = WorksheetFunction.RandBetween(1, 99)
    Range("A1").Cells(r, 1).Value = iNum
        Arr(0) = iNum
        Arr(1) = fRNum(iNum)
       
 
    For i = 2 To 10
        IsUnique = False
        Do While IsUnique = False
            iNum = WorksheetFunction.RandBetween(1, 99)
                For x = 0 To UBound(Arr)
                    If iNum = Arr(x) Then
                        IsUnique = False
                        Exit For
                        Else
                        IsUnique = True
                    End If
                Next x
        Loop
               
    ReDim Preserve Arr(UBound(Arr) + 2)
    Arr(UBound(Arr) - 1) = iNum
    Arr(UBound(Arr)) = fRNum(iNum)
    Range("A1").Cells(r, i).Value = iNum

    Next i

Next r

End Sub

Código:
Function fRNum(iNum As Integer) As Integer

If iNum < 10 Then
    fRNum = iNum * 10
    Else
    fRNum = (Right(iNum, 1) & Left(iNum, 1))
End If

End Function
Voltar ao Topo Ir em baixo
Ver perfil do usuário
supremo



Mensagens : 4
Data de inscrição : 27/11/2012

MensagemAssunto: vou tentar, e muito obrigado pela ajuda vc é um grande amigo.   Dom Dez 09, 2012 10:38 pm

bom o passo a passo no excel eu abro o vba digito os codigos, ou tenho que gravar uma macro primeiro, ainda sou aprendiz, obrigado amigo abraços.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Gerador de estatistica   Dom Dez 09, 2012 11:22 pm

Boa tarde!!

Fça o DownLoad em:
http://www.sendspace.com/file/xhb71o

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
supremo



Mensagens : 4
Data de inscrição : 27/11/2012

MensagemAssunto: Re: Gerador de estatistica   Ter Dez 11, 2012 4:00 am

alexandrevba escreveu:
Boa tarde!!

Fça o DownLoad em:
http://www.sendspace.com/file/xhb71o

Att

baixei muito obriagado amigo alexandrevba, abraços
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Gerador de estatistica   Ter Dez 11, 2012 2:49 pm

Bom ida!!

até a próxima... santa

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Gerador de estatistica   Hoje à(s) 8:59 pm

Voltar ao Topo Ir em baixo
 
Gerador de estatistica
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» script gerador de campo de visão
» Erro em gerador randômico
» Estatistica igual a essa
» Estatistica do fórum phpbb2!
» Gerador de Skeletons 3ª Versão

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: