عبد الفتاح كيرة

السلام عليكم

مستفاد من شروح أخرى

لمنع المسافة الفارغة قبل و بعد محتوى الخلية

باستثناء الفراغات بين الكلمات

اختر بيانات

التحقق من صحة البيانات

مخصص

واكتب المعادلة الموجودة بالمرفق

منع المسافة قبل و بعد محتوى الخلية.zip

شكرا

أعمال رائعة

ألا يوجد أى معادلات؟

شكرا

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

وهذه أخرى منقولة أيضا

2010-calendar.zip

أشكرك يا مزلزل

ثبتنا الله و إياك

شكرا على الكلام الطيب لعمل متواضع

لكنه يخدمنى جيدا على أرض الواقع

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

هذا عن الرسائل

فماذا عن إعدادات الحسابات ؟

السلام عليكم

رأيت الجداول قد كثرت

فقلت أريكم جدولى الخاص

لا تتوقعوا مميزات كثيرة

ترحيل بيانات ماكروهات ...

أبدا

ومع ذلك فهو يعمل بصورة أوتوماتيكية

طريقة العمل

استبدل بالأسماء الموجودة فى العمودين أقصى اليمين و أقصى اليسار

استبدل بها أسماء المدرسين بمدرستك

سيقدم لك البرنامج الاستخراجات التالية

1 - جدول كل مدرس ( 5 جداول فى الصفحة يمكن تغييرها من القائمة على اليسار )

2 - جدول الإشراف ( جدول مستخرج من الجدول العام - يفيد المشرف اليومى يجمع فيه الحصص بالنسبة لكل فصل )

3 - جدول الفصل ( يعلق داخل الفصل - يمكن تحديد الفصل من القائمة على اليسار )

4 - جدول لكل يوم على حدة بدءا من الأحد إلى الخميس

5 - جاهز لطباعة كل ذلك .

أرجو الاطلاع و إبداء الآراء

و الملف مفتوح بمعادلاته

وشكرا لمن نفعنا الله بهم فى هذا المنتدى المفيد

جدولى.zip

للرفع

لا مزيد من الردود ؟

شكرا لتعاونك أخى

كمبيوتر العمل عليه أوفيس 2003 و نفس المشكلة قائمة

أطلب تعاون باقى الإخوة من لديه معلومة لا يبخل بها علينا

وشكرا للجميع

ممتاز جدا خليك معايا

عندنا مشكلتان

الأولى الناتج الخطأ كما يظهر بصورتك الثانية

و السبب فى هذا

أن الدالة مصممة للحساب إلى تاريخ 1-10

يعنى يوم 1 فهذه حالة خاصة

لكن يمكن تعديل ذلك

بمقارنة عدد الأيام فى التاريخين و ليس الثابت 1

وقد قمت بتصحيح المعادلة لتقارن الأيام بين أى تاريخين

المشكلة الثانية

و هذه هى المشكلة الحقيقية

الدالة فعلا عندى تستلف 31 يوما و ليس 30

ربما كان السبب

أوفيس 2007 الذى أستخدمه

أو

وندوز 7 الذى أعمل عليه أيضا

لعلك تتعاون معى لمعرفة السبب فى المشكلة الثانية

وأى إصدار تستخدم ؟ من أوفيس 2003 -- 2007

وشكرا لتعاونكم

تصحيح المعادلة.zip

كنت أستخدم دالة

datedif

لحساب فرق الأيام و الشهور و السنين بين تاريخ الميلاد و أول أكتوبر 2009 مثلا

و تعمل هذه الدالة بشكل جيد

لكنى اكتشفت أنها إذا كانت الأيام المطروحة أكبر من 1 فإنها " تستلف" شهرا من عدد الشهور

وهو هنا 10

و لكنها تستلف الشهر 31 يوما

و ما هو معتاد

أننا عند حساب الفرق بين التواريخ

نستلف شهرا ب 30 يوما فقط

التعديل فى طريقة الحساب

قمت بحساب الشهور و الأعوام عن طريق الدالة

أما الأيام

فحسبتها بهذه المعادلة

بالمرفق

أرجو لو كان هناك معاملات لهذه الدالة تجعلها تستلف الشهر 30 يوما فأفيدونا أفادكم الله

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

أفضل طريقة لحساب السن.zip

هذا فعلا ما فهمته

نفذ الآتى :

اذهب للورقة الثانية " التابعة للأولى "

حدد نطاق الخلايا التى تريدها و المساوية للنطاق فى الورقة الأولى

مثلا

a1:f10

بعد التحديد اكتب فى خانة الصيغة =

انقر مفتاح الورقة الأولى

حدد النطاق

a1:f10

اضغط

كنترول + شيفت + مفتاح الإدخال

سينتج عن هذا صفيف فى الورقة الثانية يتبع تماما أى تغيير فى الورقة الأولى

لاحظ أنه لا يمكن التعديل فى الصفيف بالورقة الثانية

أرجو أن أكون أفدتك

شكرا

آسف لأن الملف اختلط مع ملف بموضوع آخر

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

مرحبا

كيف نفتح الكتاب و هو محمى بكلمة سر ؟

زر عرض النتيجة بآخر كوده أمر حفظ ملف

ActiveWorkbook.Save

شكرا وجزاك الله خيرا

شكرا للردود

لو ضغطت مفتاح

كنترول

+

`

و هو المفتاح الذى تحت مفتاح

esc

مباشرة

سيتحول العرض للشيت

من عرض قيم الخلايا

إلى عرض

الصيغ الموجودة بكل خلية

و من ثم يمكنك الطباعة و الاحتفاظ بمعادلاتك

مساهمة بسيطة

لا أظنها تخفى عليكم

و عليكم السلام و رحمة الله

شكرا أخى

bosh

نعم الكعكة الحمراء لها رونق و جاذبية خاصة

أوافقك

أخى سالم

أنا أيضا أحد التلاميذ

خاصة فى هذه الأكواد

أما كيفية العمل

فهذا كود عادى لتلوين الخلية بلون أحمر فى حال كانت أقل من 40 " على سبيل المثال "

لكن الرائع فى هذا الكود هو أنه يعمل بمجرد كتابة القيمة فى الخلية و ضغط مفتاح الإدخال

وليس عن طريق زر ماكرو

فإذا كتبت فى خلية مثلا الرقم 39 و انتقلت لخلية أخرى أو ضغطت مفتاح الإدخال

فعلى الفور سيطبق الكود و يتحول لون الخط إلى أحمر

و لو كتبت مثلا رقم 55 فستجد الخط أزرق

أما السبب فى هذا التنفيذ الفورى

هو أننا وضعنا الكود فى الحدث

SheetChange

و الذى يعنى أى تغيير فى خلايا الشيت

وهكذا أى كود يوضع فى هذا الحدث

سيتم تنفيذه مع أى تغيير لأى خلية

أما شرح الكود

فهذا أمر أنا فيه من التلاميذ

لكن قدر المستطاع

السطر الأول بعد الإعلان

يبدأ حلقة تكرارية عن طريق المتغير i

حيث يأخذ قيمة من 1 إلى 123

و هى عدد الصفوف المراد تطبيق الحلقة عليها

و هو غالبا عدد أسماء التلاميذ فى الشيت

السطر التالى جملة if

إذا كانت الخلية a1 أقل من 40 نفذ الآتى

غير لون خط الخلية إلى الأحمر

واجعل الخط ثخينا " سميكا "

و إلا

اجعل لون الخط أزرق و سميكا

وطبعا تنفذ الحلقة على القيمة التالية للمتغير i

فيفحص الخلية a2

و هكذا

======= انتهى الشرح المتواضع

شكرا أيضا للأخ

samnaj00

بارك الله فيكم

فى العمود A

إذا كتبت أى قيمة أقل من 40

اجعل لون الخط أحمر

و إذا كانت غير ذلك

اجعل لون الخط أزرق

يتم تنفيذ ذلك بمجرد الانتهاء من تعبئة الخلية

و ليس بضغط زر آخر

أليس هذا بديلا عن الدوائر الحمراء ؟

أحتاج آراء الخبراء بهذا الكود

لقد وضعته فى

Workbook_SheetChange

هل من تعديل

أرجو التجاوب

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For i = 1 To 123
If Cells(i, 1) < 40 Then
Cells(i, 1).Font.color = vbRed
Cells(i, 1).Font.Bold = True
Else
Cells(i, 1).Font.color = vbBlue
Cells(i, 1).Font.Bold = True
End If
Next

End Sub

Book1.rar

أعتقد مع هذه الدالة يجب فرز الجدول المستخدم معها

وإلا تحدث نتائج غير متوقعة

أنا فرزت الجدول

و جاءت النتائج سليمة

حياك الله أخى

وشكرا لمتابعتك

لا داعى للكتابة

حدد داخل الخلية المطلوب إدراج التاريخ بها

انقر زر التقويم

حدد العام و الشهر و اليوم

انقر إغلاق

سيتم إدراج التاريخ الذى اخترته فى الخانة المحددة

PERSONAL.rar