|
Login
  • Page:
  • 1
  • 2

TOPIC: Adattare automaticamente la larghezza di una celle

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

  • nicola72
  • nicola72's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 19
  • Karma: 0
Ciao a tutti,
ho una tabella con diverse colonne che compilo con valori di lunghezza differenti, vorrei che una volta compilata una cella automaticamente la larghezza della colonna si adatti al suo contenuto.
The administrator has disabled public write access.

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

  • Marius44
  • Marius44's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 185
  • Thank you received: 38
  • Karma: 14
Potresti provare con questa macro adattandola alle tue esigenze.
Attualmente la macro allarga le colonne C o F ad un parametro determinato qualsiasi cella venga cliccata nell'una o l'altra colonna.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
xRiga = Selection.Row
xColonna = Selection.Column

If xColonna = 3 And xRiga < 32 Then
    Range("C1").ColumnWidth = 30
Else
    Range("C1").ColumnWidth = 8
End If

If xColonna = 6 And xRiga < 32 Then
    Range("F1").ColumnWidth = 45
Else
    Range("F1").ColumnWidth = 8
End If
End Sub

Fai sapere. Ciao,
Mario
The administrator has disabled public write access.
The following user(s) said Thank You: nicola72

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

  • nicola72
  • nicola72's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 19
  • Karma: 0
Ciao Marius44
come idea è perfetta, però vorrei che lo facesse su tutte le colonne e le righe delle celle che seleziono, è possibile?
The administrator has disabled public write access.

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

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

prendo il codice da:

www.get-digital-help.com/2012/02/10/auto...columns-as-you-type/

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


e ne approfitto per salutare Marius44.
The administrator has disabled public write access.
The following user(s) said Thank You: nicola72

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

  • Marius44
  • Marius44's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 185
  • Thank you received: 38
  • Karma: 14
@canapone
ciao Stefano
oppure, se non si vogliono lasciare tutte le colonne che si selezionano sempre allargate ma se si volesse allargare SOLO la colonna della cella selezionata:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.ColumnWidth = 8.43
    If ActiveCell.ColumnWidth = 8.43 Then ActiveCell.ColumnWidth = 32
Exit Sub

Ogni volta che si seleziona una cella, TUTTE le colonne vengono impostate a 8,43 con il codice : Cells.ColumnWidth = 8.43
quindi la colonna della cella selezionata viene allargata.

Ciao a tutti,
Mario
The administrator has disabled public write access.
The following user(s) said Thank You: nicola72

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

  • nicola72
  • nicola72's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 19
  • Karma: 0
Fantastico, però avendo più fogli vorrei che funzionasse solo sul foglio1, è possibile?
The administrator has disabled public write access.
  • Page:
  • 1
  • 2
Time to create page: 0.763 seconds