Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

modifica macro

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

modifica macro

Postdi papiriof » 20/05/22 08:59

volevo mandare un file esplicativo ma ormai non ci riersco più :cry: :cry:
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
Win 7+Office 2010
papiriof
Utente Senior
 
Post: 327
Iscritto il: 16/02/10 13:23

Sponsor
 

Re: modifica macro

Postdi Anthony47 » 20/05/22 14:32

A spanne direi di provare aggiungendo le due istruzioni marcate *** e modificando quella marcata MMM
Codice: Seleziona tutto
            ReDim aB(90) As Boolean
            DoEvents                                        '***
            For a = 1 To 4 ' riempie la matrice con numeri casuali
                If a < 3 Then nMax = 55 Else nMax = 90      '***
                n = Int(Rnd * nMax + 1)                     'MMM
Avatar utente
Anthony47
Moderatore
 
Post: 18203
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: modifica macro

Postdi papiriof » 20/05/22 17:12

Grazie Anthony , tutto OK!!
Win 7+Office 2010
papiriof
Utente Senior
 
Post: 327
Iscritto il: 16/02/10 13:23


Torna a Applicazioni Office Windows


Topic correlati a "modifica macro":

Richiesta aiuto macro VBA
Autore: mara26
Forum: Programmazione
Risposte: 1

Chi c’è in linea

Visitano il forum: Nessuno e 34 ospiti