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

بعد اذن أستاذى الحبيب / عبد الله باقشير أخى الفاضل يمكنك اضافة السطر التالى فى بداية الكود Application.DisplayAlerts = False

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

لقد طرح أخي ومعلمي الجليل الأستاذ // عبدالله باقشير "حفظه الله " وجزاه عنا خير الجزاء , في ابداع سابق له (( قــوائم مخصصة علي الفورم باستخدام - CommanBars)) علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=44506 وعمله الذي فتح بوابة كبيرة امام استخدمات الاكسيل وتمكنه من التحكم بالاكواد وتطويعها جزاه الله خيرا وجعل كل اعماله في ميزان حسناته وارجوا منه السماحة انني استخدمت عمله وطبقته علي موضوع شئون الموظفين الاصدار الثاني - النسخة التجريبية لوجود اخطاء بالنسخة الاولي فاهدي عملي المتواضع كلمة المرور 2300 جعل الله جميــــــع اعمالنا خالصة لوجه الكريم والله ولي التوفيق شئـون الموظفيين الاصدار الثاني نسخة تجريبية.rar

السلام عليكم ورحمة الله وبركاته صباح الخير موضوعي اليوم متشعب قليلا ولا ادري ما هو البرنامج المناسب ليخدمني في العمل، هل (الاكسل او الاكسس) سوف اطرح عليكم موضوعي بإختصار قدر المستطاع بداية : انا موظف في جهة حكومية ، وظيفتي مراقب ومتابعة السيارات من حيث : 1. دخولها وخروجها من موقع العمل. 2. متابعة صرفية الوقود (درهم / باللتر)+ حساب المسافة المقطوعة بالكيلومتر. 3. متابعة سير حركة المركبة من موقع العمل الى الجهة المقصودة. 4. متابعة الوقت المستغرق من وقت انتهاء مهمة السيارة الى وقت عودتها الى مقرها. سوف اتطرق الى شرح كل نقطة على حدى. بالاضافة الى استخراج تقارير شهرية عن كل سيارة من حيث (الادارة او القسم المستفيد). في المشاركة التالية سوف ارفق النموذج الذي استخدمه حاليا في برنامج الورد موضحا عليه بعض الامور لتوصيل الفكرة. هل يوجد لديكم برنامج جاهز لنفس الفكرة المطروحة ؟

السلام عليكم نموذج للدليل المحاسبي اربعة مستويات بالامكانيات التالية: 1- العمل على نموذج فارغ 2- اضافة حذف جذور(1-9) 3- امكانية اضافة 99 حساب للرئيسي وفروعة الاخرى نموذج للدليل المحاسبي ثلاثة مستويات شاهد المرفق 2003-2010 نموذج للدليل المحاسبي 4 مستويات.rar

بسم الله الرحمن الرحمن إِنَّ اللَّهَ سَيُبْطِلُهُ إِنَّ اللَّهَ لَا يُصْلِحُ عَمَلَ الْمُفْسِدِينَ * وَيُحِقُّ اللَّهُ الْحَقَّ بِكَلِمَاتِهِ وَلَوْ كَرِهَ الْمُجْرِمُونَ صدق الله العظيم السادة الاخوة والآخوات فلنرفع سويا أكف الدراعة لله عز وجل بقلب صادق بأن يتم شفاء نجلنا جميعا ونجل الحبيب الغالى الاستاذ والآخ والصديق / ضاحى الغريب أبوعمرو يقول الشافعي رحمه الله يريد المرء أن يعطى منـاه .................ويأبـى الله إلا مــا أرادا قول المرء فائدتي ومالـي ............وتقوى الله أفضل ما استفادا ولرب نازلةٍ يضيق لها الفتى .......ذرعاً وعند الله منها المخرج ضاقت فلما استحكمت حلقاتها .......فرجت وكنت أظنها لا تفرج وقال أيضاً في الرضا بقضاء الله وقدره دع الأيام تفعـل مـا تشـاء......وطب نفساً إذا حكم القضـاء ولا تجزع لحادثـه الليالـي......فما لحوادث الدنيا من بقـاء وكن رجلاً عن الأهوال جلداً.....وشيمتك السماحـة والوفـاء وأن كثرت عيوبك في البرايا......وسرك يكـون لهـا غطـاء تستر بالسخاء فكـل عيـبٍ..........يغطيه كمـا قيـل السخـاء ولا ترى للأعـادي قـط ذلاً..........فإن شماتـة الأعـداء بـلاء ولا ترجو السماحة من بخيـل.......فما في النار للظمـآن مـاء ورزقك ليس ينقصه التأنـي......وليس يزيد في الرزق العناء ولا حزن يدوم ولا سـرور...........ولا بؤس عليـك ولا رخـاء إذا ما كنت ذا قلـب قنـوعٍ..........فأنت ومالـك الدنيـا سـواء ومن نزلت بساحتـه المنايـا.........فلا أرض تقيـه ولا سمـاء وأرض الله واسعـة ولكـن........إذا نزل القضاء ضاق الفضاء دع الأيام تغـدر كـل حيـن..........فما يغني عن الموت الـدواء والمسلم لاينسى أن العطاء قد يكون في المنع وان وراء كل محنة منحة ونحن نعلم يقينا ان الله سبحانه لم يبتلينا ليعذبنا بل ليرحمنا فمهما كان الابتلاء شديدا فلا بد ان يكون وراءه خيرا كثيرا وكما ذكرت لك أخى الحبيب سيفتح الله بابا كنت تحسبة من شدة اليأس لم يخلق بمفتاح فأبشر وبشر الصابرين بصلاة الله ورحمته وهدايته حمدا لله تعالى على كل حال اللهم إشفى عمرو بن ضاحى شفاءا لايغادرسقما وأن يجعله سندا لكم إنه ولى ذلك والقادرعليه قبلاتى الحارة لعمرو وتحياتى لكم ولجميع افراد الآسرة الكريمة

لدى ملف به عمودين من الأسماء 1 به 1100 إسم والعمود الثانى به 1300 إسم منها 1000 إسم بالعمود الأول المطلوب 1. أن أحدد الأسماء فى العمود الثانى التى لا توجد فى العمود الأول بتظليلها 2. أحدد الأسماء فى العمود الأول التى لا توجد فى العمود الثانى بتظليلها أو البديل تظليل الأسماء المكررة فى العمودين الأسماء بالعمودين B , H

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

برجــــاء كل من يعرف شيئا عن الزميل الخلوق جمال الفار يخبرنا فورا لأنه كان وسط الثوار فى ميدان التحرير وأين أنت ياأخى / أبو حنين لا تغب عنا = = = = = = = == اسرتكم تناديكم

أستخدم هذه الدالة أخى =TRIM(LEN(A2))

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

نعم الصحبة استاذي دغيدي

السلام عليكم أخى /اسلام الشيمى شكرا لكم ولكنها الصحبة

اخي الكريم // وبعد أذن اخي العزيز الأستاذ المبدع // حمادة عمر (روح المنتدي) الجميلة عملك اكثر من رائع وبداية جميلة وقوية ووفقك الله والشكر موصول للمبدع حمادة عمر وشرحه الجميل المبسط جعله في ميزان حسناته وجزاه عنا كل خير بالنسبة ما طلبت بالملف المرفق وحاول تطبقه مرة اخري علي الملف عندك مرة واتنين حتي تتقن العمل وفقك الله دائما وان احتجت اي شيء لا تتردد في طلبه اخي الكريم لك دعوة طيبة منا بتغيير اسم ظهورك الي اللغة العربية عبر http://www.officena.net/ib/index.php?showtopic=41520&pid=235673&&&page=2#entry235673 حسب سياسة المنتدي وحتي يمكنك التواصل بسهولة ثلاجة.rar

السلام عليكم و رحمة الله وبركاته اخي بو نورة بالإضافة الى حل استاذي الفاضل المهندس طارق اضف حرف a في بداية التاريخ الهجري سوف يتحول التاريخ الى قيمة رقمية يمكنك الطرح منها او الجمع عليها او تحويلها الى تاريخ ميلادي او استخدم هذه الدالة لتحويل التاريخ الهجري الى قيمة رقمية =IF(ISNUMBER($a$10);SUM($a$10);IF(ISERROR(VALUE("a"&$a$10));FALSE;VALUE("a"&$a$10))) مع التحية

السلام عليكم الأخ العزيز إذا كان التاريخ الهجري رقما فاستخدم المعادلة التالية =30-VALUE(RIGHT(TEXT(A10,"[$-1170401]B2"),2)) وإذا كان التاريخ الهجري ليس رقما كما في حالتك هذه فاستخدم المعادلة التالية =30-VALUE(RIGHT(A10,2))

اخي الكريم شاهد المرفق : هل هو المطلوب ؟ طريقة أخري بالكود اعلمني بالنتيجة test3.rar

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

السلام عليكم لاثراء الموضوع تفضل جرب هذا الكود Sub M_ALI() Application.ScreenUpdating = False Q = [C15000].End(xlUp).Row Cm = Chr(10) & "غير موجود في عمود D" For R = 4 To Q If Application.WorksheetFunction.CountIf([D2:D500], Cells(R, 3)) = 0 Then With Cells(R, 3) .Interior.Color = RGB(255, 0, 0) .AddComment Text:=Cm .Comment.Visible = True .Comment.Shape.TextFrame.AutoSize = True End With End If Next RO = [D15000].End(xlUp).Row Cm1 = Chr(10) & "غير موجود في عمود C" For R = 4 To RO If Application.WorksheetFunction.CountIf([C4:C500], Cells(R, 4)) = 0 Then With Cells(R, 4) .Interior.Color = RGB(255, 0, 0) .AddComment Text:=Cm1 .Comment.Visible = True .Comment.Shape.TextFrame.AutoSize = True End With End If Next Application.ScreenUpdating = True End Sub

أخى يوسف السلام عليكم هذا الكود يظلل المكرر فى العمودين Sub ragab() LR1 = [B10000].End(xlUp).Row LR2 = [H10000].End(xlUp).Row '================================================ Range("B2:B" & LR1).Interior.ColorIndex = xlNone Range("H2:H" & LR1).Interior.ColorIndex = xlNone '================================================ For Each cl In Range("B2:B" & LR1) For Each cll In Range("H2:H" & LR2) If cl <> "" And cl = cll Then cl.Interior.ColorIndex = 3 cll.Interior.ColorIndex = 3 End If Next Next End Sub

الأخ طارق محمود والأخ بوعلام وجميع الاخوة الكرام لو تكرمتم وأضفتم مطلوب معين وهو : الحارس 1 يكون رئيس حجرة وبشرط أن يكون أستاذ من التعليم الثانوي بمعنى أني وضحت في المرفق كل من الأساتذة : فريد و الياس و كريمة يكونون في الخانة ح1 ولا يمكن أن يكون رئيسين في حجرة واحدة . جدول ...حراسة2.rar

تقبل الله طاعتكم اللهم اقبل اللهم امين