asdhamdey قام بنشر أكتوبر 21, 2011 مشاركة قام بنشر أكتوبر 21, 2011 الاخوه الاحباب السلام عليكم ورحمة الله وبركاته كل عام وحضراتكم بخير ********** مرفق اكسبل به صفحات مطلوب طباعتها المطلوب : كود تذييل للصفحات يظهر به 3 اسطر لكتابه اسم المدير والزائره الصحيه واسماء اللجنه هذا الكود يعمل مع تغير عدد الصفوف في صفحة الطباعه ولكم جزيل الشكر التأمين الصحي.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 21, 2011 مشاركة قام بنشر أكتوبر 21, 2011 الاخ الفاضل هل هذا المطلوب التأمين الصحي.rar رابط هذا التعليق شارك More sharing options...
asdhamdey قام بنشر أكتوبر 21, 2011 الكاتب مشاركة قام بنشر أكتوبر 21, 2011 جزاك الله كل خير وبارك فيك *** اخي اريد التذييل بعد البيانات وليس في ىخر الصفحة ... لماذا ؟ لانه يوجد بعض الصفحات بياناتها 3 اسطر مثلا ففي حاله التذييل اخر الصفحه نترك مساحه كبيره فارغه وهذا غير مستحب ولهذا نريد التذييل بعد عدد الصفوف الممتلئه ولك شكري رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر أكتوبر 21, 2011 مشاركة قام بنشر أكتوبر 21, 2011 السلام عليكم =========== بعد إذن أخى / أبو أحمد *************** كود لعمل رأس وتذييل الصفحة من خلال جدول بالصفحة بطريقة سهلة دون الدخول فى اعداد الصفحة كود اعداد رأس وتذييل الصفحة.rar 1 رابط هذا التعليق شارك More sharing options...
سالم2000 قام بنشر أكتوبر 21, 2011 مشاركة قام بنشر أكتوبر 21, 2011 السلام عليكم ممكن اعرف كيفية عمل الزر هل تحتة معادلة كيف ينفذ الامر بالضغط عليه مثال فى المرفق السابق الزر المكتوب علية فعل الكود كذلك فى مثال اخر الزر المكتوب علية اطبع الشهادات مثلا رابط هذا التعليق شارك More sharing options...
ابو الآء قام بنشر أكتوبر 21, 2011 مشاركة قام بنشر أكتوبر 21, 2011 استاذ دعيدى بارك الله فيك هل يمكن وضع صورة فى الخلية المحددة وتظهر فى رائس وتزييل الصفحة رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر أكتوبر 21, 2011 مشاركة قام بنشر أكتوبر 21, 2011 أخى الفاضل ارجو أن أعرف نسخة أوفيس التى تعمل عليها 2003 أم 2007 إن لم تكن على معرفة بعمل الزر يمكنكم نسخه ولصفه الزر مربوط بالكود وليس تحته معادلات رابط هذا التعليق شارك More sharing options...
cat101 قام بنشر أكتوبر 21, 2011 مشاركة قام بنشر أكتوبر 21, 2011 جزاك الله كل خير وبارك فيك *** اخي اريد التذييل بعد البيانات وليس في ىخر الصفحة ... لماذا ؟ لانه يوجد بعض الصفحات بياناتها 3 اسطر مثلا ففي حاله التذييل اخر الصفحه نترك مساحه كبيره فارغه وهذا غير مستحب ولهذا نريد التذييل بعد عدد الصفوف الممتلئه ولك شكري التذييل بعد البيانات وليس في آخر الصفحة لو سمحتم لانه مطلبي ايضا رابط هذا التعليق شارك More sharing options...
سالم2000 قام بنشر أكتوبر 21, 2011 مشاركة قام بنشر أكتوبر 21, 2011 استاذى دغيدى الافيس2003 ارجو ان تدلنى على طريقة تعلم الزر والاكواد فانا مبتدى واريد التعلم رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر أكتوبر 21, 2011 مشاركة قام بنشر أكتوبر 21, 2011 اخى الفاضل إن كنت تعمل على أوفيس 2003 فتابع هذه الصورة رابط هذا التعليق شارك More sharing options...
asdhamdey قام بنشر أكتوبر 21, 2011 الكاتب مشاركة قام بنشر أكتوبر 21, 2011 جزاكم الله كل خير وبارك فيكم *** اخي اريد التذييل بعد البيانات وليس في آخر الصفحة رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر أكتوبر 21, 2011 مشاركة قام بنشر أكتوبر 21, 2011 السلام عليكم رائع أستاذ عبدالله رائع أستاذ دغيدى تبقي المعضلة التي يريدها الاستاذ صاحب الموضوع واريدها أنا ايضا وهي كيف يكون التزييل فقط في الورقة الأخيرة دون باقي الصفحات وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
asdhamdey قام بنشر أكتوبر 22, 2011 الكاتب مشاركة قام بنشر أكتوبر 22, 2011 السلام عليكم رائع أستاذ عبدالله رائع أستاذ دغيدى تبقي المعضلة التي يريدها الاستاذ صاحب الموضوع واريدها أنا ايضا وهي كيف يكون التزييل فقط بعد بيانات كل صفحه مباشره بمعنى ان البيانات مثلا في الصفحة الاولى قد تكون 4 صفوف اذن نريد التذييل من الصف السادس وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أكتوبر 22, 2011 مشاركة قام بنشر أكتوبر 22, 2011 جزاك الله كل خير وبارك فيك *** اخي اريد التذييل بعد البيانات وليس في ىخر الصفحة ... لماذا ؟ لانه يوجد بعض الصفحات بياناتها 3 اسطر مثلا ففي حاله التذييل اخر الصفحه نترك مساحه كبيره فارغه وهذا غير مستحب ولهذا نريد التذييل بعد عدد الصفوف الممتلئه ولك شكري السلام عليكم اذا فهمنا طريقة الطباعة التي تستخدمها ممكن نجد حل هل تقوم بتحديد نطاق معين ثم تختار طباعة التحديد هل تستخدم التصفية التلقائية للبيانات المطلوب طباعتها ثم تضغط طباعة مباشرة او غير ذلك ممكن توضح رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 22, 2011 مشاركة قام بنشر أكتوبر 22, 2011 السلام عليكم اخي الفاضل استعن بهذا الكود لحذف الصفوف الفارغه وتحديد البيانات وبالنسبة للتذيل ماتشرفو به الاساتذه مع هذا سيتم ماطلبت تفضل Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long With Application .Calculation = xlCalculationManual .ScreenUpdating = False For i = Selection.Rows.Count To 1 Step -1 If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then Selection.Rows(i).EntireRow.Delete End If Next i .Calculation = xlCalculationAutomatic .ScreenUpdating = True End With Application.ScreenUpdating = False Application.EnableEvents = False Dim thded As HPageBreak Dim rngCol As Range Dim arow As Range On Error Resume Next For Each thded In ActiveWindow.SelectedSheets.HPageBreaks thded.Delete Next thded Set rngCol = ActiveSheet.Range("a5:b" & Cells(Rows.Count, "b").End(xlUp)) Do Set arow = rngCol(1) Set rngCol = rngCol.ColumnDifferences(Comparison:=arow) rngCol.Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("a5").End(xlDown).Offset(2, 0) Loop Until arow = rngCol(1) Application.ScreenUpdating = True Application.EnableEvents = True End Sub رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أكتوبر 22, 2011 مشاركة قام بنشر أكتوبر 22, 2011 السلام عليكم رائع أستاذ عبدالله رائع أستاذ دغيدى تبقي المعضلة التي يريدها الاستاذ صاحب الموضوع واريدها أنا ايضا وهي كيف يكون التزييل فقط في الورقة الأخيرة دون باقي الصفحات وجزاكم الله خيرا اخي الحبيب خالد القدس طلبك من عيوني يعني بكل بساطة في ورقة اخرى ضع الشكل العام للصفوف التي تريد طباعتها في آخر الصفحة اعمل في الورقة الي تبي طباعتها زر للطباعة بحيث ينسخ الصفوف من الورقة الأخرى ويضعها في آخر الصفوف للورقة الحالية ويطبع ثم يحذف هذه الصفوف اذا اردت ان اساعدك في عملها لامانع اعطيني ملف به مثال تراك عزيز وغالي رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أكتوبر 22, 2011 مشاركة قام بنشر أكتوبر 22, 2011 اخي ابو نصار ماشاء الله تبارك الله كود جميل يقوم بالازم قبل الطباعة جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 22, 2011 مشاركة قام بنشر أكتوبر 22, 2011 سلمت استاذي الفاضل هذا بعض ماعندكم وانما نقلدكم رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر أكتوبر 22, 2011 مشاركة قام بنشر أكتوبر 22, 2011 أخى الفاضل / زى ما قال أخى أبو نصار اكتب ما تريد من تذييل فى الورقة الأخيرة مباشرة واطبع بالكود الجميل (( الذى لايطبع الصفوف الفارغة )) رابط هذا التعليق شارك More sharing options...
الردود الموصى بها