'Colora di verde le righe pari e toglie il colore a quelle dispari nell prime 15 righe
Application.ScreenUpdating = False 'impediamo il saltellamento a schermo
For NumRiga = 1 to 15
Worksheets("Foglio1").Cells(NumRiga, 1).EntireRow.Select
If (NumRiga Mod 2) = 0 then
Selection.Interior.ColorIndex = 35
Else
Selection.Interior.ColorIndex = xlColorIndexNone
End If
Next
'Copia le prime 10 colonne delle prime 15 righe dal Foglio1 al Foglio2
Application.ScreenUpdating = False 'impediamo il saltellamento a schermo
For NumRiga = 1 to 15
For NumCol = 1 to 10
Worksheets("Foglio2").Cells(NumRiga, NumCol).Value = Worksheets("Foglio1").Cells(NumRiga, NumCol).Value
Next
Next
'Autoadattamento delle colonne
Worksheets("Foglio2").Columns("A:J").AutoFit
lunedì 12 maggio 2008
Excel VBA
Alcuni esempi di codice in VBA Excel.
Iscriviti a:
Commenti sul post (Atom)
Nessun commento:
Posta un commento