shreif mohamed

يجب عليك تغيير System local language to Arabic " language for non-unicode" from control panel - region & language

ولكن ليس دائما المجموع في الصف رقم ٧ اكبر من ٨ time_omran.xlsx

ربما يكون هنا بعض المعادلات في ملف العمل والتي يتم تحديثها بشكل تلقائي مثل الوقت والتاريخ وبالتالي فإن ظهور رساله حفظ الملف هو أمر طبيعي واذا كنت تريد أن لا يتم الحفظ عند غلق الملف قم بتغير true الي false ولكن لن يتم حفظ اي تعديل حتي ولو قمت به بنفسك لذا تأكد من الحفظ بشكل تقليدي عن القيام بالتعديل CTRL + S

يحدث هذا مع استخدامك لبعض المعادلات التي يتم تحديثها عند فتح ملف العمل مثل الوقت والتاريخ

Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False ActiveWorkbook.Close SaveChanges:=True End Sub ضع الكود في workbook event

وعليكم السلام تفضل test-1.xlsx

تفضل Sample-2.xlsx

listbox with filter-1.xls

يمكنك عمل هيدر عن طريقة كتابة الكودالآتي في بداية اكواد الليست بوكس Listbox1.columnheads = true ويتوجب عليك تعديل مدي بيانات الليست بوكس بحيث لا تشمل الهيدر

Book1 (Recovered)-1.xlsm

هل معني ذلك ان لو طالب جميع المواد عنده اكبر من او يساوي 50 وهناك فقط مدتان درجة كل واحدة منهما 48 درجة فلا يتم رفع المادتان ؟؟؟؟

وعليكم السلام تفضل color.xlsm

شكرا اخي لكلماتك الطيبة واريد ان توضح لي بعض الاستفسارات كمايلي : هل يتم تطبيق هذه القاعدة بعد ان استوفي الطالب درجات الرافة الــ 20 درجة ، اي يكون له 30 درجة جديدة ثم بعد ذلك يتم تطبيق شروط الرافة كما ذكرت ام ان درجات الرافة كاملة هي 30 ثانيا بالنسبة للشروط لتطبيق ال 30 درجة اريد تاكيدك علي مايلي يتم اعطاء الطالب لدرجات الرافة في الحلات التالية 1- ان تكون المادة لا تقل عن 40 درجة 2- لا يتم تطبيق الرافة الــ 30 في حالة رسوب الطالب في مادتين فقط حتي ولو كانت درجاتهم ابتداء من 40

تفضل اخي اخي وعزرا للتاخير لانشغالي في بعض الامور ارجو الدعاء لي بظهر الغيب Book11(2) .xlsm

وعليكم السلام ورحمه الله وبركاته لم افهم طلبك اخي ارجو الاستفاضة في التوضيح وكل عام وانتم بخير

مارفقته هو class module وليس يوزر فورم اذا كنت قد كتبت الكود داخل هذا الكلاس موديول قم بنقله داخل اليوزر فورم الموجود به x1 , x2

قم بتحميل اليوز فورم فقط عن طريق الوقوف علي ثم عمل تصدير ال سطح المكتب

قم بتحميل اليوز فورم فقط عن طريق الوقوف علي ثم عمل تصدير ال سطح المكتب

ممكن ترفق الملف

ضع الكود في حدث change لي x2 X1.value =x2.value

تفضل الكود وقم باستدعائه كيفما شئت Option Explicit Sub sh14jun2018() Dim rng1, rng2, rng3 As Range Dim i, j, x As Long Range("d11").CurrentRegion.Interior.Color = xlNone Range("d" & Rows.Count).End(xlUp).Offset(, 1) = "" Set rng1 = Range("e11", Range("e11").End(xlDown)) i = rng1.Rows.Count - 2 Set rng1 = Range("e11", Range("e11").Offset(i)) Set rng1 = Range(rng1, rng1.End(xlToRight)) j = rng1.Columns.Count Select Case j Mod 2 Case Is = 0 j = j / 2 rng1(j).Select Selection.Resize(i + 1).Select Selection.Interior.Color = 49407 Set rng2 = Range(Selection, Selection.End(xlToLeft)) x = Application.WorksheetFunction.Sum(rng2) Range("E" & Rows.Count).End(xlUp).Offset(1) = x Case Is > 0 j = Int(j / 2) + 1 rng1(j).Select Selection.Resize(i + 1).Select Selection.Interior.Color = 49407 Set rng2 = Range(Selection, Selection.End(xlToLeft)) x = Application.WorksheetFunction.Sum(rng2) Range("E" & Rows.Count).End(xlUp).Offset(1) = x End Select End Sub

تفضل عدد المواد.xls

يرجي اعادة تجربة الملف مره اخره تظليل.xlsm

يجب عليك فحص هذا الخيار في كل ملف وتاكد من عدم وضع علامة صح عليه ثم حفظ الملف من قائمة file - options - advanced ثم من تبويب when caclulating this workbook ازل علامة الصح من use 1904 date system

جزاك الله خيرا وكل عام وانتم بخير