بوب2016

حاضر اخي New student.rar

كود البحث عن الاسم لا يعمل .. عند كلمة اسم التلميذ داخل الكود يعطي لون اصفر في الكود ..لماذا ؟

السادة أعضاء المنتدى الكرام ممكن التصوب لكلمة ( اسم التلميذ) في الكود .. مرسل الملف للإطلاع والإفادة للجميع New student.rar

بارك الله فيك ... هذا الملف أرسلته لأخ فاضل مثلك هنا في الموقع عدل بعض الأخطاء وإرساله لي ولكن لم يفتح معي مثل الأول كما في الصورة 2007

إخوتي في الله عندما أفتح الاكسس لملف معين لا يستجيب هذا الملف تم تعديله و ارسله احد الاحباب هنا بعد تحميله لا يستجيب للفتح

أستاذي العزيز المهندس المحترم / صالح أولا:اشكر سيادتك على مجهودك وتعبك معي ثانيا: عند الفتح تظهر رسالة (لا يمكن التعرف على تنسيق قاعدة البيانات) ولا يفتح الأكسس أشكرك على تعبك معايا

هل يمكن ارفع الملف في مكان واضع الرابط هنا ؟؟ الملف حجمه 1.55 بعد الضغط https://mab.to/V3yW5r3x5 رابط الملف

اخواني في الله اعضاء المنتدى وخبراء الاكسس والله تعبت ثلاث ايام أدور حول صور المشكلة.rarنفسي.... يارب ألاقي الحل ..شرحت المشكلة بالصور..المشكلة الأولى بعمود الإدارة يعطي أرقم بدل من أسماء الإدارة وذلك في جدول ( بيانات المعلم ، بيانات المعهد ) أما جدول ( يعطي اسم إلادارة ) فهو صحيح المشكلة الثانية عند إظهار التقرير يظهر بيانات إدارات في إدارة واحدة .. موضح لسيادتكم بالصور ملحوظة الملف بعد الضغط 1.54 M

كل عاااااااااااااام وانتم بخير جميعا .. عيد مبارك عليكم ومثل الايام العام القادم كلكم تزوروا الرسول الحبيب ( صلى الله عليه وسلم ) وانا معكم

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

السلام عليكم استاااااااااااذي الدكتور الجراح يااااااااسر بك اجدع مفصل اكواد انا هبعت لك الملف اللي في المشكلة ليه الموقع لا يرفع ملف 7 M > امانة عليك تكتب لي الكود عشان الدنيا دخلت معايا في بعضها انا كتبت الكود ده بس متضحك علي ...هههههههههه اخذته بكل ما فيه Sub لجان() 'إلغاء تحديث الشاشة لتسريع عمل الكود Application.ScreenUpdating = False 'مسح نطاق النتائج في الورقة الهدف لوضع البيانات المرحلة مع كل تنفيذ للكود Sh.Range("B14:C300").ClearContents 'حلقة تكرارية من الصف رقم 6 في الورقة المصدر إلى آخر صف For I = 6 To wsLast 'اختبار ما إذا كانت الخلية في الورقة المصدر في العمود الخامس 'تساوي قيمة خلية شرط الترحيل فإذا تحقق الشرط If Ws.Cells(I, 5).Value = Crit Then 'يتم ترحيل البيانات رقم الجلوس والاسم من الورقة المصدر إلى الورقة الهدف 'الجملة تبدأ بالورقة الهدف حيث أول تعامل سيكون مع الصف رقم 14 في العمود الثاني 'لتمديد النطاق ليشمل خلية أخرى في نفس الصف [Resize] وتستخدم كلمة '[B14:C14] أي أنه في أول حلقة تكرارية سيشار إلى الخلايا 'بعد علامة يساوي نساوي قيم الخلايا بقيم الخلايا في ورقة المصدر '[C6:D6] وهنا بعد علامة يساوي نشير إلى الخلايا Sh.Cells(iRow, 2).Resize(1, 2).Value = Ws.Cells(I, 3).Resize(1, 2).Value 'بعد الترحيل يتم زيادة مقدار المتغير بمقدار 1 للانتقال 'إلى الصف التالي وهو هنا في أول حلقة كان الصف 14 فيزيد 'بمقدار واحد ليصبح المتغير بقيمة 15 أي أن التعامل 'في الحلقة التالية سيكون مع الصف رقم 15 لوضع نتائج جديدة iRow = iRow + 1 'نهاية جملة الشرط الذي يساوي الخلية بشرط الترحيل End If 'الانتقال للحلقة التالية أي الصف التالي وهو هنا سيكون 'الصف السابع في ورقة المصدر أي الورقة التي يتم الترحيل منها Next I 'بنفس أول قيمة وضعت له في الكود [iRow] إذا ظل المتغير المسمى 'هذا يعني أنه لم تتم عملية ترحيل واحدة حيث أن المتغير لا يزيد إلا 'إذا تحقق الشرط الموجود داخل الحلقات التكرارية ، ومن ثم فهذا 'يعني أنه لم تتم عمليات ترحيل فنظهر رسالة للمستخدم تفيد بذلك If iRow = 14 Then MsgBox "No Data In This Class", vbExclamation 'استعادة خاصية تحديث الشاشة Application.ScreenUpdating = True End Sub ()لجانSub Sheets("توزيع الشفوي").Range("B5:E295").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("K1:K2"), CopyToRange:=Range("B13:C13"), Unique:= _ False End Sub

يا جماعة انا عملت العملية بس المريض كان مصيف لوحده .. هههههه اعذروني بالله عليكم وطولوا بالكم شوية اخوكم مصطفى جايب مجموع ضعيف ودخل الكلية بالكوسة ..

Sheets("توزيع الشفوي").Range("B5:E295").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("K1:K2"), CopyToRange:=Range("B13:C13"), Unique:= _ False كل الكود ده بالاصفر

اخي الكريم / زيزو .. اولا اسف على الازعاج..هناك مشكلة عندما نسخت ( توزيع الشفوي و شفوي ترم أول ) بكل الابعاد الصفوف والاعمدة الي شيت الكنترول ( 7 M ) لا يعمل التوزيع الا اذا فتح ملف التمهيد معه ..وعندما نقلت ملف التمهيد من الكمبيوتر نهائي لا يعمل التوزيع ..عملت ملف خارجي وجربت لكن كالسابق لا يعمل الا اذا فتح ملف التمهيد مع الشكر لكم جميعا تجربة1.rar تمهيد.rar

الاخ المحترم العزيز / ياسر خليل انا اسف على تعبك معايا ..في مشكلة هنا عندما نقلت الورقتين كما هما بكل الابعاد الي شيت الكنترول لم تستجيب ورقة شفوي دور أول للتغيير الا اذا فتحت حاولت رفع شيت الكنترول كله ..وجدت مساحته7 ميجا

الان شاهدت رد الاستاذ / زيزو وردك ورد الاستاذ ياسر ايضا الجديد لضعف النت عندي يااااارب يعزكم جميعا وبارك الله فيكم وحفظم الله من كل شر استاذي الفاضل الاخ / زيزو .. السلام عليكم ورحمة الله بارك الله فيك انت و الاستاذ الشهابي والسيد العزيز / ياسر اشكر حضرتك اسف للتأخير في الرد لاني لم اشاهد رسالتك لضعف النت عندي ولم اشاهد رسالة الاخ / ياسر ايضا .الرجاء المعذرة ......... شبكة النت عندي قيل انها 1 ميجا وهي اصلا لاتتعدى 512 حسبي الله ونعم والوكيل سامحوني على التقصير تقبل مني كل احترامي لك وتقديري انت والاخ المحترم / زيزو و الاخ الفاضل /الشهابي

عزيزي العضو ( المحترف جدااااااااااااااااااااااا ) / الشهابي الله يزيدك علم ونور ، حفظك الله ايه الجمال ده والعبقرية .. فعلا المنتدى ده قمة الروعة بالقائمين عليه وأعضائة الكرام اشكرك يا باشمهندس الشهابي واشكر استاذي الدكتور ياسر خليل من كل أعضاء المنتدى

اخي الحبيب ياسر السلام عليكم * ورقة العمل ( المصدر ) هي ورقة توزيع الشفوي ( عمود E ) وهو رقم لجنة الطالبة ** سوف اكتب في الورقة المراد الترحيل اليها بالأخضر وهي ورقة العمل شفوي دور أول وارفعها ان شاء الله تعالى *** كل من هي في لجنة ( 1 ) تكون في ورقة منفصلة ومن خلال الضغط على زر زيادة ونقصان يتم تغيير الورقة الي لجنة ( 2 ) مع ظهور اسماء الطالبات لجنة ( 2 ) وهكذا تمهيد.zip

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

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

لا انا بهزر معاك او زي ما بيقولوا بنكشك ما فيش عك ... انا سعيد انك تحدثت معك النهاردة مرتين ..بس قولي اما يكون معايا امور صعبة كيف اكتب العنوان .. ااما العتاب لا عتاب هو انا حابب اشوف ردك وكلامك في صفحتي

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

الرجاء من اخوتي بالمنتدى مساعدتي في عمل كشف مناداة بدوال مصدره شيت الطالبات واسماء الطالبات المقيد بكل لجنة تجربة 02.rar

هل يمكن عمل شريط متحرك في صفحة الاكسيل مثلا اية قرأنية او حديث شريف ؟؟؟ وان كان ما الكود او ما الطريقة ؟؟ مع الشكر للجميع

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