PivotTables da otomatik kenarlık

[ofbalki]

Arkadaşlar PivotTables bildiğiniz gibi tam bir kenerlık çizmiyor.

Ben normal excel tablosu gibi kenarlık olmasını istiyorum.

Tabii bu iş makrolarla vede otomatik olursa iyi olur.

Hayırlı geceler.

 

[BG]

aşağıdaki kodu deneyiniz

not: kayıt makrosu kullandım



Private Sub CommandButton1_Click()
Range("C8").Select
Selection.CurrentRegion.Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Range("A1").Select
End Sub

 

[ofbalki]

Sayın brain çok teşekkürler.