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

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

كل عام وأنتم بخير تقبل الله منا ومنكم صالح الاعمال والطاعات

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

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

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

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

كل عام وانتم بخير بمناسبة شهر رمضان المبارك أعاده الله علينا وعليكم وعلي الأمة الأسلامية بالخير واليمن والبركات

تفضل اخي الكريم المطلوب ويرجى تغيير اسم الظهور للغة العربية ومرحبا بك في منتديات اوفيسنا Book1.rar

أخي الكريم انظر لتلك المعادلة =SUMPRODUCT(--($D$2:$D$50="متزوج"),--($C$2:$C$50>75000)) يمكن ببساطة وضع علامة زائد في آخر المعادلة وتكرار نفس المعادلة مرة أخرى وتغيير كلمة "متزوج" إلى "متزوجة" ليحقق لك الهدف إن شاء الله بهذا الشكل =SUMPRODUCT(--($D$2:$D$50="متزوج"),--($C$2:$C$50>75000))+SUMPRODUCT(--($D$2:$D$50="متزوجة"),--($C$2:$C$50>75000)) أرجو أن يفي بالغرض

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

شكرا ل أبي حنين على مبادرته الطيبة.. و قد حاولتُ حتى اهتديت إلى طلبي ، مع أني لست خبيرا بالأكواد ، و لكن بفضل الله وصلت إلى بغيتي ، و لتعم الفائدة أرفقت الملف. me.rar

تفضل اخي الكريم ابو البراء سبقنا مشكور على الحل تقبل تحياتي sortColorYasser.rar

Sub sabah() Dim lr1 As Integer Dim lr2 As Integer lr1 = [b1000].End(xlUp).Row With Sheets("ورقة2") lr2 = .[b1000].End(xlUp).Row + 1 .Range("b" & lr2) = Range("b" & lr1) .Range("c" & lr2) = Range("c" & lr1) .Range("e" & lr2) = Range("e" & lr1) .Range("h" & lr2) = Range("h" & lr1) .Range("g" & lr2) = Date End With ActiveSheet.Rows(lr1).ClearContents MsgBox ("تم ترحيل البيانات بنجاح") End Sub

كل عام وأنتم إلى الله أقرب وعلى طاعته أدوم

السلام عليكم. طبعا أخي الحبيب ياسر - بارك الله فيك وفي علمك - لأخواني حق ولهذا الصرح العلمي حق ولكنني كنت انتظر الانتهاء من التعديل الأخير على البرنامج لكي أضعه كاملاً بين أيدي أخواني وهو اظهار شعارات الشركة واسم الشركة في الفورم لتظهر على الورقة بعد الطباعة ولكن طالما طلبت ذلك يا أخي الحبيب فسوف أضعه الآن مرفق في هذه المشاركة ولربما تساعدني في طلبي. وجزاك الله خيرا. تنظيم المعاملات.rar

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

تقبل الله منك عملك خالصا وجزاك الله عما تنفع به اخوانك خير مبارك عليك أخى عبد السلام العوافى تقبل منى تحياتى

السلام عليكم ورحمة الله أخواني الكرام وعلمائنا وأساتذتنا العباقرة في هذا الصرح العملاق والأكثر من رائع بعد إنتهاء ولله الحمد من برمجة برنامج شؤون الموظفين والمرتبات ونشره في الموقع منذ فترة وجيزة على هذا الرابط برنامج شؤون وإدارة الموظفين بحلته وشكله الجديد أحببت اليوم بعد طلبات من الاصدقاء أن أقوم برفع البرنامج مفتوح المصدر لكي تتم الفائدة منه في كافة النواحي العلمية والعملية وذلك من (خلال الكودات وطريقة التصميم) ماعليكم سوا فك الضغط عن الملف المرفق وتنصيب البرنامج بكل سهولة وفي الاخير تفعيل الماكرو يعمل البرنامج على كافة أنظمة ويندوز وكافة نسخ أوفيس من 2007 ومافوق لاتنسونا من الدعاء بظهر الغيب في هذه الايام المباركة الملف بامتداد zip هو الملف كاملا Office Soft.Employ & Salary-Source.zip Office Soft.Employ _ Salary-Source.rar

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

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

استاذ ياسر اشكرك جدا وجزاك الله خيرا فهمت الان ان المعيار فى الرقم الثانى من ناحية اليمين فى الرقم القومى لو كان فردى يبقى النوع ذكر ... ولو كان زوجى يبقى النوع انثى

اخي محمد مدحت اولا اشكرك على الرد ولكن بالفعل عملت برنامج خاص بي للصادر والوارد حسب احتياجاتي وينقصني بالفعل ارفاق المستندات الخاصة سواء بالصادر او الوارد وبحثت بالفعل ولم اتمكن من اخذ الفكرة وتنفيذها عندي بالبرنامج . فلو تكرمت حضرتك او الاخوة بالمنتدى يعمل خير ويعملها لنا على البرنامج اخي محمد مدحت لما ترجع من الطريق ان شاء الله :) للتوضيح انا عايز ارفق المستندات من السكانر مباشرة سواء بالصادر او الوارد

شكرا لك مهندسنا العزيز على البرنامج لاكثر تميزا في مضمونه وبنيته الاحترافية باركك الله وزادك من واسع فضله وحفظك من كل سوء وعلمك ما تكن تعلم ووسع عليك من نعمائه وابعد عنك عضبه وعذابه

ألف ألف مليون مبروك الأخ الفاضل / عبد السلام أبو العوافي على الترقية المستحقة مع مزيد من التقدم والرقى

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

اخى ابو العقاب اولا .... اول صف به بيانات هو الصف رقم 18 الموجود به اول اسم طالب وبه درجاته المراد وضع الدوائر عليها والبيانات الموجوده فى الصفوف السابقه للصف 18 ليست لها قيمه ثانيا ... صف النهايات الصغرى (المعيار ) يجب ان يكون سابقا لاول صف للدرجات تحياتى

تفضل المرفق الشهادات نهائي مع ترحيل وترتيب الأوائل والدوائر.rar

تم تحديث الاوفيس

لم افهم المطلوب جيدا .. لكن جرب هذا الكود الخلية A2 =1 ضع في الخلية A3 الاتي =IF(SUMPRODUCT(--(B3&C3=$B$2:B3&$C$2:C3))=1;A2+1;A2)

هذه خصائص الحقل في الجدول جرب والصق داخل الجدول فإن قبل اللصق فمشكلتك في النموذج انظر خصائصه في النموذج لسان التبويب بيانات وانظر القيمة : قاعدة التحقق من الصحة

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

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

السلام عليكم نعم اذهب الى خصائص الحقل في الجدول القيمة مفهرس : ستجدها غير قابلة للتكرار بياناتك اعلاه مكررة

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

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

لم أعمل على أوفيس 2003 منذ أمدٍ بعيد عموماً يمكن الالتفاف حول المسألة والاستعانة بدوال معرفة لتساعدك في الأمر Function GetBackgroundColor(MyRange As Range) GetBackgroundColor = MyRange.Interior.ColorIndex End Function Function GetFontColor(MyRange As Range) GetFontColor = MyRange.Font.ColorIndex End Function هاتين دالتين الأولى تتعامل مع لون الخلفية للخلايا والثانية تتعامل مع لون الخط أو الكتابة للخلايا (حسب ما تريد) يمكن في عمود مساعد استخدام المعادلة اعتماداً على الدالة المعرفة ثم بعدها يمكنك الفرز حسب العمود المساعد قم بتحميل الملف المرفق لتتضح لك الصورة تقبل تحياتي Sort By Color In Excel 2003 YasserKhalil.rar

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

السلام عليكم اخى الكريم قمت بعمل تعديلات بسيطة اولا انشات جدول لاسماء العملاء وارقام هويتهم حيث افترضت ان لكل عميل رقم هويه ثابت خاص به تقوم انت بادخاله عند توريد الشهر وفرت عليك كل هذا فعند اختيار اسم العميل يقوم البرنامج باستدعاء الرقم الخاص به (رقم الهويه) فائد رقم الهويه هى انه من خلاله استطيع البحث داخل جدول المدفوعات حيث افترضت ان لكل عميل رقم محدد يمكنك مشاهدة طريقة صورة خاصة تحركة بطريقة عمل برنامجك من هنا http://recordit.co/CKn9qm2Gfk استعملت الكود التالى حيث ان الكود لا ياخذ التاريخ كله من حقل الشهر فى الجدول بل ياخذ من التاريخ الشهر فقط ويقانه بالشهر الموجود فى النموذج مع الربط برقم هوية العميل If IsNull(fid) Then MsgBox "برجاء كتابة هوية العميل" Exit Sub End If If IsNull(PayMony) Then MsgBox "برجاء كتابة المبلغ المدفوع" Exit Sub End If If IsNull(monthfild) Then MsgBox "برجاء كتابة شهر الدفع" Exit Sub Else Dim Y As Date Y = Nz(DLookup("monthfild", "databace", "id=" & Me.fid), 0) If Month(monthtext) = Month(Y) Then MsgBox "عفوا تم تسجيل هذا الشهر مسبقا لهذا العميل", vbInformation, "مكرر" Else DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO databace " & "(id,monthfild,namee,WorkPlace,PayMony,Mountfild) VALUES " & "(fid, monthtext,fname, WorkPlace ,PayMony,Mountfild);" DoCmd.SetWarnings True MsgBox "تم سداد الشهر بنجاح" End If End If المرفق الخاص بك maysoon.rar

كل سنة وانتم بخير اخى ضاحى كل سنة وكل المشرفين والمراقبين والاخبراء والاعضاء بالف خير رمضان كريم اللهم بلغنا رمضان

موفق يا رب ، و لا حرمك أجر نفع الناس و لا حرمنا علمك

اخى عبدالسلام الف الف مبروووووووووووووووووك الى الامام وفقكم الله

كل سنة وانتم بخير اخى ضاحى كل سنة وكل المشرفين والمراقبين والاخبراء والاعضاء بالف خير رمضان كريم اللهم بلغنا رمضان

بلغني الله واياكم الشهر الكريم ونحن بصحة وعافية .. وكل عام والامة الاسلامية بخير

السلام عليكم جرب هذا Rs.FindFirst ("[t_name ] ='" & F_name & "' Or [t_mobile]='" & F_mobile & "'") و اذا كان تنسيق عمود تلفون رقما Rs.FindFirst ("[t_name ] ='" & F_name & "' Or [t_mobile]=" & F_mobile)

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تعديل فورم يقوم (باضافة وتعديل) بيانات تم ارفاق كود الحل من المبدع / عبدالله باقشير و لا تنسونا من صالح الدعاء تحياتى فورم يقوم (باضافة وتعديل) بيانات.rar

و عليكم السلام و رحمة الله و بركاته ... استعمل الكود التالي ... Private Sub Form_Current() If ID = 0 Then Me!ID.BackColor = vbRed Else Me!ID.BackColor = vbWhite End If End Sub

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

اخى الكريم اضف هذا المعيار فى الاستعلام حيث تريد الاستثناء Not In ("بيروت";"طرابلس";"بكفيا";"كسروان";"فتوح")

لا يوجد تفعيل ماكرو اوتوماتيك اما يدوي او عن طريق ملفات الريجستري المرفقة واما اجبار التشغيل عن طريق ملف تنفيذي اخر يقوم بفتح الملف او تحويله لتنفيذي Enable Macros.rar

الاستاذ / الفاضل محمد أبو البراء كل عام وأنتم بخير - أدعو الله أن تكون بخير وسلام ورمضان كريم - أستأذن حضرتك أن ترسل لي شيت الازهر الثانوي بعد التعديل وجزاكم الله خيرا