|
Login
  • Page:
  • 1
  • 2

TOPIC: Adattare automaticamente la larghezza di una celle

Adattare automaticamente la larghezza di una celle 3 years 10 months ago #10292

  • Canapone
  • Canapone's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 1346
  • Thank you received: 160
  • Karma: 108
Ciao,

non conosco il vba, ma ho visto che se faccio una piccola correzione


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = False
For Each Value In Target.Columns
    Worksheets("Foglio1").Columns(Value.Column).AutoFit
Next Value
Application.ScreenUpdating = True
End Sub

l'istruzione fa il lavoro richiesto.

Saluti
Last Edit: 3 years 10 months ago by Canapone.
The administrator has disabled public write access.

Adattare automaticamente la larghezza di una celle 3 years 10 months ago #10293

  • Marius44
  • Marius44's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 185
  • Thank you received: 38
  • Karma: 14
@canapone
Ottimo lavoro (e non potevano esserci dubbi) e grazie per avermi sostituito :laugh:

Aggiungerei una cosa: sostituire Foglio1 col nome del foglio nel caso fosse diverso.

Ciao a tutti e Buone Feste
Mario
Last Edit: 3 years 10 months ago by Marius44.
The administrator has disabled public write access.

Adattare automaticamente la larghezza di una celle 3 years 10 months ago #10294

  • Canapone
  • Canapone's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 1346
  • Thank you received: 160
  • Karma: 108
Ciao Marius44,


se propongo qualcosa che riguarda anche lontanamente il VBA, non è mai farina del mio sacco.

Ho solo allungato il collo per copiare il lavoro di altri.


Ricambio gli auguri e saluti da Firenze
The administrator has disabled public write access.
  • Page:
  • 1
  • 2
Time to create page: 0.381 seconds