-
Posts
447 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
1
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو أبوســـارة1973
-
السلام عليكم أورجو التعديل على هذا الكود 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 عند فتح الفورم وعند التغيير في التكست بوكس ينقل هذا التغيير في الخلية وهكذا في بقية الخلايا والطلب الآخر يعدل المسج بوكس ليسأل ( هل تريد تعديل البيانات ؟ ) في حالة اختيار (نعم )يقوم بالتغيير وفي حالة اختيار ( لا ) لا يغير أي شيء . وشكراً
-
الكتابة فقط بالاحرف الكبيرة في الخلية
أبوســـارة1973 replied to سك بابك's topic in منتدى الاكسيل Excel
thanks -
دلوني على رابط برنامج متابعة تجديد الوثائق الرسمية
أبوســـارة1973 replied to أبوســـارة1973's topic in منتدى الاكسيل Excel
نعم هذا هو البرنامج المطلوب جزاك الله خيرا يا بن ( ديرتي ) مملكتي الحبيبة البحرين في ميزان حسناتك يا عبدالله المجرب على فكرة من أي مدينة انت ؟ -
كود لجمع الخلايا ذات اللون المعين
أبوســـارة1973 replied to الـعيدروس's topic in منتدى الاكسيل Excel
جزاك الله خيرا ِ -
أين الملف المرفق ؟
-
("المسحوبات تجاوزت 50% من الإيداعات";"الرصيد أكبر من نصف الإيداعات";if(a2-(b2+c2)>(0.5*a2)= Hأرفق ملف لنضع لك المعادلة بشكل صحيح
-
برنامج تقويم الأداء الوظيفي للمعلمين
أبوســـارة1973 replied to أبوســـارة1973's topic in منتدى الاكسيل Excel
لقد اطلعت على الاكواد في الفورم الاول وطبقتها بنفسي على الفورم الثاني ألف شكر لك أستاذي الفاضل لقد تعلمت أشياء كثيرة من هذا الملف ومن غيره من اعمالك المتميزة -
تحديد القيمة الأعلى المسموح بإدخالها في التكست بوكس
أبوســـارة1973 replied to أبوســـارة1973's topic in منتدى الاكسيل Excel
شكرا أخي يا بن وطني الحبيب المقصود من الحد الأعلى = أكبر قيمة maximum وليكن مثلاً أن المطلوب إدخاله في التكست بوكس 1 يجب أن لاتكون أكبر من 10 بمعنى أن القيم المسموح بإدخالها في التكست بوكس1 هي الاعداد من ( 0 - 10 ) -
كود لاستخراج متوسط الربع الأخير
أبوســـارة1973 replied to أبوســـارة1973's topic in منتدى الاكسيل Excel
شكرا أستاذ دغيدي سبب طلبي لمتوسط الربع الأخير هو تحليل نتائج الطلبة ومعرفة مستوى الأداء لدى المعلم حيث يعطي متوسط الربع الاخير مؤشرا لأداء الطلبة والمعلم أكثر وضوحا من نسبة النجاح لدى صف معين فلو افترضنا أن نسبة النجاح لدى صف مكون من 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) الخاص بالتكست بوكس في انتظار ردكم
-
كود لاستخراج متوسط الربع الأخير
أبوســـارة1973 replied to أبوســـارة1973's topic in منتدى الاكسيل Excel
هل بمكن تعديل المعادلة بحيث تستبعد الخلايا الفارغة من النطاق المحدد ( D9:D38 )، حيث لاحظت ان الخلايا الفارغة تحسب صفرا أرجو المساعدة -
برنامج تقويم الأداء الوظيفي للمعلمين
أبوســـارة1973 replied to أبوســـارة1973's topic in منتدى الاكسيل Excel
أحسنت أستاذي بارك الله فيك برجاء تطبيق نفس الفكرة على الفورم الثاني الموجود في نفس الملف في ميزان حسناتك إن شاء الله -
طلب كود لمنع تكرار البيانات فى عمود فى الاكسيل
أبوســـارة1973 replied to ahmady2340's topic in منتدى الاكسيل Excel
من أعمال الأستاذ خبور 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 -
نصيحتي لك أن تصمم أنت بنفسك البرنامج بحسب رغبتك وتطلب الأكواد أو المعادلات لتكملة البرنامج من الأخوان في المنتدى بعد أن تشرح لهم المطلوب وعن نفسي سوف اساعدك بقدر استطاعتي والبركة في أعضاء المنتدى تمنياتي لك بالتوفيق والنجاح في مشروعك أخوك أبو سارة
-
المساعدة في عمل اسهم الفلتر بشكل عمودي
أبوســـارة1973 replied to م.مهند القانوع's topic in منتدى الاكسيل Excel
وبارك فيك وبك أخي EngMoh -
المساعدة في عمل اسهم الفلتر بشكل عمودي
أبوســـارة1973 replied to م.مهند القانوع's topic in منتدى الاكسيل Excel
السلام عليكم رحمة الله وبركاته أنا لست خبيرا في الاكسيل ولكن أتعلم من هذا المنتدى العامر هل هذا الملف الذي أرفقه لك يفي بالغرض ملاحظة : حدد الجدول الذي تريد فرز البيانات فيه ثم اضغط على الزر فلتر للبيانات بشكل صفي2.rar -
برنامج تقويم الأداء الوظيفي للمعلمين
أبوســـارة1973 replied to أبوســـارة1973's topic in منتدى الاكسيل Excel
للرفع -
برنامج تقويم الأداء الوظيفي للمعلمين
أبوســـارة1973 replied to أبوســـارة1973's topic in منتدى الاكسيل Excel
جزاكم الله خيرا في انتظار دعمكم -
برنامج تقويم الأداء الوظيفي للمعلمين
أبوســـارة1973 replied to أبوســـارة1973's topic in منتدى الاكسيل Excel
هل يمكن أحد يساعدني في المطلوب ؟ جزاكم الله خير المطلوب : عند اختيار معلم قد تم مسبقاً إدخال درجاته يعطي رسالة بذلك وإمكانية تغير درجاته أو إدخال درجات لمعلم آخر لم يتم إدخال درجاته . -
اريد معادلة تحل لي هذه المشكلة واظن انها lookup
أبوســـارة1973 replied to eng_montaser's topic in منتدى الاكسيل Excel
الأخ hben السلام عليكم ورحمة الله وبركاته عفوا : في حال أن معادلة أكبر قيمة ( max) غير موجودة في الصف رقم 15 فيحتاج إلى هذه المعادلة : =INDEX($C$5:$C$14;MATCH(MAX(D5:D14);D5:D14;0)) -
رجاء على وجه السرعة جزاكم الله كل الخير
أبوســـارة1973 replied to خير الايمان's topic in منتدى الاكسيل Excel
أحسنت أستاذ يحيى ولكن هناك خطأ في المعادلة لاحظت أن المجموعة الأولى سليمة تبدأ من الرقم الأول 12450 وتنتهي 12500 وعليه فإن من المفترض أن تبدأ المجموعة الثانية من الرقم 12501 ولكن بحسب معادلتك فإنها تبدأ من الرقم 12550 وهكذا في بقية المجموعات حيث تتجاوز 50 رقمافي بداية كل مجموعة أرجو الانتبهاه لهذا الخطأ -
تجارب ومناقشات ادخال خطة اتوماتيكية للفصول
أبوســـارة1973 replied to عبدالله باقشير's topic in منتدى الاكسيل Excel
السلام عليكم ورحمة الله وبركاته أستاذي الكبير عسى المانع خير إذا كان بالإمكان تنفيذ طلبي ( تفريغ الحصص في الجدول بحسب الاختيار فردي أو زوجي ) تحياتي -
كود أو فورملا لاستخراج تواريخ الغياب
أبوســـارة1973 replied to أبوســـارة1973's topic in منتدى الاكسيل Excel
الأستاذ طارق ( أبو زياد) أحسنت وبارك الله فيك الأستاذ ولد المجرب ( أبو أحمد ) شكرا لمرورك الكريم -
كود أو فورملا لاستخراج تواريخ الغياب
أبوســـارة1973 replied to أبوســـارة1973's topic in منتدى الاكسيل Excel
جزاك الله خيرا أستاذي أبوأحمد نعم هذا بالضبط ما أريده فكرة ذكية أخي وفقك الله وأعطاك ما تتمنى في وأسبغ عليك نعمه ظاهرة وباطنة أما الحل الذي لجأت إليه أنا فهو متواضع ويفتقر إلى الحرفية أرجو أن تتطلع عليه اسم المستخدم في الملف المرفق: farabi وكلمة المرور : 1234 ملاحظة: لتفعيل الماكرو اضغط : Ctrl+SHIFT+J إذا لم أكن أثقل عليك أخي فهل يمكن أن تجعل الخلية J28 مجموع أيام الحضور وفي الخلية L28 مجموع أيام الغياب (في ملفك الذي أرفقته في مشاركتك الأخيرة ) عاجز عن شكرك أخي طارق برنامج فرز أيام الغياب للموظفين.rar