احمد العدوى قام بنشر يناير 5, 2016 مشاركة قام بنشر يناير 5, 2016 اريد انتهاء صفحة الطباعة بعدكل محافظة صفحات الطباعة.rar رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يناير 5, 2016 مشاركة قام بنشر يناير 5, 2016 السلام عليكم ورحمة الله تم إضافة كود يقوم بإدارج "فاصل الصفحات" بعد كل محافظة مستعينا بالعمود C (عمود مساعد)... تم إدراج عدة تسميات لنطاقات معينة لتسهيل عملية الكود... بن علية صفحات الطباعة.rar 4 رابط هذا التعليق شارك More sharing options...
احمد العدوى قام بنشر يناير 7, 2016 الكاتب مشاركة قام بنشر يناير 7, 2016 جزاكم الله خيراً شكرا على اهتمام سيادتكم معلومة مهمة جداً وكود جديد وأنا سعيد أشكرك أشكرك أشكرك رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر يناير 7, 2016 مشاركة قام بنشر يناير 7, 2016 في ٥/١/٢٠١٦ at 22:03, بن علية حاجي said: السلام عليكم ورحمة الله تم إضافة كود يقوم بإدارج "فاصل الصفحات" بعد كل محافظة مستعينا بالعمود C (عمود مساعد)... تم إدراج عدة تسميات لنطاقات معينة لتسهيل عملية الكود... بن علية صفحات الطباعة.rar كود جميل جداً 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 8, 2016 مشاركة قام بنشر يناير 8, 2016 بارك الله فيك أخي الحبيب بن عليه وجزيت خير الجزاء ولكن لي رأي عند التعامل مع الأكواد أفضل عدم الاعتماد على ورقة العمل .. فيمكن الاستغناء عن العمود المساعد كما يمكن الاستغناء عن النطاقات المسماة والتي أرى أنها من الأسباب التي تثقل من عمل الملف عند الإكثار منها .. فإليك الكود التالي عله يفي بالغرض Sub Insert_HBreaks() Dim I As Integer, Str1 As String, Str2 As String With ThisWorkbook.Worksheets("Sheet1") .ResetAllPageBreaks Str1 = .Range("B2") For I = 2 To .Range("A" & .Rows.Count).End(xlUp).Row Str2 = .Range("B" & I) If Str2 <> Str1 Then .HPageBreaks.Add Before:=.Range("A" & I) Str1 = Str2 End If Next I End With End Sub تقبل وافر تقديري واحترامي 2 1 رابط هذا التعليق شارك More sharing options...
مهند الزيدي قام بنشر يناير 8, 2016 مشاركة قام بنشر يناير 8, 2016 دائما ما تبدع اخي ياسر ...وفقك الله لكل خير 1 رابط هذا التعليق شارك More sharing options...
احمد العدوى قام بنشر يناير 8, 2016 الكاتب مشاركة قام بنشر يناير 8, 2016 ماشاء الله بقولك أنا سعيد تقولى دى حالة الله ينور ياأخ ياسر بارك الله فيك 1 رابط هذا التعليق شارك More sharing options...
احمد العدوى قام بنشر يناير 11, 2016 الكاتب مشاركة قام بنشر يناير 11, 2016 صفحات الطباعة.rar ممكن مجموع العمود c تلقائى بكود حسب نهاية كل صفحة وإظهار مجموع كل صفحة فى الطباعة مهما تغيرعدد الصفوف فى كل صفحة رابط هذا التعليق شارك 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.