أ / محمد صالح

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ............... إلى عشاق الحديث إلى الباحثين عن التطوير ...... أهدي أحبابي أعضاء ومشرفي أوفيسنا طريقة التمتع بأفضل نسخة ويندوز حتى الآن Windows 8 Consumer preview ويندوز 8 للمعاينة فالنسخة النهائية ستصدر في أكتوبر 2012 بإذن الله ............ والجميل في الموضوع أنه على قرص صلب وهمي حتى لا نخسر نسختنا الحالية من ويندوز 7 .............. شرح طريقة تثبيت نسخة ويندوز 8 للمعاينة وليست النسخة النهائية فالنهائية ستصدر بإذن الله في أكتوبر 2012 الخطوات حمل Windows 8 Consumer preview من هذا الرابط http://windows.micro...S/windows-8/iso ثم قم بحرقها على dvd خطوات إنشاء القرص الصلب الوهمي .................. start cmd (run as administrator Or ctrl+shift+enter) diskpart create vdisk file=d:\Win8.vhd type=expandable maximum=30000 select vdisk file=d:\Win8.vhd attach vdisk create partition primary exit (diskpart) exit (cmd) ............... restart boot from cd/dvd .............. shift+f10 diskpart select vdisk file=d:\Win8.vhd attach vdisk exit (diskpart) exit (cmd) ........... قم بإتمام خطوات التثبيت المعروفة ولا تنسوا أخاكم محمد صالح من صالح دعائكم

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

بارك الله لك أخي سعيد يظهر بفضل الله التركيز رجع وكمان روح الدعابة أضحك الله سنك ولا فض فوك ......... يا أخي الله يكرمك أنا لسة معلم بس لا مدير ولا وكيل زي البحيري إحنا ناس على قدنا يا عم سعيد ......... وفق الله الجميع لما يحب ويرضى

الأخ الكريم سعيد اعتمدت في المعادلة السابقة أنه لا يوجد مسميات غير مدير ومدرس وادارى ولكن وجدت في الملف الجديد مسميات أخرى فتم تعديل المعادلة إلى ما يلي: =IF(OR(A2="مدير",A2="مدرس"),IF(SUM(F2:L2)>=TRUNC(E2*200%,2),"",TRUNC(E2*200%,2)-SUM(F2:L2)),TRUNC(E2*92%,2)) جرب وأخبرني بالنتيجة

أخي الكريم سعيد على حسب فهمي للمطلوب جرب هذه المعادلة وأخبرني بالنتيجة =IF(A1="ادارى",C1*92%,IF(SUM(E1:K1)>=C1*200%,"",C1*200%-SUM(E1:K1)))

يوجد لدينا احتمالين أولهما إذا كان المجموع أكبر من 200% والثاني هو إذا كان المجموع أقل من 200% ............ ما المقصود بـ وان لم يكن إعطى C1*92% فالاحتمال الثالث هو التساوي تساوي المجموع مع 200% فهل هذا هو المقصود بغير ذلك ؟

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

تقبل الله منكم صالح الأعمال ولا تنسانا من صالح دعائك

إنا لله وإنا إليه راجعون اللهم ارض عنها وأدخلها جنتك ولا تخط عليها ولا تدخلها النار اللهم ألهم أهلها الصبر والأجر والخلف بخير

ما شاء الله بارك الله لكم جميعاً إخوتي وبعد إذن أخي ابا نصار وأخواي عبد الله تفضل أخي الكريم Creation World أتمنى أن يكون هذا ما تريد mas_ChangeHexColor2Rgb.rar

بارك الله لكم أخواي أ / الخالدي و أ / رجب جاويش التهنئة لكم والفائدة للجميع وفقكم الله لكل ما يحب ويرضى

تفضل أخي الكريم ابا تميم هذا الإجراء يفتح الصورة في المسار المذكور من سيادتكم في البرنامج الافتراضي لعرض الصور الرسام الانترنت اكسبلورر Sub openpic() Shell "rundll32 shimgvw.dll , ImageView_Fullscreen D:\DATA\PICTUR\" & [b3] & "\" & [c3] & ".jpg" 'Shell "mspaint D:\DATA\PICTUR\" & [b3] & "\" & [c3] & ".jpg", 1 'ActiveWorkbook.FollowHyperlink Address:="D:\DATA\PICTUR\" & [b3] & "\" & [c3] & ".jpg" End Sub ينبغي ربطه بالزر وكذلك استعمال طريقة واحدة

ما شاء الله نعم التعاون على البر والتقوى ربنا يوفق الجميع للخير في الدنيا والآخرة

تفضل أخي الكريم ضع هذا الكود في موديول جديد ثم قم بربطه بالزر الموجود في الشيت Sub newcode() Dim oldtstr As String, newstr As String oldstr = Range("B6").End(xlDown).Value newstr = Mid(oldstr, 5) + 1 ActiveSheet.Range("d6").Value = Mid(oldstr, 1, 4) & Format(newstr, "000") End Sub ولكن أعتقد أنه ينقص شيء وهو إضافة الكود الجديد لقائمة الأرقام الحالية في حالة ما إذا تم استعماله

أخي الكريم أبي تميم لعمل هذا التسلسل قم بالآتي: ضع هذه المعادلة في الخلية التي بها أول مسلسل ="CCR-"&TEXT(ROW(A1),"000") ثم قم بنسخ المعادلة لباقي الصفوف للحصول على التسلسل التالي أتمنى أن يكون هذا هو المطلوب

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

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

أهلا بأهل كفر الزيات ترقية مستحقة وتميز ملحوظ أستاذ أحمد وفقك الله لكل ما فيه صالح العملية التعليمية ألف مبروك الترقية

أخي أحمد الحروف التي تظهر لك هي حروف اللغة العربية بترميز windows-1256 ولكي تظهر لك الحروف مظبوطة غير ترميز الصفحة إلى utf-8 وذلك من خلال قائمة view ثم character encoding في متصفح فاير فوكس وفي انترنت اكسبلورر في قائمة view ثم encoding وهكذا في أي متصفح اختر utf-8 من الترميز encoding أما بالنسبة للأخطاء الأولى فهي تخص لغة المواقع php وهي تظهر أحياناً في حالة وجود عطل في السيرفر أتمنى أن يكون هذا هو المطلوب

أخي الكريم أعتقد أنه ما دامت قيم الحروف ثابتة يمكنك كتابة الأرقام بدلاً من الحروف مباشرة وجمعها بدالة sum وإلا ما الفائدة من استبدال الرقم بحرف؟!!

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

أخي الكريم سعد مضمون الطريقة التي أخبرنا بها الأخ الشهابي عن أخينا أحمد زمان هي نفسها التي أخبرك بها الأخ طارق مع ميزة الاختصار وللجمع بين الدالة التي كتبها الأخ طارق ودالة الأخ أحمد زمان استعمل هذه المعادلة في الخلية C9 =SUMPRODUCT(--(INDIRECT(B9&"!$B$8:$B$100")<=$H$5), --(INDIRECT(B9&"!$B$8:$B$100")>=$C$5),INDIRECT(B9&"!$k$8:$k$100")) وأخبرني بالنتيجة لأنه كان هناك خطأ في كتابتنا للمعادلة من الذاكرة ولم أنتبه أن المدى الأخير يخص العمود k وليس b

شكرا لمرورك أخي طارق مش عارف فاتت علي إزاي الحيلة دي؟؟!! يمكن لانشغالي بموضوع الدوال .... بالفعل أخي عبد الله الموضوع يحتاج فقط لتغيير تنسيق الخلايا مرفق ملفك أخي سعد بعد التعديل السيارات.rar

أشكر جميع المشاركين في الموضوع بفضل الله تم الانتهاء من مجموعة الدوال الموجودة في الفئة المنطقية excel-functions.rar

شكرا لمرورك أخي طارق هذا ما كنت أفكر فيه عمل ملف يحوي جميع الدوال بمعلومات تفصيلية عنها وأمثلة وهذا ملفي بعد التعديل تم إضافة عمود لبناء جملة المعادلة تم إضافة شيت لكل دالة تم إضافة حقول جديدة في صفحة الدالة تم الربط بين الجميع والفهرس باستخدام الارتباط التشعبي تم اعتماد تنسيق ملفات إكسل 2007 وما بعدها XLSX وذلك لمتابعة العمل مع الدوال الحديثة في إكسل 2007 و 2010 وعددها 75 دالة وأيضا لسرعة حفظ الملف حيث يستهلك حفظ الملف بصيغة xls فترة زمنية كبيرة جداً .................. أتمنى من جميع الإخوة التواصل في هذا الموضوع قدر الاستطاعة وملء جميع الحقول عن كل دالة حسب وقت فراغ كل منا ............... طريقة تنفيذ المشروع * الاعتماد على آخر ملف تم رفعه حتى يكون الملف به آخر التحديثات التي قام بها الإخوة الزملاء (ويفضل حذف الملفات التي تم صدور نسخة أحدث منها حتى لا يتشتت الأعضاء) * يمكن للجميع المشاركة بخبرته أو بالنقل من تعليمات إكسل 2010 http://office.micros...010369014&CTT=4 **************** أنا أعمل الآن على الدوال في الفئة (النصية) وفقنا الله وإياكم لكل ما يحب ويرضى اللهم احفظ مصر وأهلها من كل سوء