Discussione:
ridimensionare automaticamente l'altezza della riga
(troppo vecchio per rispondere)
luhmax
2005-10-03 14:27:00 UTC
Permalink
salve a tutti.
In un foglio excel ho una cella, unione di altre celle dove inserisco la
descrizione (testo) di un capitolato che prendo da un altro foglio o che
scrivo manualmente.
E' possibile far ridimensionare automaticamente l'altezza della cella/riga?
Qualcuno mi spiega come fare?

grazie
Rémi
2005-10-04 21:53:33 UTC
Permalink
Ciao,

Devi aprire il VBA (Alt + F11)

Puoi fare un doppio clic sul foglio in cui vuoi ridemensionare l'altezza
della cella/riga e coppiare il codice seguente :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Columns("A:IV").EntireColumn.AutoFit
Rows("1:65536").EntireRow.AutoFit
End Sub


P.S. se vuoi anche la larhezza della cella, togli il segno ' prima Columns

Ciao.
--
Alcuni esempi VBA Excel
http://remigueudelot.free.fr/

Spero di aver risposto bene alla tua domanda.
Rémi.
Post by luhmax
salve a tutti.
In un foglio excel ho una cella, unione di altre celle dove inserisco la
descrizione (testo) di un capitolato che prendo da un altro foglio o che
scrivo manualmente.
E' possibile far ridimensionare automaticamente l'altezza della cella/riga?
Qualcuno mi spiega come fare?
grazie
luhmax
2005-10-05 13:49:22 UTC
Permalink
grazie per la risposta ma non funziona.
Forse mi sono spiegato male io:
in un nuovo foglio di lavoro, selezionando la cella che mi interessa e
spuntando, (in: formato/celle/allineamento), "testo a capo" ottengo quello
che voglio. Se la cella che mi interessa però, è l'unione di più celle, non
funziona più né "testo a capo", nè formato/riga adatta, nè tantomeno la tua
routine, che pur seguendo le indicazioni, non funziona comunque (anche in un
nuovo foglio). per caso ho un excel buggato?
ciao
Post by Rémi
Ciao,
Devi aprire il VBA (Alt + F11)
Puoi fare un doppio clic sul foglio in cui vuoi ridemensionare l'altezza
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Columns("A:IV").EntireColumn.AutoFit
Rows("1:65536").EntireRow.AutoFit
End Sub
P.S. se vuoi anche la larhezza della cella, togli il segno ' prima Columns
Ciao.
--
Alcuni esempi VBA Excel
http://remigueudelot.free.fr/
Spero di aver risposto bene alla tua domanda.
Rémi.
Post by luhmax
salve a tutti.
In un foglio excel ho una cella, unione di altre celle dove inserisco la
descrizione (testo) di un capitolato che prendo da un altro foglio o che
scrivo manualmente.
E' possibile far ridimensionare automaticamente l'altezza della
cella/riga?
Post by luhmax
Qualcuno mi spiega come fare?
grazie
Rémi
2005-10-05 19:37:24 UTC
Permalink
Ciao,

Tremo di non capire bene, puoi mandarmi il tuo file spiegandomi sopra il
risultato che vuoi.

Ciao. Remi.
--
Alcuni esempi VBA Excel
http://remigueudelot.free.fr/

Spero di aver risposto bene alla tua domanda.
Rémi.
Post by luhmax
grazie per la risposta ma non funziona.
in un nuovo foglio di lavoro, selezionando la cella che mi interessa e
spuntando, (in: formato/celle/allineamento), "testo a capo" ottengo quello
che voglio. Se la cella che mi interessa però, è l'unione di più celle, non
funziona più né "testo a capo", nè formato/riga adatta, nè tantomeno la tua
routine, che pur seguendo le indicazioni, non funziona comunque (anche in un
nuovo foglio). per caso ho un excel buggato?
ciao
Post by Rémi
Ciao,
Devi aprire il VBA (Alt + F11)
Puoi fare un doppio clic sul foglio in cui vuoi ridemensionare l'altezza
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Columns("A:IV").EntireColumn.AutoFit
Rows("1:65536").EntireRow.AutoFit
End Sub
P.S. se vuoi anche la larhezza della cella, togli il segno ' prima Columns
Ciao.
--
Alcuni esempi VBA Excel
http://remigueudelot.free.fr/
Spero di aver risposto bene alla tua domanda.
Rémi.
Post by luhmax
salve a tutti.
In un foglio excel ho una cella, unione di altre celle dove inserisco la
descrizione (testo) di un capitolato che prendo da un altro foglio o che
scrivo manualmente.
E' possibile far ridimensionare automaticamente l'altezza della
cella/riga?
Post by luhmax
Qualcuno mi spiega come fare?
grazie
Rémi
2005-10-13 20:21:53 UTC
Permalink
Ecco qui il codice per risolvere il problema :

http://remigueudelot.free.fr/PHP/VBAit2.php?categoria=cella&titolo=adattare_la_taglia_delle_celle_unite
Ciao a tutti.
--
Alcuni esempi VBA Excel
http://remigueudelot.free.fr/

Spero di aver risposto bene alla tua domanda.
Rémi.
Post by luhmax
grazie per la risposta ma non funziona.
in un nuovo foglio di lavoro, selezionando la cella che mi interessa e
spuntando, (in: formato/celle/allineamento), "testo a capo" ottengo quello
che voglio. Se la cella che mi interessa però, è l'unione di più celle, non
funziona più né "testo a capo", nè formato/riga adatta, nè tantomeno la tua
routine, che pur seguendo le indicazioni, non funziona comunque (anche in un
nuovo foglio). per caso ho un excel buggato?
ciao
Post by Rémi
Ciao,
Devi aprire il VBA (Alt + F11)
Puoi fare un doppio clic sul foglio in cui vuoi ridemensionare l'altezza
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Columns("A:IV").EntireColumn.AutoFit
Rows("1:65536").EntireRow.AutoFit
End Sub
P.S. se vuoi anche la larhezza della cella, togli il segno ' prima Columns
Ciao.
--
Alcuni esempi VBA Excel
http://remigueudelot.free.fr/
Spero di aver risposto bene alla tua domanda.
Rémi.
Post by luhmax
salve a tutti.
In un foglio excel ho una cella, unione di altre celle dove inserisco la
descrizione (testo) di un capitolato che prendo da un altro foglio o che
scrivo manualmente.
E' possibile far ridimensionare automaticamente l'altezza della
cella/riga?
Post by luhmax
Qualcuno mi spiega come fare?
grazie
Loading...