lunedì 12 maggio 2008

Excel VBA

Alcuni esempi di codice in VBA Excel.



'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

Nessun commento: