اسلام مسلم

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

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

السلام عليكم ورحمة الله وبركاته تحية صادقة لحضراتكم ارجو الافادة فى سؤالى هذا وجزاكم الله عنا كل خير المطلوب معادلة في العمود X اذا كان الطالب معيد في العمود K يتجاهل المواد الأخرى التي رسب فيها وهذا طبقا للقانون لبكون ناجح بحكم القانون وباقى التلاميذ ناجح فقط المطلوب.xls

اعتقد تثبيت هذا السطر Dim strFirst As String, strLast As String Application.DisplayAlerts = False ThisWorkbook.Save قبل الحفظ يفى حاليا بالغرض .. والله اعلم

تم العثورعلى كود قد يفى بالغرض لان المشكلة هى ربط الكود بـــــ ComboBoxــــكمبوبوكس مرتبط ببيانات من لدية طريقة افضل وابسط اتمنى مشاركته شكرا جزيلا حذف عدد من الصفحات.rar تم تجربة الكود ويعمل بنجاح وبدون اى مشاكل تذكر فقط باقى حفظالملف بدون رسالة تأكيد الحفظ من ميكروسوفت الكود Private Sub Box1_Change() Me.Box2.Text = Me.Box1.Text Label32.Caption = Label32.Caption - 1 If Label32.Caption = 0 Then Range("C13:Z571").Select Selection.ClearContents Range("C13").Select Dim NM As String Dim CTS As Integer Dim CNT2 As Integer Dim CNT3 As Integer CNT3 = 2 CNT2 = 2 CTS = Sheets.Count Do Until CNT2 = CTS + 1 NM = Sheets(CNT3).Name If Name = "Report" Then Range("A1").Select CNT3 = CNT3 + 1 Else Sheets(NM).Select Application.DisplayAlerts = False ActiveWindow.SelectedSheets.Delete Application.DisplayAlerts = True End If CNT2 = CNT2 + 1 Loop ThisWorkbook.Save Application.Quit End If End Sub

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

لا املك غير انى اقول لحضرتك شكرا جزيلا وربنا يحفظك يا استاذنا / عبدالله باقشير وجعله الله فى ميزان حسناتك

السلام عليكم ورحمة الله وبركاته تحيتى الصادقة المعطرة بالحب والعرفان للسادة الكرام الرجاء المساعدة في عمل فورم لتسجيل البيانات بشكل عمودى في ورقة العمل " رئيسية " العمود C بدء من C9 مع إمكانية التنقل بالسهم في الفورم وإمكانية التسجيل لبعض البيانات او اكمالها في اى وقت اخر دون تأثر البيانات المدخلة سابقا مع امكانية التعديل عليها في حالة الخطأ . مع اخفاء واظهار جميع اوراق العمل ما عدا START عمل فورم لتسجيل البيانات بشكل عمودى.rar

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

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

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

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

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

هل من حل لطلبى الثانى فى المشاركة

الحمد لله تم اهاء الحماية شكرا لكما وبارك الله فيكما استودعكم الله

هذه مشاركة من اخى الفاضل المحترم الاستاذ KHMB ليستفيد الاعضاء منها Option Explicit Private Sub Workbook_Open() If Date > DateValue("1/5/2015") Then If InputBox(" فضلا أدخل كلمة السر ") <> "الله أكبر" Then Kill_Myself End If End If End Sub Private Sub Kill_Myself() With Me .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With End Sub

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

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

ممكن رد منالاخوة الافاضل

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

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

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

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

لا اله الا انت سبحانك انى كنت من الظالمين

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ارجو من السادة الاعضاء ذو الخبرة جزاكم الله كل خير وزادكم الله علما وتواضعا برجاء عمل المطلوب فى الملف المرفق وهو معرفة البنين الحاصلين على درجة اقل من 25 في العمود c ,وفى نفس الوقت الحاصلين على اقل من 10 في العمود B مع عدم حساب الخلايا التى تختوى على الصفروطلبى الثانى ممكن كيفية قفل ملف بعد شهر اوشهرين من فتحه بباس ورد معين شكرا لحضراتكم فى رعاية الله وحفظه المطلوب.rar