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

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

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

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

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

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

برنامج صغير لحساب السن اول اكتوبر لرياض الاطفال والصف الاول الابتدائي استخراج تاريخ الميلاد والمحافظة مع فصل كل من المستوى الاول في صفحة والمستوي الثاني في صفحة والصف الاول كذلك مع زر ترتيب من الاكبر سنا الى الاصغر وهناك شاشة لدخال البيانات او تستطيع ادخال البيانات والتعديل من ورقة العمل حساب السن لرياض الاطفال والصف الاول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 ساعات منذ طرح الموضوع ولم تجد مشاركة واحدة ، ربما بسبب عدم التوضيح التام للمسألة داخل الموضوع نفسه عموماً تم تغيير العنوان ليعبر عن الطلب بشكل أفضل ، وإليك الملف الذي عسى أن يلبي طلبك إن شاء الله حمل الملف من هنا

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

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

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

برنامج لحساب ضريبة كسب العمل للعاملين بالقطاع الحكومى بمصر طبقا لتعديلات القانون 2013 و 2014 ومرفق شرح للبرنامج على الرابط http://arabsh.com/files/0c324d4b64fa/برنامج الضرائب والتعليمات الخاصه بتشغيله.rar.html

مرحبا جرب اخي الملف تعديل كود ترحيل123456.rar

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

ضع في الخلية A3 الكود الاتي واضعط كنترول شفت انتر =IF(SUMPRODUCT(--(B3&C3=$B$2:B3&$C$2:C3))=1;MAX($A$2:A2)+1;INDEX($A$2:A2;MATCH(1;--($B$2:B2&$C$2:C2=B3&C3)))) وفي الخلية A2 =1

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

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

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

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

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

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

على الاقل طبقت الفكر له على الاسماء والفلترة عشان توصل المعلومة اما حبيبي ابو البراء دائما سباق بالخير واحب اقولك Checkmate

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

عليكم السلام اولا يجب نقل جميع الملفات التشغيلية التي يعتمد عليها البرنامج dll ' ocx الى الجهاز الجديد وتسجيلها من المعوقات التي يكثر حدوثها : 1- امان اكسس مرتفع 2 - تنصيب البرنامج وامان وندوز مرتفع ( يسبب امتناع تسجيل المكتبات ) 3- بعض اصدارات اكسس 2007 ناقصة وتسبب بعض المشكلات

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

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

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

لم أعمل على أوفيس 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)

و عليكم السلام و رحمة الله و بركاته ... استعمل الكود التالي ... 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

ترتيب حسب الحروف أ ب ت.rar

السلام عليكم ورحمة الله أساتذتنا وأصدقائنا الكرام في هذ الصرح العملاق والمتميز دائماً في فعل ونشر المعرفة والخير للجميع اليوم أتيت لكم ببرنامجي البسيط والمتواضع الذي ولله الحمد قد قمت ببرمجته في عام 2015 وأستخدمته أحدى شركات المقاولات التي تحتوي مايقارب عن 500 موظف في الأونة الأخيرة تم نشر برامج كثيرة حول مجال شؤون الموظفين والمرتبات ولكن كانت تقتصر فقط على مبدأ أرشفة بيانات الموظفين ولكن الآن تستطيع أخي المستخدم غير ذلك بكثير ، وهي إضافة المرتب لكل موظف في حسابه حسب اختيار المستخدم لفترة استحقاق المرتب له وعند دخول وقت الاستحقاق يقوم البرنامج بالتنبيه وتذكيرك بسحب المرتبات وأيضاً تستطيع إضافة حركات مالية أخرى كنظام السلف والدفعات والمسحوبات على المرتب وميزات كثيرة سوف تكتشفها بنفسك عند الاستخدام . قمت بإضافة نظام الحماية المتميز وهو تفعيل النسخة بالرقم التسلسي للوحة الأم بحيث تعمل النسخة على جهاز واحد فقط وعند النقل يتم قفل البرنامج عن العمل صور من البرنامج صورة تفعيل البرنامج روابط التحميل Office Soft.Employ & Salary أو Office Soft.Employ & Salary فيديو شرح التنصيب والتثبيت من هنا فيديو طريقة ألية عمل واستخدام البرنامج من هنا الشرح التفصيلي للبرنامج موجود في مجلد البرنامج بعد تثبيته على جهاز الكمبيوتر ملاحظة مهمة :يرجى عدم تغيير مسار تنصيب البرنامج لكي يعمل معكم بشكل كامل أو تنصيبه في مسار أخر غير القرص الصلب (C) البرنامج تم تجربته على أوفيس 2010 و 2007 ويعمل بشكل كامل ومتميز أتمنى أن ينال أعجابكم والحمد لله

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