Mi dispiace perchè volevo condividere ma con tutte quelle istruzioni in inglese registrazioni e rimandi vari sinceramente ci rinuncio !!
Ho questa macro abbastanza legibile almeno per quanti sono appena 5% superiori di comprendonio a me!!
Premessa: i 4 numeri che la macro cambia velocemente sono in A1,B1,C1,D1 ed hanno TUTTI e 4 dei nomi rispettivamente "xa", xb", "ya", "yb" Così come scritta si comporta che in ogni delle 4 celle ci saranno sempre 4 numeri diversi (compresi da 1 a 90)
Invece a me interessa che nelle prime due celle (A1 e B1) sempre diversi assumessero valori da 1 a 55 ; mentre C1 e D1 variassero da 1 a 90. Penso si possa modificare, purtroppo io non ne sono capace
- Codice: Seleziona tutto
Public Sub Proponi4()
'Application.ScreenUpdating = False
Dim numeri(4) As Long
Dim a As Long
Dim b As Long
Dim n As Integer
Randomize ' IMPORTANTE
Do
ReDim aB(90) As Boolean
For a = 1 To 4 ' riempie la matrice con numeri casuali
n = Int(Rnd * 90 + 1)
Do While aB(n) = True
n = Int(Rnd * 90 + 1)
Loop
numeri(a) = n
aB(n) = True
Next a
For a = 1 To 4 'riempie le celle
Cells(1, a) = numeri(a)
Next a
If Cells(1, 11) <= Cells(1, 10) Then Exit Do ' SE LA CELLA RIGA 1 COLONNA 11 E' = ALLA CELLA RIGA 1 COLONNA 10 ESCI DALLA MACRO
Loop
' Application.ScreenUpdating = True
End Sub
