أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على ali mohamed ali-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة منع ادخال البيانات بعدة شروط اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





كود لاضافة صف ثابت فى تذييل كل الصفحه

السلام عليكم ورحمة الله وبركاته لو اردنا تثبيت عناوين اعلى او اسفل كل صفحه عند الطباعه نستخدم Header amp; Footer ولكن قد ..



25-01-2018 04:19 مساء
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 89
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 

السلام عليكم ورحمة الله وبركاته
لو اردنا تثبيت عناوين اعلى او اسفل كل صفحه عند الطباعه نستخدم
Header & Footer
ولكن قد لا تسع البيانات الكبيره
بالنسبه للHeader يوجد اداة لتثبيت بعض الصفوف كل اعلى كل صفحه
اما بالنسبه للFooter فلا يوجد اداة لتثبيت صف كل صفحه كتذييل للصفحه
اليوم اقدم لكم كود يتم اضافته كموديول ومن ثم عند تفعيل الكود بالضغط على F5 مثلا
يظهر لنا مربع حوال لتحديد الصف الذى نريد تثبيته اسفل كل صفحه ثم نضغط على OK
وهكذا نلاحظ ان الصف المحدد تم تثبيته اسفل كل صفحه
لا اعلم من صاحب الكود لكنى حصلت عليه من احدى الصفحات الاجنبيه وشكرا لصاحب الكود
وهذا هو الكود المستخدم
Sub MyFooter()
    Dim xTxt As String
    Dim xAddress As String
    Dim xRg As Range
    Dim xCell As Range
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select the row you will insert repeatedly at the bottom:", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
        For Each xCell In xRg
            xTxt = xTxt & xCell.Value & " "
        Next
        ActiveSheet.PageSetup.LeftFooter = xTxt
    End Sub

25-01-2018 08:23 مساء
مشاهدة مشاركة منفردة [1]
ناصر سعيد1
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 657
 offline 
look/images/icons/i1.gif كود لاضافة صف ثابت فى تذييل كل الصفحه
جزاك الله خيرا وبارك فيك استاذ اسلام


25-01-2018 08:50 مساء
مشاهدة مشاركة منفردة [2]
ناصر سعيد1
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 657
 offline 
look/images/icons/i1.gif كود لاضافة صف ثابت فى تذييل كل الصفحه
هل نتعشم في ملف به الكود .. ؟
جزاك الله خيرا

25-01-2018 09:05 مساء
مشاهدة مشاركة منفردة [3]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 89
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif كود لاضافة صف ثابت فى تذييل كل الصفحه
وجزاك الله خيرا استاذ ناصر
اتفضل ملف بمثال عملى
 
 
  كود تثبيت تذييل صف.rar   تحميل rar مرات التحميل :(106)
الحجم :(13.692) KB


26-01-2018 11:54 صباحا
مشاهدة مشاركة منفردة [4]
ناصر سعيد1
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 657
 offline 
look/images/icons/i1.gif كود لاضافة صف ثابت فى تذييل كل الصفحه
جزاك الله خيرا
عند فتح الملف تظهر هذه الرساله
MTQ2OTk4MQ9911
 
 
 


26-01-2018 02:12 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif كود لاضافة صف ثابت فى تذييل كل الصفحه
بارك الله فيك أخي العزيز إسلام ومشكور على الموضوع المميز
أخي العزيز ناصر قمت بتحميل الملف ويعمل بشكل جيد ..حاول التحميل مرة أخرى لأنه يبدو أن الملف الذي قمت بتحميله غير مكتمل

26-01-2018 07:56 مساء
مشاهدة مشاركة منفردة [6]
ناصر سعيد1
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 657
 offline 
look/images/icons/i1.gif كود لاضافة صف ثابت فى تذييل كل الصفحه
بستاذنك استاذ ياسر
ارجو اعاده تحميله منكم لاني حملته عده مرات ويعطي نفس النتيجه




الكلمات الدلالية
لاضافة ، ثابت ، تذييل ، الصفحه ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 03:37 مساء