السلام عليكم
أخي العزيز
يبدو انني استخدمت خاصية في 2010 ليست موجودة في 2003
عدل تلك الكود كله إلي
Sub PV_Table()
LR = [A60000].End(xlUp).Row
Range("K3:IV" & LR).Select
Selection.FillDown
[A1:J1].Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R" & LR & "C10").CreatePivotTable TableDestination:="R4C11", TableName:="PivotTable1"
With ActiveSheet.PivotTables("PivotTable1")
.PivotFields("كود الصنف").Orientation = xlColumnField
.PivotFields("كود الصنف").Position = 1
.PivotFields("كود الصنف").PivotItems("(blank)").Visible = False
.AddDataField ActiveSheet.PivotTables("PivotTable1").PivotFields("الكمية بالكجم"), "Count of الكمية بالكجم", xlCount
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Count of الكمية بالكجم")
.Caption = "Sum of الكمية بالكجم"
.Function = xlSum
.NumberFormat = "#,##0"
End With
ActiveWorkbook.ShowPivotTableFieldList = False
Range([J3], [J3].End(xlToRight)).EntireColumn.AutoFit
[J3].Select
End Sub