أبوســـارة1973

السلام عليكم أخي عبدالله أنا من المنامة أسكن في إسكان ســار تفضل الملف المرفق : المطلوب : عند الضغط على الزر يفتح الفورم ويعرض في التكست بوكس 1البيانات المدونة في الخلية D6 وفي التكست بوكس 2 اليبانات المدونة في الخلية D7 وفي التكست بوكس 3 البيانات المدونة في الخلية D8 علما بأن الزر الموجود في أسفل الفورم يظل في حالة Visibleحتى يتم تغيير القيم يتحول إلى Enable شكرا لاهتمامك

السلام عليكم أورجو التعديل على هذا الكود Private Sub CommandButton1_Click() Sheet2.Select Sheet2.Cells(4, 3).Value = TextBox1.Value Sheet2.Cells(5, 3).Value = TextBox2.Value Sheet2.Cells(6, 3).Value = TextBox3.Value MsgBox Prompt:=" تم تعديل البيانات بنجاح", Title:="رسالة تأكيد" End Sub ليقوم بعرض البانات المدونة في الخلية رقم ( 4.3) في تكست بوكس رقم 1 عند فتح الفورم وعند التغيير في التكست بوكس ينقل هذا التغيير في الخلية وهكذا في بقية الخلايا والطلب الآخر يعدل المسج بوكس ليسأل ( هل تريد تعديل البيانات ؟ ) في حالة اختيار (نعم )يقوم بالتغيير وفي حالة اختيار ( لا ) لا يغير أي شيء . وشكراً

thanks

نعم هذا هو البرنامج المطلوب جزاك الله خيرا يا بن ( ديرتي ) مملكتي الحبيبة البحرين في ميزان حسناتك يا عبدالله المجرب على فكرة من أي مدينة انت ؟

السلام عليكم ورحمة الله وبركاته اطلعت منذ فترة على برنامج يعنى بمتابعة تجديد الوثائق الرسمية ( جواز أو رخصة قيادة أو بطاقة سكانية أو غيرها ) في هذا المنتدى والآن انا محتاج إليه فقمت بالبحث عنه ولكن دون جدوي من يستطيع أن يدلني على رابط هذا الموضوع فلا يبخل علي لحاجتي الماسة إليه .

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

أين الملف المرفق ؟

("المسحوبات تجاوزت 50% من الإيداعات";"الرصيد أكبر من نصف الإيداعات";if(a2-(b2+c2)>(0.5*a2)= Hأرفق ملف لنضع لك المعادلة بشكل صحيح

لقد اطلعت على الاكواد في الفورم الاول وطبقتها بنفسي على الفورم الثاني ألف شكر لك أستاذي الفاضل لقد تعلمت أشياء كثيرة من هذا الملف ومن غيره من اعمالك المتميزة

شكرا أخي يا بن وطني الحبيب المقصود من الحد الأعلى = أكبر قيمة maximum وليكن مثلاً أن المطلوب إدخاله في التكست بوكس 1 يجب أن لاتكون أكبر من 10 بمعنى أن القيم المسموح بإدخالها في التكست بوكس1 هي الاعداد من ( 0 - 10 )

شكرا أستاذ دغيدي سبب طلبي لمتوسط الربع الأخير هو تحليل نتائج الطلبة ومعرفة مستوى الأداء لدى المعلم حيث يعطي متوسط الربع الاخير مؤشرا لأداء الطلبة والمعلم أكثر وضوحا من نسبة النجاح لدى صف معين فلو افترضنا أن نسبة النجاح لدى صف مكون من 20 طالبا في مادة ما هي 90 في المئة فهذه نسبة يمكن أن تخدعنا إذا لم نتعمق في التحليل ، فهذه النسبة تعني أن 18 طالبا نجحوا في المادة ، وطالبين فقط راسبان في المادة . ويمكن أن يكون ال 18 طالبا نجحوا بالحد الادني 50 في المئة بينما إذا وجدنا أن نسبة النجاح لدى صف آخر هي 70 في المئة فهذا بعني ان 6 طلاب راسبون في المادة ، وإذا تعمقنا في تحليل هذه النتيجة يمكن أن نجد ان 14 طالبا نجحوا بدرجة اكثر من 90 /100 وهذا يعني أن الصف الثاني أفضل من الصف الاول في الاداء . ولكن لو حكمنا على الصفين من خلال نسبة النجاح فلن يتبين لنا ذلك أرجو أن أكون قد وفقت لشرح الهدف من استخراج متوسط الربع الاخير لدرجات الطلاب أخوك أبو سارة

Private Sub TextBox20_Change() TextBox39.Value = Val(TextBox14.Value) + Val(TextBox16.Value) + Val(TextBox18.Value) + Val(TextBox20.Value) + Val(TextBox22.Value) + Val(TextBox24.Value) + Val(TextBox26.Value) TextBox35.Value = Val(TextBox2.Value) + Val(TextBox4.Value) + Val(TextBox6.Value) + Val(TextBox8.Value) + Val(TextBox10.Value) + Val(TextBox12.Value) + Val(TextBox14.Value) + Val(TextBox16.Value) + Val(TextBox18.Value) + Val(TextBox20.Value) + Val(TextBox22.Value) + Val(TextBox24.Value) + Val(TextBox26.Value) + Val(TextBox28.Value) + Val(TextBox30.Value) + Val(TextBox32.Value) End Sub أريد التعديل على هذا الكود ليقوم أيضا بتحديد أكبر قيمة مسموح بإدخالها في التكست بوكس أو إذا كانت هناك طريقة يمكن تحديد من خلال ( properties) الخاص بالتكست بوكس في انتظار ردكم

هل بمكن تعديل المعادلة بحيث تستبعد الخلايا الفارغة من النطاق المحدد ( D9:D38 )، حيث لاحظت ان الخلايا الفارغة تحسب صفرا أرجو المساعدة

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

من أعمال الأستاذ خبور Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim CC As Integer, C As Integer Dim sR As String Dim MyRng As Range Set MyRng = Range("n8:Aw78") If Not Intersect(Target, MyRng.Cells) Is Nothing Then Application.EnableEvents = False CC = MyRng.Column - 1 C = Target.Column - CC sR = MyRng.Columns(C).Address If Application.CountIf(Range(sR), Target.Value) > 1 Then If MsgBox(" this value was enter" & vbLf & vbLf & "Do you want to continue? ", 16 + vbYesNo + 524288 + 1048576, "Note") = vbNo Then Target.ClearContents End If End If Kh_ColorIndex Range(sR) Application.EnableEvents = True End If On Error GoTo 0 End Sub

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

وبارك فيك وبك أخي EngMoh

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

للرفع

جزاكم الله خيرا في انتظار دعمكم

هل يمكن أحد يساعدني في المطلوب ؟ جزاكم الله خير المطلوب : عند اختيار معلم قد تم مسبقاً إدخال درجاته يعطي رسالة بذلك وإمكانية تغير درجاته أو إدخال درجات لمعلم آخر لم يتم إدخال درجاته .

الأخ hben السلام عليكم ورحمة الله وبركاته عفوا : في حال أن معادلة أكبر قيمة ( max) غير موجودة في الصف رقم 15 فيحتاج إلى هذه المعادلة : =INDEX($C$5:$C$14;MATCH(MAX(D5:D14);D5:D14;0))

أحسنت أستاذ يحيى ولكن هناك خطأ في المعادلة لاحظت أن المجموعة الأولى سليمة تبدأ من الرقم الأول 12450 وتنتهي 12500 وعليه فإن من المفترض أن تبدأ المجموعة الثانية من الرقم 12501 ولكن بحسب معادلتك فإنها تبدأ من الرقم 12550 وهكذا في بقية المجموعات حيث تتجاوز 50 رقمافي بداية كل مجموعة أرجو الانتبهاه لهذا الخطأ

السلام عليكم ورحمة الله وبركاته أستاذي الكبير عسى المانع خير إذا كان بالإمكان تنفيذ طلبي ( تفريغ الحصص في الجدول بحسب الاختيار فردي أو زوجي ) تحياتي

الأستاذ طارق ( أبو زياد) أحسنت وبارك الله فيك الأستاذ ولد المجرب ( أبو أحمد ) شكرا لمرورك الكريم