ReplacementFormat

[ABRAMO48Partecipante ABRAMO48 Karma: 1 pt]

SS.UsedRange.Rows("1").ReplaceFormat.Font.Size = 14
SS.UsedRange.Rows("1").Font.Size = 14

Buongiorno, qual'è la differenza fra le due istruzioni riportate?

Grazie

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao

Diciamo che un certo contesto dovresti darcelo.

Comunque penso che a questo indirizzo puoi trovare la risposta

https://stackoverflow.com/questions/59581598/loop-through-cells-and-change-font

 

Ciao,

Mario

[ABRAMO48Partecipante ABRAMO48 Karma: 1 pt]

la sub è questa:

Sub C_STA_FONT_C()
    Set SS = Workbooks("STAMPA.xls").Worksheets("Foglio1")
        
    LRIG = SS.Cells(Rows.Count, 1).End(xlUp).Row
    LCOL = SS.Cells(1, Columns.Count).End(xlToLeft).Column
    
    SS.Range("A1", SS.Cells(9, LCOL)).Font.Size = 14
    SS.Range("A10", SS.Cells(LRIG, LCOL)).Font.Size = 24
    
    SS.Range("A2", SS.Cells(2, LCOL)).Font.Size = 20
    SS.Range("D1", SS.Cells(LRIG, "D")).Font.Size = 18

    SS.Range("P11", SS.Cells(LRIG, "P")).Font.Bold = False

    SS.UsedRange.Columns("S:U").EntireColumn.AutoFit
    SS.UsedRange.Columns("Y").EntireColumn.AutoFit
    SS.UsedRange.Columns("CV").EntireColumn.AutoFit

    SS.UsedRange.Columns("A").ColumnWidth = 14
    SS.UsedRange.Columns("D").ColumnWidth = 60
    SS.UsedRange.Columns("G").ColumnWidth = 8
    SS.UsedRange.Columns("P").ColumnWidth = 16
    SS.UsedRange.Columns("Q").ColumnWidth = 14
    SS.UsedRange.Columns("R").ColumnWidth = 14
    
    SS.UsedRange.VerticalAlignment = xlCenter

    SS.Activate
End Sub

la domanda è: Font.Size = 14 non è la stessa cosa di ReplaceFormat.Font.Size = 14

"Rimpiazzare" non è lo stesso che "Forzare"?

 

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao

Mi sembra di aver capito, dal sito che t'ho indicato, che non funziona così.

Ad un certo punto DOPO AVER CANCELLATO OGNI FORMATTAZIONE dice

"The loop is necessary because we cant set something like: Application.FindFormat.Font.Size < 10"

quindi assegna la nuova formattazione in questo modo

'Set ReplaceFormat just once
Application.ReplaceFormat.Clear
Application.ReplaceFormat.Font.Size = 10

 

E questo andrebbe ripetuto per ogni tua formattazione. Nell'esempio che ti ho indicato viene applicato un loop per cercare la cella, cancellare la formattazione e applicare quella nuova.

 

Non saprei dirti perchè è necessario fare così. Bisognerebbe chiederlo a Bill   

 

Ciao,

Mario

[Autore]

Articoli