-
Posts
1,805 -
Joined
-
Last visited
-
Days Won
25
Content Type
Profiles
Forums
Downloads
Status Replies posted by sorte com estudo ss
-
boa noite amigo, desculpe o incomodo . vc montou um codico vba do pedroosavas e colocou aqui no forum, tambem fez video no you tube sobre isso, por sinal um codico que me quebra o galho ate hoje, alias aprendi muita coisa nos seus videos . o incomdo é o sguinte, vc poderia montar uma planilha basica somente do exemplo 3 desse video para mim, a macro esta em baixo do video . tentei montar, mas nao consigo, nao entendo muito de vba. seria de grande ajuda para mim , ficaria muito agradecido e te devendo essa.....ass..nenao
Sub Aleatório3() Dim N, N01, N02, N03, N04, N05 As Integer N = 10 ActiveSheet.Range("Q09").Value = Int((N * Rnd) + 1) ActiveSheet.Range("Q10").Value = Int((N * Rnd) + 1) Subir1: N01 = Range("Q09").Value N02 = Range("Q10").Value If N02 = N01 Then ActiveSheet.Range("Q10").Value = Int((N * Rnd) + 1) If N01 = N02 Then GoTo Subir1 End If End If ActiveSheet.Range("Q11").Value = Int((N * Rnd) + 1) Subir2: N03 = Range("Q11").Value If (N03 = N01 Or N03 = N02) Then ActiveSheet.Range("Q11").Value = Int((N * Rnd) + 1) If (N03 = N01 Or N03 = N02) Then GoTo Subir2 End If End If ActiveSheet.Range("Q12").Value = Int((N * Rnd) + 1) Subir3: N04 = Range("Q12").Value If (N04 = N01 Or N04 = N02 Or N04 = N03) Then ActiveSheet.Range("Q12").Value = Int((N * Rnd) + 1) If (N04 = N01 Or N04 = N02 Or N04 = N03) Then GoTo Subir3 End If End If ActiveSheet.Range("Q13").Value = Int((N * Rnd) + 1) Subir4: N05 = Range("Q13").Value If (N05 = N01 Or N05 = N02 Or N05 = N03 Or N05 = N04) Then ActiveSheet.Range("Q13").Value = Int((N * Rnd) + 1) If (N05 = N01 Or N05 = N02 Or N05 = N03 Or N05 = N04) Then GoTo Subir4 End If End If End S
-
Aleatório
ai me pergunto aqui
de que adianta estar um um fórum
onde pessoas estudam matematicamente loterias
para melhorar suas apostas diminuindo assim suas escolhas aleatórias
não seria melhor vc gerar combinações esquematizadas e não aleatórias
pois na minha humilde opinião jogar aleatoriamente e jogar apenas na sorte é a mesma coisa!
-
-
Por favor mim arrume uma copia de um cologa
deusemanjdps@Gmail.com
-
https://drive.google.com/drive/folders/0B0p19yNOIF37SkxVbTROZmZ2SXc
ele postou aqui no Google drive segui o link
-