Métodos De Apostar (1)

[Edgard Rocha]

OBS.: a linguagem usada nos exemplos é o VBA para Excel.

MAIS FREQUENTES

O método mais simples, claro, é contar todas as dezenas que já saíram e escolher as mais (ou menos) freqüentes.

' OBS.1: jogo estudado - Quina

' OBS.2: já foi feita a colagem na planilha,

usando Dados/De Texto e ignorando outras colunas que não as Dezenas

 

Type tipada

Dez As Integer

Qtd As Integer

End Type

 

Dim Censo(1 To 80) As tipada

 

Sub Main()

Dim x, n, ult As Integer

Dim rng As String

 

For ult = 1 To 16380

If Trim(Worksheets(1).Cells(ult, 1).Text) = Space(0) Then Exit For

Next ult

rng = "A1:E" & u

 

For Each c In Worksheets(1).Range(rng).Cells

n = CInt(c.Value)

Censo(n).Dez = n

Censo(n).Qtd = Censo(n).Qtd + 1

Next c

 

For x = 1 To 80

Worksheets(1).Cells(x, 8) = Censo(x).Dez

Worksheets(1).Cells(x, 9) = Censo(x).Qtd

Next x

 

MsgBox "O.K."

End Sub

 

[CRodrigues]

Edgard Rocha,

Grato por sua postagem!
Fui programador em visual basic 4 na década de 90, mas há muitos anos não mexi ou trabalhei mais na área.
E vendo seu tópico, acho que acendeu-me uma chama de busca neste sentido novamente.
Particularmente obrigado. E parábens por sua postagem.
Acho que ajudará muito o povo que trabalha com planilhas.

[Kika P]

Edgard, boa tarde.

Antes de mais nada te agradeço pelas postagens sobre os métodos para apostar usando excel. Dicas valiosíssimas!

 

Eu não sou expert em VBA mas entendo alguma coisa. Seria possível você me encaminhar uma planilha de exemplo apenas para que eu entenda melhor como foi aplicado?

 

Obrigada!