Newsgroup: it.comp.os.win.software
Titolo: cosa mi dite di questa macro

La macro che riporto sotto opera bene se seleziono un foglio singolo,
ma se seleziono tutti i fogli non lavora su tutti ma solo sul primo
selezionato (quello che appare in neretto). perche'?
vorei che li facesse tutti insieme.
se seleziono tutti i fogli dovrebbe operare su tutti, no?
grazie per l'aiuto.
F.
__________________
Sub dimcelle()
'
' dimcelle Macro
' Ridimensiona righe e colonne e imposta il colore di carattere nero.
'
' Scelta rapida da tastiera: CTRL+d
'
    Rows("1:1").RowHeight = 18.75
    Rows("4:4").RowHeight = 12.75
    Rows("5:5").RowHeight = 26.25
    Rows("6:6").RowHeight = 27.75
    Rows("8:8").RowHeight = 21.75
    Columns("G:G").ColumnWidth = 22.29
    Columns("H:H").ColumnWidth = 14.57
    Columns("I:I").ColumnWidth = 14
    Columns("J:J").ColumnWidth = 14.29
    Columns("K:K").ColumnWidth = 14.29
    Columns("L:L").ColumnWidth = 14
    Rows("11:11").RowHeight = 42
    ActiveWindow.SmallScroll Down:=63
    Rows("75:75").RowHeight = 11.25
    Rows("76:76").RowHeight = 24.75
    Rows("77:77").RowHeight = 11.25
    Rows("78:78").RowHeight = 20.25
    Rows("90:90").RowHeight = 20.25
    Rows("90:90").RowHeight = 15.75
    Rows("90:90").RowHeight = 18.75
    Columns("G:G").ColumnWidth = 22.86
    Columns("B:B").ColumnWidth = 13.71
    Columns("E:E").ColumnWidth = 14.29
    Columns("F:F").ColumnWidth = 13.71
    Columns("G:G").ColumnWidth = 22
    Columns("H:H").ColumnWidth = 14.86
    Range("A1:L90").Select
    Range("L90").Activate
    Selection.Font.ColorIndex = 1
    ActiveWindow.LargeScroll Down:=-1
    Range("L53").Select
    ActiveWindow.LargeScroll Down:=-1
    Range("A1").Select
End Sub

se seleziono tutti i fogli dovrebbe operare su tutti, no?
Cosi' lo fa per tutti i fogli (ora non so come farlo per i soli fogli
selezionati)
Sub dimcelle()
'
' dimcelle Macro
' Ridimensiona righe e colonne e imposta il colore di carattere nero.
'
' Scelta rapida da tastiera: CTRL+d
'
   For i = 1 To Worksheets.Count
    Worksheets(i).Activate

    Next
End Sub
-- 
Lapalissiano
Icq 57269703

funziona perfettamente! i fogli vengono passati sul monitor a velocità
strepitosa e
vengono fatte tutte le modifiche in un lampo!
dimmi un'altra cosa (anche se non ho capito perche' alcune macro lavorano su
tutti i
fogli anche senza le istruzioni che hai aggiunto).
le istruzioni da mettere in tutte le macro per imporre che lavorino su tutti
i fogli sono:
All'inizio della macro:
For i = 1 To Worksheets.Count
Worksheets(i).Activate
Alla fine:
Next
Oppure va bene solo next?
Poi:
Rows("1:1").RowHeight = 18.75  setta la altezza di una riga
Columns("G:G").ColumnWidth = 22.29  setta la larghezza di una colonna
18,75 e 22,29 sono le dimensioni, esatto? che potrei eventualmente cambiare
con l'editor di visual basic di excel per rendere uniformi alcune misure?
1:1  e G:G  sono riga 1 e colonna G: perche' 1:1 e non solo 1: indica un
intervallo,
forse, e quindi potrei mettere 1:2 ? cioe' righe 1 e 2?
nella macro vedo:
Columns("G:G").ColumnWidth = 22.86
Columns("G:G").ColumnWidth = 22
cioe' ripeto inutilmente una istruzione? potrei togliere una delle due e
aggiustare la dimensione?
Grazie mille, mi hai aiutato molto.
E grazie anche agli altri amici del NG!!!
Ciao,
F.
Lapalissiano ha scritto nel messaggio ...
