Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Excel Macro x Ciclo

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

Re: Excel Macro x Ciclo

Postdi Flash30005 » 02/07/09 00:06

Statix ha scritto:Ciao Flash3005
...
ma ho un problema per le righe nel foglio Dati,
nella colonna A ho dei record.
...


sostituisci la riga
Codice: Seleziona tutto
Rows("3:3").Insert Shift:=xlDown

con
Codice: Seleziona tutto
Selection.Insert Shift:=xlDown


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Sponsor
 

Re: Excel Macro x Ciclo

Postdi Statix » 02/07/09 00:13

Ok provato tutte le modifiche,i tempi più o meno sono rimasti tra 266 e 280 combinazioni al minuto.
per me è già tanto,ringrazio tutti per l'aiuto e suggerimenti
ciao Anthony,Flash3005 e Richy53 buonanotte,vado e tardi.
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Macro x Ciclo

Postdi ricky53 » 02/07/09 00:16

Ciao,
è già un risultato rilevante.
Ci sono sempre dei limiti fisici oltre il quale non si può proprio andare.
Alla prossima

Ciao da Ricky53
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Excel Macro x Ciclo

Postdi Statix » 29/11/09 22:45

Ciao a tutti,
ho ripreso questo post in quanto vorrei fare una modifica alla macro,
la macro mi fa la permutazione delle 2 celle K1 e L1 per un totale di 8100 combinazioni,
volendo fare una permutazione semplice cioe solo 4005 combinazioni,come si potrebbe fare?
visto che al lotto la combinazione 1 -2 e la stessa cosa che 2-1.
risparmierei la meta del tempo di elaborazione e senza doppioni.
grazie
Codice: Seleziona tutto
Sub Combinazioni()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
NumK = 0
NumL = 0
    Sheets("Dati").Select
For N = 1 To 8100
    NumK = (NumK + 1) Mod 90
    If NumK = 0 Then NumK = 90
    If NumK = 1 Then
    NumL = (NumL + 1) Mod 90
    If NumL = 0 Then NumL = 90
    End If
    Worksheets("Napoli").Range("K1").Value = NumK
    Worksheets("Napoli").Range("L1").Value = NumL
    Worksheets("Napoli").Calculate
    Sheets("Napoli").Range("N3:W3").Copy
    Sheets("Dati").Range("D3").PasteSpecial Paste:=xlPasteValues
    Rows("3:3").Insert Shift:=xlDown
    Next N
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Macro x Ciclo

Postdi Statix » 30/11/09 00:15

Volevo precisare che la macro dovrebbe incominciare da
Codice: Seleziona tutto
K1 = 1 e da L1=2
esempio
 K1- L1
1-2
1-3
1-4
1-5
etc fino a
 1-90
poi
2-3
2-4
2-5
etc
2-90
poi
3-4

e cosi fino a
89-90
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Macro x Ciclo

Postdi Statix » 30/11/09 01:36

Ciao a tutti,
ho risolto con la macro postato da Anthony47 tempo fa e adattata allo scopo.

Codice: Seleziona tutto
Sub Combinazioni()
Dim I As Integer: Dim J As Integer: Dim K As Integer
For I = 1 To 90
For J = 1 + I To 90
If J = I Or K = I Then GoTo skip:           
Sheets("Top Secret").Range("M1").Value = J
  Sheets("Top Secret").Range("L1").Value = I
skip:
Next J
Next I
End Sub
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "Excel Macro x Ciclo":


Chi c’è in linea

Visitano il forum: Marius44, raimea e 12 ospiti