| | Post: 68 | Registrato il: 27/04/2005
| Utente Junior | Excel 2010 | | OFFLINE | |
|
  24/06/2017 12:39 | |
Gent.mi,
in un foglio di lavoro ho delle colonne inserite delle voci aventi le dimensioni del carattere 12 precisamente dalla "G alla J".
Le voci iniziano dalla riga 8 e possono aumentare o diminuire.
Gradirei genilmente conoscere il codice in vba per poter variare le dimensioni del carattere portandole per es. a 14 o a 16.
Fiducioso, saluto.
Domenico.
|
|
| | Post: 3.305 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | ONLINE |
|
| 24/06/2017 12:51 | |
Domenico comincia a fare le operazioni manualmente usando il registratore di macro ed avrai il codice.
Alfredo |
| | Post: 68 | Registrato il: 27/04/2005
| Utente Junior | Excel 2010 | | OFFLINE | |
|
| 24/06/2017 13:27 | |
Gent.mo Alfrimpa,
nel frattempo ho usato il seguente codice con risultato negativo trovato in rete.
For Each Cell In Foglio2.Range("G:J" & Cells(Rows.Count, "G").End(xlUp).Row)
Cell.Font.Size = 14
Next.
Nel ringraziarti della gradita disponibilità, saluto.
Domenico.
|
| | Post: 3.900 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
| 24/06/2017 17:09 | |
seguendo il consiglio di Alfredo e togliendo le parti inutili
Sub a()
Columns("G:J").Font.Size = 14
End Sub
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 69 | Registrato il: 27/04/2005
| Utente Junior | Excel 2010 | | OFFLINE | |
|
| 24/06/2017 18:22 | |
Gent.mo Patel,
ringrazio funziona e gradirei un ulteriore consiglio emerso da poco.
Nella visione, ho inserito il seguente codice che funziona:
Worksheets("Foglio2").Columns("G:J").AutoFit
noto che le colonne si adeguano alle voci inserite.
Gradirei conoscere il codice inverso riportare le dimensioni delle colonne all'origine.
Chiedo scusa se approfitto, saluto.
|
| | Post: 503 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
| 24/06/2017 20:04 | |
Una volta rilevata la dimensione originale della colonna (che nel mio è 8,43) puoi utilizzare questo codice:
Worksheets("Foglio1").Columns("G:J").ColumnWidth = 8.43
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 70 | Registrato il: 27/04/2005
| Utente Junior | Excel 2010 | | OFFLINE | |
|
| 25/06/2017 09:07 | |
Gent.mo Rollis13,
ringrazio della disponibilità, funziona.
Ho applicato ad una colonna il seguente codice per modificare la dimensione del carattere e non funziona gentilmente se faresti una cortesia di modificare il codice.
Foglio2.Columns.Range("G").Font.Size = 18.
Fiducioso, saluto ed auguro una buona domenica.
|
| | Post: 3.901 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
| 25/06/2017 10:33 | |
non puoi scrivere Range("G"), o indichi la cella o il range completo. però puoi fare
Foglio2.Columns("G:G").Font.Size = 18
oppure
Foglio2.Columns(7).Font.Size = 18
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 71 | Registrato il: 27/04/2005
| Utente Junior | Excel 2010 | | OFFLINE | |
|
| 26/06/2017 16:52 | |
Gemt.mo Patel
scusa del ritardo al momento funziona. alla prossima |
|
|
|
|