Microsoft Excel’de, Visual Basic for Applications (VBA) kullanarak otomatik pivot tablo oluşturmak için aşağıdaki adımlar takip edilmelidir:
VBA Ekranını Açın: Excel dosyasını açın ve “Alt + F11” tuşlarına basarak VBA ekranını açın.
Modül Ekleyin: VBA projesine bir modül eklemek için, sağ üstteki “Module” seçeneğini seçin ve “Insert” > “Module” seçeneğini tıklayın.
Kod Yazın: Aşağıdaki kodu modül içinde yapıştırın:
Sub CreatePivotTable()
‘Veri kaynağını belirleyin
Dim sourceData As Range
Set sourceData = Worksheets(“Sheet1”).Range(“A1:C100”)
‘Pivot tablo için yer belirleyin
Dim targetRange As Range
Set targetRange = Worksheets(“Sheet2”).Range(“A1”)
‘Pivot tablo oluşturun
Dim pivotTable As PivotTable
Set pivotTable = Worksheets(“Sheet2”).PivotTableWizard( _
SourceType:=xlDatabase, _
SourceData:=sourceData, _
TableDestination:=targetRange, _
TableName:=”PivotTable1″)
‘Alanları ekleyin
With pivotTable
.PivotFields(“Column1”).Orientation = xlRowField
.PivotFields(“Column2”).Orientation = xlColumnField
.PivotFields(“Column3”).Orientation = xlDataField
End With
End Sub
Kodu Çalıştırın: Kodu çalıştırmak için, modülün başındaki “CreatePivotTable” adlı sub prosedürünü seçin ve “F5” tuşuna basın.
Bu adımlar izlendiğinde, verilerinizin otomatik olarak pivot tablosu oluşturulacaktır. Kodu kendinize göre düzenleyebilirsiniz, örneğin pivot tablo yapısını ve alanlarını değiştirebilirsiniz.