ناصر سعيد

=============== يوجد بالملف كود اخر اردت ان اضع الاضواء عليه لفائدته الهدف من الكود : الوصول لاي ورقه في الشيت بسهوله ' كود التنقل بين الاوراق Sub ShowSheetLists() Application.CommandBars("Workbook tabs").ShowPopup End Sub

======= الكود الرائع المستخدم ' Sub CopyRow(sSheet As String, sRow As Long, LC As Long) 'هذا الكود للنابغه ياسر خليل 'الهدف من الكود نسخ صف بتنسيقاته ومعادلاته الى صفوف اخرى بالعدد '=*=*==*=*=*=*=*=*=*=* 'إلغاء تحديث الشاشة ' (الغاء مشاهدة تنفيذ الماكرو) Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim ws As Worksheet Dim cnt As Long 'سطر لتفادي حدوث خطأ في حالةأن الخلايا ' التي سيتم مسحها أي الخلايا الثابتة كانت فارغة On Error Resume Next Set ws = Sheets(sSheet) On Error GoTo 0 If ws Is Nothing Then MsgBox "ورقة " & sSheet & " غير موجودة.", vbExclamation, "Sheet Not Found!" Exit Sub End If '[B10] تعيين قيمة للمتغير ليساوي قيمة الخلية 'من صفحة بيانات المدرسة cnt = Sheets("إدخال بيانات أساسية").Range("C2").Value ws.Range(ws.Cells(sRow, 1), ws.Cells(sRow, LC)).Copy ws.Range("A" & sRow).Resize(cnt).PasteSpecial xlPasteAll On Error Resume Next ' يقوم بمسح الخلايا الثابتة في النطاق المنسوخ بحيث ' يبقى على المعادلات والتنسيق فقط ويزيل ما دون ذلك ws.Range("A" & sRow).Resize(cnt, LC).SpecialCells(xlCellTypeConstants, 3).ClearContents Application.CutCopyMode = False End Sub Sub DoIt() CopyRow "إدخال بيانات أساسية", 9, 20 CopyRow " ملف الإنجاز ف 1", 9, 16 CopyRow "تحريرى ف 1", 9, 19 CopyRow " شيت نصف العام", 9, 19 CopyRow "نتيجة الطلبة نصف العام", 9, 18 CopyRow " ملف الإنجاز فصل 2", 9, 22 CopyRow "تحريرى ف 2", 9, 15 CopyRow "الشيت الرئيسي", 9, 189 CopyRow "نتيجة الطلبة أخر العام ", 9, 19 CopyRow "نتيجة بالمجموع أخر", 9, 30 CopyRow "نتيجة بالمجموع نصف", 9, 16 'CopyRow "نتيجة الطلبة أخر العام ", 9, 12 Range("A1").Activate ' تحديث الشاشة Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

طريقه الاستخدام غير عدد الطلاب الموجود في الخليه C2 وليكن 14 واضغط زر نسخ صفوف انظر الى المسلسل في جميع الصفحات وكذلك المعادلات الموجوده في جميع الصفحات النتيجه تم نسخ صف البدايه بكل تنسيقاته ومعادلاته الى صفوف تحته بالعدد المطلوب فقط

بسم الله الرحمن الرحيم محاوله طيبه لتخفيف حجم شيت الكنترول بكود اكثر من رائع مجرد ان تكتب في الكود رقم صف البدايه في صفحات برنامجك وعدد الاعمده المطلوبه بشرط ان توحد صف البدايه في جميع الصفحات سيتم نسخ الصف التاسع ( صف البدايه ) بمعادلاته وتنسيقاته للصفوف بعدد الطلبه فقط مهما كان عددهم والمرفق سيوضح اكثر نسخ صفوف بتنسيقاتها 1.rar

للرفع للفائده

ربنا يبارك فيك استاذ ياسر العربي

جزاك الله كل خير وبارك فيك .. المعلومه مفيده جدا وخاصه لامثالي

For i = Sheets(shehada).Cells(9, 21).Value _ To Sheets(shehada).Cells(12, 21).Value من فضلكم اريد كتابه اسم الخليه بدل الارقام

الرابط يعمل ولك رابطا اخرا http://www.up-00.com/?9Bgx

مافائده رمز الشباك جزاكم الله خيرا ؟

ربنا يبارك فيكم يارب الاستاذ زيزو والاستاذ عبد السلام لو تكرمت اريد شرح للكود وعايز سطر لمسح العمود المنقول اليه اولا بس للأمانة أعجبني جداً كود أخي عبد السلام لأنه يتطرق لموضوع غاية في الأهمية وهو استخدام الـ SQL Connection أو ما يعرف بـ ADO جزاك الله خيرا استاذ ياسر والاستاذ عبد السلام هل يمكن القاء مزيد من الضوء على هذا الموضوع

جزاكم الله خيرا https://www.facebook.com/search/top/?q=الفارس رجب جاويش

جزاكم الله خيرا

مافائدة هذه الداله واي اصدار توجد فيها ؟

إن شاء الله لم تجد الرضا لوجود فيروس ... عموما جزاك الله كل خير

مجرد سوال كيف تصف رد الكلام بالرد الجميل ... ألا تعلم ان الجمال صفه تطلق على الزهور مثلا على لون السياره مثلا .. اليس كذلك يامدرس الازهر ؟ سوال تاني الم ترسل موضوع لك 5 مرات وقد ذكرها لك المحترم الخلوق بن عليه بانك مكرر الموضوع 5 مرات ؟ وفي هذا الموضوع الم تقل انك لم تكرر الموضوع وعندما اعطيتك رابط التكرار قلت انك محتاج الموضوع وهو هام بالنسبه لك يعني انك تقصد التكرار السوال الثالث .. اي هجوم شرس .. اين هو ؟

أي تعنيف ياهذا من سوال وجهته له ؟ السوال التاني موجه لك انت ... كيف جعلتك تكره المشاركه ؟ ارجو ايضاح ذلك لاخواني الكرام .. تقول ان فيه مشرف للصفحه .. ماعلاقه هذه الجمله بما سبق من كلامك !!!! ليس لها معنى وليس لها مكان بعد كلامك اليس فيه اسلوب افضل من ذلك .... هذا كلامك اذا اردت ان تتعلم فن الحوار والحديث فارجع الى مشاركاتي ومواضيعي ... وللحديث بقيه

================ ماسبق منقول من الفيس

احبتى فى الله السلام عليكم ورحمة الله وبركاته أتشرف اليوم بنشر الاصدار الأول من برنامج ( شئون الطلبة ) ـ للمرحلة الابتدائية [ روابط التحميل فى نهاية الاعلان ] *** مميزات البرنامج **** : 1 ـ البرنامج يوجد بنسختين للعمل على أوفيس 2003 أو أوفيس 2010 2ـ حجم صغير حيت لا يتجاوز الملف 1.3 MB فقط 3ـ برمجة عالية وسرعة فى الأداء. 4 ـ يحتوى على شئون الطلبة وكافة السجلات الإدارية 5 ـ قوائم الفصول والأنشطة الاختيارية : ــ حيث يتيح البرنامج الحصول على قوائم الفصول بحد أقصى 72 طالب فى الفصل ــ و يتيح الحصول على قوائم الفصول بحد أقصى 80 طالب فى الفصل الواحد . 6 ـ يقوم البرنامج باستخراج التلاميذ الموزعين على الأنشطة الاختيارية تلقائيا . 7 ـ سجلات قيد الطللاب من الصف الأول إلى الصف السادس 8 ـ تعليمات التشغيل الضرورية توجد على شكل ملاحظات داخل الأوراق . 9 ـ اسم المستخدم المبدئى هو Mohamed وكلمة المرور هى 2018 يمكن تغيير اسم المستخدم وكلمة المرور ---------------------------------------------- روابط التحميل : نسخة تعمل على أوفيس 2010 أو أعلى https://up.top4top.net/downloadf-557ngs9o1-rar.html نسخة تعمل على أوفيس 2003 https://up.top4top.net/downloadf-557krtmo2-rar.html -------------------------------------- وإليكم بعض الصور من داخل البرنامج أعجبنيعرض مزيد من التفاعلات تعليق ================ ماسبق منقول من الفيس

Sub قيم_فريده_مرتبة() Sheets("Sheet1").Range("D7:D150").Copy Sheets("Sheet4").Range("H7").PasteSpecial Paste:=xlPasteFormats ActiveSheet.Range("H7:H" & Range("H" & Rows.Count).End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes [H7:H500].Sort [H7], xlAscending End Sub xlPasteFormats هذه هي نقطه التغيير

Sub قيم_فريده_مرتبة() Sheets("Sheet1").Range("D7:D150").Copy Sheets("Sheet4").Range("H7").PasteSpecial Paste:=xlPasteValues ActiveSheet.Range("H7:H" & Range("H" & Rows.Count).End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes [H7:H500].Sort [H7], xlAscending End Sub ربنا يبارك في النافع .. يارب جزاك الله خيرا استاذ ياسر خليل

Sub قيم_فريده_مرتبة() Sheets("Sheet1").Range("D7:D150").Copy Sheets("Sheet4").Range("H7").PasteSpecial Paste:=xlPasteValues ActiveSheet.Range("H7:H" & Range("H" & Rows.Count).End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes [H7:H500].Sort [H7], xlAscending End Sub ربنا يبارك في النافع .. يارب جزاك الله خيرا استاذ ياسر خليل

'Public Sub DE_TQRAR() Sub نسخ() Sheets("Sheet1").Range("D7:D150").Copy Sheets("Sheet4").Range("G7").PasteSpecial Paste:=xlPasteValues ActiveSheet.Range("G7:G" & Range("G" & Rows.Count).End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes End Sub هل يوجد اي تعديل حفظك الله ؟ استاذ ياسر ما الفرق بين ال SUB و Public [G7:G500].Sort [G7], xlAscending اين اضع هذا السطر ؟

Sub نسخ() ' Sheets("Sheet1").Select Range("D7:D150").Select Selection.Copy Sheets("Sheet4").Select Range("F6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("F7").Select End Sub هل يمكن ان يخف عن كده يا استاذ ياسر ؟

كود خفيف ومفيد ولكنه يمنع التكرار في نفس صفحه البيانات لو تكون نتيجته في صفحة اخرى يكون رائع