Condividi:        

excel creare un ciclo for

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

excel creare un ciclo for

Postdi macio66 » 01/11/16 19:11

buonasera a tutti
Volevo sapere se è possibile trasformare questa sequenza in un ciclo for. nella colonna "a" le celle sono unite a gruppi di 4 (a2:a5 , a6:a9 ecc.)
Grazie

Sheets("Base").Activate
'
Range("b2:b5").Font.Color = Range("a2").Font.Color
Range("b2:b5").Value = Range("a2").Value
Range("b6:b9").Font.Color = Range("a6").Font.Color
Range("b6:b9").Value = Range("a6").Value
Range("b10:b13").Font.Color = Range("a10").Font.Color
Range("b10:b13").Value = Range("a10").Value
Range("b14:b17").Font.Color = Range("a14").Font.Color
Range("b14:b17").Value = Range("a14").Value
Range("b18:b21").Font.Color = Range("a18").Font.Color
Range("b18:b21").Value = Range("a18").Value
Range("b22:b25").Font.Color = Range("a22").Font.Color
Range("b22:b25").Value = Range("a22").Value
Range("b26:b29").Font.Color = Range("a26").Font.Color
Range("b26:b29").Value = Range("a26").Value
Range("b30:b33").Font.Color = Range("a30").Font.Color
Range("b30:b33").Value = Range("a30").Value
Range("b34:b37").Font.Color = Range("a34").Font.Color
Range("b34:b37").Value = Range("a34").Value
Range("b38:b41").Font.Color = Range("a38").Font.Color
Range("b38:b41").Value = Range("a38").Value
Range("b42:b45").Font.Color = Range("a42").Font.Color
Range("b42:b45").Value = Range("a42").Value
Range("b46:b49").Font.Color = Range("a46").Font.Color
Range("b46:b49").Value = Range("a46").Value
Range("b50:b53").Font.Color = Range("a50").Font.Color
Range("b50:b53").Value = Range("a50").Value
macio66
Utente Senior
 
Post: 147
Iscritto il: 13/06/13 14:59

Sponsor
 

Re: excel creare un ciclo for

Postdi patel » 01/11/16 21:31

Codice: Seleziona tutto
for r = 2 to 50 step 4
  Range("b" & r & ":b" & r+3).Font.Color = Range("a" & r).Font.Color
  Range("b" & r & ":b" & r+3).value = Range("a" & r).value
next
patel
Utente Senior
 
Post: 309
Iscritto il: 24/04/12 16:03

Re: excel creare un ciclo for

Postdi alfrimpa » 01/11/16 21:32

Ciao Macio

Prova così

Codice: Seleziona tutto
Dim i as Integer
For i = 2 to 50 Step 4
       Range("b" & i ":" & "b" & i + 3).Font.Color = Range("A" & i).Font.Color
       Range("b" & i ":" & "b" & i + 3).Value = Range("A" & i).Value
Next i


Tieni però presente che la presenza di celle unite dà molto fastidio al VBA e quando si usano macro se si può evitarle è sicuramente meglio.

Fai sapere.

P.S. Giuro che non ho copiato Patel :D (ciao Andrea)
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: excel creare un ciclo for

Postdi patel » 02/11/16 12:07

ti credo alfredo, era talmente semplice che non si poteva fare diversamente
patel
Utente Senior
 
Post: 309
Iscritto il: 24/04/12 16:03

Re: excel creare un ciclo for

Postdi macio66 » 02/11/16 16:03

Ciao a tutti e due e grazie per il vostro aiuto.
Sicuramente proverò la vostra soluzione, anzi la userò.
Ma giusto per curiosità, e per capire se quello che ho fatto è corretto, allego come l'ho risolto io.

Dim r As Long
'
Sheets("Base").Activate
'
For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step 4
'
Cells(r, 2).Value = Cells(r, 1).Value
Cells(r, 2).Font.Color = Cells(r, 1).Font.Color
Cells(r + 1, 2).Value = Cells(r, 1).Value
Cells(r + 1, 2).Font.Color = Cells(r, 1).Font.Color
Cells(r + 2, 2).Value = Cells(r, 1).Value
Cells(r + 2, 2).Font.Color = Cells(r, 1).Font.Color
Cells(r + 3, 2).Value = Cells(r, 1).Value
Cells(r + 3, 2).Font.Color = Cells(r, 1).Font.Color
'
Next

Ancora grazie per il vostro aiuto, e se ho fatto qualche errore, mi dite dove.
buona giornata
macio66
Utente Senior
 
Post: 147
Iscritto il: 13/06/13 14:59

Re: excel creare un ciclo for

Postdi recalcatiiti » 02/11/16 16:30

Ciao a tutti,

Alfredo, credo sia una svista, ma immagino intendessi:

Dim i As Integer
For i = 2 To 50 Step 4
Range("b" & i & ":" & "b" & i + 3).Font.Color = Range("A" & i).Font.Color
Range("b" & i & ":" & "b" & i + 3).Value = Range("A" & i).Value
Next i

Buona sera
Excel 2021
recalcatiiti
Utente Junior
 
Post: 95
Iscritto il: 12/10/15 15:03

Re: excel creare un ciclo for

Postdi alfrimpa » 02/11/16 16:38

Si certo mi sono mangiato qualche &
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli


Torna a Applicazioni Office Windows


Topic correlati a "excel creare un ciclo for":


Chi c’è in linea

Visitano il forum: Nessuno e 62 ospiti