Ho questa sub riempie le celle A1 e B1 di 2 numeri. Sceglie questi 2 numeri nell'ambito di 90 num (da 1 a 90) in modo casuale ed ESCe DALLA MACROquando LA CELLA RIGA 1 COLONNA 19(ovvero S1) E' = ALLA CELLA RIGA 1 COLONNA 17 (Q1)
Prima domanda:Avendo le celle A1 e B1 occupate e volendo far proporre i due numeri ad esempio in C3 e D3 fermo restante le celle S1 e Q1 come modificare la
sottonotata macro?
Seconda domanda:La macro cosi come congegnata come già detto sforna in modo casuale due numeri uno diverso dall'altro in modo veloce ma essendo casuale l'ambo
che propone potrebbe metterci un bel po di tempo prima di propormil'ambo che ne permetterebbe l'uscita (If Cells(1, 19) = Cells(1, 17) Then Exit Do )
Allora avevo pensato di far proporre alla macro l'ambo nell'ambito ristretto di numeri da 10 a max 20 num proposti da me in un intervallo ad es:BK1:BK20 non riempendo
necessariamente tutta la matrice, ultima cosa in detto intervallo si può inserire lo 0(zero)?
Public Sub Proponix2()
Application.ScreenUpdating = False
Dim numeri(2) 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 2 ' 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 2 'riempie le celle
Cells(1, A) = numeri(A)
Next A
If Cells(1, 19) = Cells(1, 17) Then Exit Do 'SE LA CELLA RIGA 1 COLONNA 19 E' = ALLA CELLA RIGA 1 COLONNA 17 ESCI DALLA MACRO
Loop
Application.ScreenUpdating = True
End Sub
Registrazione
