Yasser Fathi Albanna قام بنشر ديسمبر 14, 2015 مشاركة قام بنشر ديسمبر 14, 2015 السلام عليكم ورحمة الله وبركاته أتمنى أيفيد أحد Sub GetPiv() 'Excel VBA to Create a Pivot Table. Dim PTCache As PivotCache Dim Pt As PivotTable For Each Pt In ActiveSheet.PivotTables 'Checks and deletes any pivot tables. Pt.TableRange2.Clear Next Pt Set PTCache=ActiveWorkbook.PivotCaches.Create(xlDatabase, [A10].CurrentRegion) Set Pt=ActiveSheet.PivotTables.Add(PTCache, [G10]) Pt.PivotFields("Desc").Orientation=xlColumnField Pt.PivotFields("Colour").Orientation=xlRowField Pt.PivotFields("Book").Orientation=xlDataField Pt.PivotFields("Market").Orientation=xlPageField End Sub Sub GetPiv2() 'Excel VBA create Pivot table in new worksheet. Dim PTCache As PivotCache Dim Pt As PivotTable Dim ws As Worksheet Set PTCache=ActiveWorkbook.PivotCaches.Create(xlDatabase, [A10].CurrentRegion) Set ws=Worksheets.Add Set Pt=ws.PivotTables.Add(PTCache, [A10]) Pt.PivotFields("Desc").Orientation=xlColumnField Pt.PivotFields("Colour").Orientation=xlRowField Pt.PivotFields("Book").Orientation=xlDataField Pt.PivotFields("Market").Orientation=xlPageField End Sub Create Pivot Table with Excel VBA.rar 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 23, 2015 مشاركة قام بنشر ديسمبر 23, 2015 بارك الله فيك أخي الغالي ياسر على موضوعاتك المميزة رابط هذا التعليق شارك More sharing options...
Yasser Fathi Albanna قام بنشر ديسمبر 23, 2015 الكاتب مشاركة قام بنشر ديسمبر 23, 2015 نورتنى بوجودك أخى الحبيب أ / ياسر خليل تقبل خالص تحياتى وتقديرى لشخصكم الكريم رابط هذا التعليق شارك More sharing options...
محمود نعيم قام بنشر سبتمبر 11, 2017 مشاركة قام بنشر سبتمبر 11, 2017 مشكور اخي الكريم ارجو كود لعمل تحديث لتقرير PivotTable في ظل وجود حماية للصفحة منعا للعبث بالتقرير وشكرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.