-
Posts
436 -
Joined
-
Last visited
nenao's Achievements
-
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!
-
-