asdhamdey قام بنشر أكتوبر 21, 2011 قام بنشر أكتوبر 21, 2011 الاخوه الاحباب السلام عليكم ورحمة الله وبركاته كل عام وحضراتكم بخير ********** مرفق اكسبل به صفحات مطلوب طباعتها المطلوب : كود تذييل للصفحات يظهر به 3 اسطر لكتابه اسم المدير والزائره الصحيه واسماء اللجنه هذا الكود يعمل مع تغير عدد الصفوف في صفحة الطباعه ولكم جزيل الشكر التأمين الصحي.rar
عبدالله المجرب قام بنشر أكتوبر 21, 2011 قام بنشر أكتوبر 21, 2011 الاخ الفاضل هل هذا المطلوب التأمين الصحي.rar
asdhamdey قام بنشر أكتوبر 21, 2011 الكاتب قام بنشر أكتوبر 21, 2011 جزاك الله كل خير وبارك فيك *** اخي اريد التذييل بعد البيانات وليس في ىخر الصفحة ... لماذا ؟ لانه يوجد بعض الصفحات بياناتها 3 اسطر مثلا ففي حاله التذييل اخر الصفحه نترك مساحه كبيره فارغه وهذا غير مستحب ولهذا نريد التذييل بعد عدد الصفوف الممتلئه ولك شكري
دغيدى قام بنشر أكتوبر 21, 2011 قام بنشر أكتوبر 21, 2011 السلام عليكم =========== بعد إذن أخى / أبو أحمد *************** كود لعمل رأس وتذييل الصفحة من خلال جدول بالصفحة بطريقة سهلة دون الدخول فى اعداد الصفحة كود اعداد رأس وتذييل الصفحة.rar 1
سالم2000 قام بنشر أكتوبر 21, 2011 قام بنشر أكتوبر 21, 2011 السلام عليكم ممكن اعرف كيفية عمل الزر هل تحتة معادلة كيف ينفذ الامر بالضغط عليه مثال فى المرفق السابق الزر المكتوب علية فعل الكود كذلك فى مثال اخر الزر المكتوب علية اطبع الشهادات مثلا
ابو الآء قام بنشر أكتوبر 21, 2011 قام بنشر أكتوبر 21, 2011 استاذ دعيدى بارك الله فيك هل يمكن وضع صورة فى الخلية المحددة وتظهر فى رائس وتزييل الصفحة
دغيدى قام بنشر أكتوبر 21, 2011 قام بنشر أكتوبر 21, 2011 أخى الفاضل ارجو أن أعرف نسخة أوفيس التى تعمل عليها 2003 أم 2007 إن لم تكن على معرفة بعمل الزر يمكنكم نسخه ولصفه الزر مربوط بالكود وليس تحته معادلات
cat101 قام بنشر أكتوبر 21, 2011 قام بنشر أكتوبر 21, 2011 جزاك الله كل خير وبارك فيك *** اخي اريد التذييل بعد البيانات وليس في ىخر الصفحة ... لماذا ؟ لانه يوجد بعض الصفحات بياناتها 3 اسطر مثلا ففي حاله التذييل اخر الصفحه نترك مساحه كبيره فارغه وهذا غير مستحب ولهذا نريد التذييل بعد عدد الصفوف الممتلئه ولك شكري التذييل بعد البيانات وليس في آخر الصفحة لو سمحتم لانه مطلبي ايضا
سالم2000 قام بنشر أكتوبر 21, 2011 قام بنشر أكتوبر 21, 2011 استاذى دغيدى الافيس2003 ارجو ان تدلنى على طريقة تعلم الزر والاكواد فانا مبتدى واريد التعلم
دغيدى قام بنشر أكتوبر 21, 2011 قام بنشر أكتوبر 21, 2011 اخى الفاضل إن كنت تعمل على أوفيس 2003 فتابع هذه الصورة
asdhamdey قام بنشر أكتوبر 21, 2011 الكاتب قام بنشر أكتوبر 21, 2011 جزاكم الله كل خير وبارك فيكم *** اخي اريد التذييل بعد البيانات وليس في آخر الصفحة
خالد القدس قام بنشر أكتوبر 21, 2011 قام بنشر أكتوبر 21, 2011 السلام عليكم رائع أستاذ عبدالله رائع أستاذ دغيدى تبقي المعضلة التي يريدها الاستاذ صاحب الموضوع واريدها أنا ايضا وهي كيف يكون التزييل فقط في الورقة الأخيرة دون باقي الصفحات وجزاكم الله خيرا
asdhamdey قام بنشر أكتوبر 22, 2011 الكاتب قام بنشر أكتوبر 22, 2011 السلام عليكم رائع أستاذ عبدالله رائع أستاذ دغيدى تبقي المعضلة التي يريدها الاستاذ صاحب الموضوع واريدها أنا ايضا وهي كيف يكون التزييل فقط بعد بيانات كل صفحه مباشره بمعنى ان البيانات مثلا في الصفحة الاولى قد تكون 4 صفوف اذن نريد التذييل من الصف السادس وجزاكم الله خيرا
احمدزمان قام بنشر أكتوبر 22, 2011 قام بنشر أكتوبر 22, 2011 جزاك الله كل خير وبارك فيك *** اخي اريد التذييل بعد البيانات وليس في ىخر الصفحة ... لماذا ؟ لانه يوجد بعض الصفحات بياناتها 3 اسطر مثلا ففي حاله التذييل اخر الصفحه نترك مساحه كبيره فارغه وهذا غير مستحب ولهذا نريد التذييل بعد عدد الصفوف الممتلئه ولك شكري السلام عليكم اذا فهمنا طريقة الطباعة التي تستخدمها ممكن نجد حل هل تقوم بتحديد نطاق معين ثم تختار طباعة التحديد هل تستخدم التصفية التلقائية للبيانات المطلوب طباعتها ثم تضغط طباعة مباشرة او غير ذلك ممكن توضح
الـعيدروس قام بنشر أكتوبر 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
احمدزمان قام بنشر أكتوبر 22, 2011 قام بنشر أكتوبر 22, 2011 السلام عليكم رائع أستاذ عبدالله رائع أستاذ دغيدى تبقي المعضلة التي يريدها الاستاذ صاحب الموضوع واريدها أنا ايضا وهي كيف يكون التزييل فقط في الورقة الأخيرة دون باقي الصفحات وجزاكم الله خيرا اخي الحبيب خالد القدس طلبك من عيوني يعني بكل بساطة في ورقة اخرى ضع الشكل العام للصفوف التي تريد طباعتها في آخر الصفحة اعمل في الورقة الي تبي طباعتها زر للطباعة بحيث ينسخ الصفوف من الورقة الأخرى ويضعها في آخر الصفوف للورقة الحالية ويطبع ثم يحذف هذه الصفوف اذا اردت ان اساعدك في عملها لامانع اعطيني ملف به مثال تراك عزيز وغالي
احمدزمان قام بنشر أكتوبر 22, 2011 قام بنشر أكتوبر 22, 2011 اخي ابو نصار ماشاء الله تبارك الله كود جميل يقوم بالازم قبل الطباعة جزاك الله كل خير
الـعيدروس قام بنشر أكتوبر 22, 2011 قام بنشر أكتوبر 22, 2011 سلمت استاذي الفاضل هذا بعض ماعندكم وانما نقلدكم
دغيدى قام بنشر أكتوبر 22, 2011 قام بنشر أكتوبر 22, 2011 أخى الفاضل / زى ما قال أخى أبو نصار اكتب ما تريد من تذييل فى الورقة الأخيرة مباشرة واطبع بالكود الجميل (( الذى لايطبع الصفوف الفارغة ))
الردود الموصى بها