Visualizzare larghezza colonna nella cella

federico460, 27/10/2023 10:30:

---

ciao
DIDATTICA
con le formule si potrebbe ma arrotonda la larghezza

formule
nome
largcol
formula
=CELLA("larghezza";Foglio1!A$1)


sulla cella A1 matriciale ctrl maiuscolo invio

=largcol

da tirare a destra


meglio il VBA

altrimenti si potrebbe usare
INFO.CELLA()
ma è un caos.praticamente bisogna cambiare il sistema di protezione

---

rollis13, 27/10/2023 09:20:

---

Probabilmente basta una macro così:

Option Explicit
Sub LarghezzaColonne()
    Dim x As Integer
    For x = 1 To 52
        Cells(1, x) = Columns(x).Width
    Next x
End Sub

---

locatevaresino, 27/10/2023 12:12:

---

ciao

si potrebbe anche scrivere un UDF sempre salvando come macro il file
in un modulo

---

Option Explicit
Function Lar_col(Ncol As Long) As Variant
Lar_col = Columns(Ncol).ColumnWidth
End Function

---

nella cella del foglio
=Lar_col(RIF.COLONNA())

---

by sal, 27/10/2023 16:34:

---

Ciao Prova la mia, può darsi che inserendo il valore in una variabile il risultato sia diverso, a me da le dimensioni giuste

Sub DimCol()
Dim N, x

Rows(1).ClearContents
For x = 1 To 52
  N = Columns(x).ColumnWidth
  Cells(1, x) = N
Next x
End Sub

Ciao By Sal (8-D

---

rollis13, 27/10/2023 18:59:

---

Ma ... nessuno si è accorto che questa mattina nella fretta (mi aspettavano al bar per la colazione😋) ho scritto:
"Cells(1, x) = Columns(x).Width"
invece di:
"Cells(1, x) = Columns(x).ColumnWidth"

---