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 ساعات مضت, عبد القادر محمد مهدى said:

- الطالب له 30 درجة بدلاً من  20    ويتم رفع المادة من 40

لكن بشروط

 

هل يتم تطبيق هذه القاعدة بعد ان استوفي الطالب درجات الرافة الــ 20 درجة ،  اي يكون له 30 درجة جديدة  ثم بعد ذلك يتم تطبيق شروط الرافة كما ذكرت

ام ان درجات الرافة كاملة هي 30

ثانيا بالنسبة للشروط لتطبيق ال 30 درجة اريد تاكيدك علي مايلي 

 يتم اعطاء الطالب لدرجات الرافة في الحلات التالية

1- ان تكون المادة لا تقل عن 40 درجة

2- لا يتم تطبيق الرافة الــ 30  في حالة رسوب الطالب في مادتين فقط  حتي ولو كانت درجاتهم ابتداء من 40

20 ساعات مضت, عبد القادر محمد مهدى said:

تفضل اخي  اخي وعزرا للتاخير لانشغالي في بعض الامور

ارجو الدعاء لي بظهر الغيب

Book11(2) .xlsm

8 ساعات مضت, Khalf said:

السلام عليكم

عمل أكثر من رائع و لكن ماذا لو أردنا أن يكون التقسيم بناء على مجموعة من القيم في خلايا .

لقد حاولت مع الكود الذي وضعه الأخ ALI MOHAMED ALI

ومع الكود الذي وضعته مشكوراً لكن الأمر لم ينجح سوى مع خلية واحدة

var = Replace(rng2, Range("f1").Value, "\")

كيف أجعله يقبل نطاق من الخلايا

شكراً لك و كل عام و أنت بخير

وعليكم السلام ورحمه الله وبركاته

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

مارفقته هو 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

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