Index Forum

ciao ti sarà capitato di fare tabelle pivot e non riesci a vedere bene le righe, allego codice per inserire bordi alle celle

Sub ApplicaBordiTabellaPivot()
Dim pt As PivotTable
Dim rng As Range
Dim cell As Range

' Imposta il riferimento alla tabella pivot
Set pt = ActiveSheet.PivotTables("NomeTabellaPivot")

' Imposta il riferimento all'intervallo delle celle della tabella pivot
Set rng = pt.TableRange1

' Applica i bordi a tutte le celle
For Each cell In rng
With cell.Borders
.LineStyle = xlContinuous ' Tipo di linea continua
.Weight = xlThin ' Spessore del bordo sottile
.ColorIndex = xlAutomatic ' Colore del bordo automatico
End With
Next cell
End Sub


ciao graziano