ReplacementFormat – Forum Excel VBA

Stai vedendo 4 articoli - dal 1 a 4 (di 4 totali)

Autore

Articoli
30/03/2020 alle 10:48 #24537 Score: 0 | Risposta
ABRAMO48
Partecipante
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
30/03/2020 alle 11:29 #24546 Score: 0 | Risposta
Marius44
Moderatore
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
30/03/2020 alle 11:52 #24549 Score: 0 | Risposta
ABRAMO48
Partecipante
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"?
30/03/2020 alle 12:15 #24557 Score: 0 | Risposta
Marius44
Moderatore
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

Stai vedendo 4 articoli - dal 1 a 4 (di 4 totali)