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

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

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

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

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

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

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

برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) office 2010 اليوم وبعد مرور ستة شهور من طرح برنامجى السابق على الرابط التالى http://www.officena....opic=41247&st=0 اقدم لكم برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) برنامج يحتوى على الاتى 1- شاشه ادخال الفواتير بكافه انواعها وفى هذه الصفحه ايضا يكمنك البحث عن اى فاتورة وتعديلها او الغائها او طباعتها كما يوجد اختصار لاخرالفواتير المدخله التى يمكن استدعائها بضغطة زر واحده و العديد من التفاصيل اكتشفها بنفسك 2- شاشه لادخال العملاء و التعديل عليها بها جميع تقاصيل العميل 3- شاشه ادخال الموردين و التعديل عليها بها جميع تقاصيل المورد 4-شاشه ادخال الاصناف و التعديل عليها بها جميع تقاصيل الصنف 5-شاشه ادخال المناديب و التعديل عليها 6- شاشه ادخال مستخدمين بصلاحيات مختلفه 7- شاشات التقرير وتشمل الكثير و الكثير من التقارير كتقارير المبيعات و المشتريات وتقرير على حسب المناديب او المستخدمين و الكثير من التقارير التى يمكن اكتشافها بنفسك 8- شاشه تقرير حسب العميل يوضح مشتراياته ومدفوعاته بالتواريخ وايضا يبين المديونيه المستحقه 9- كما توجد العديد والعديد من الشاشات كادخال السندات و الخصومات و المصاريف وطباعتها 10- الكثير من المزايا الاخرى كحركه صنف وتقرير المخزون وتقرير الموازنه والربح و الخساره... اكتشف المزيد ملاحظات هامه 1- تم عمل البرنامج على اوفيس 2010 و البرنامج لن يعمل بشكل جيد الا على هذا الاصدار لذلك ارجون من يقوم بتجربته ان يكون على هذا الاصدار 2- تم وضع الكثير من الاختصارات التى توصلك لبعض التقارير وتم الشرح داخل البرنامج 3- لاى استفسار خاص بالبرنامج يكون عن طريق هذا الصرح العظيم او عن طريق مراسلتى بالايميل التالى amroomo@gmail.com 4- اتمنى ان يكون هذا البرنامج اضافه لهذا المنتدى العظيم 5- شكر واجب لكل مشرفى و اعضاء منتدى اوفيسنا الذى اصبح مناره الاوفيس فى الوطن العربى 6- الرقم السرى للدخول 123 7- الرقم السرى لمحرر الاكواد هو 85211 8- للبدء باستخدام البرنامج وتجربته قم بادخال الاصناف او حتى صنف واحد وكذلك مع العملاء و الموردين قم بادخال بيان واحد لكل منهما وبعد ذلك قم بعمل الفواتير و السندات بعد ذلك يمكنك استدعاء التقارير المختلفه الخاصه بالبرنامج كما انه لابد من ادخال المناديب او حتى مندوب واحد لكى تستطيع حفظ الفاتوره صورة البرنامج اخيرا ارجو من الجميع عدم التردد فى اى استفسار او ملاحظات تم رفع البرنامج على موقع الميديا فاير حيث ان مساحه البرنامج 1.9 ميجابايت ============================= تم إضافة الملف الى المشاركة بدل الرابط الخارجي الإشراف ============================= البرنامج هو تحديث للبرنامج السابق على الرابط التالى http://www.officena....opic=41247&st=0 برنامج المخزون و الفواتير 2013.rar

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

ا / ياسر تم العثور على هذه الصفحة هل هذا معناه ان النسخة غير مشتراه و جارى تنزيل نسخة اخرى بتحديثات مايو https://support.office.com/ar-sa/article/دالة-TEXTJOIN-357b449a-ec91-49d0-80c3-0e8fc845691c و هذا هو رابط النسخة الجديدة http://filecloud.io/wzn01u48s اقوم الان بتنزيلها

برنامج لحساب ضريبة كسب العمل للعاملين بالقطاع الحكومى بمصر طبقا لتعديلات القانون 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

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

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

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

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

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

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

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

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

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

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

جرب اخي المرفق دوال.rar

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

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة الترحيل من التاكست بوكس الى نطاق محدد تم ارفاق كود الحل من المبدع / ياسر خليل أبو البراء و لا تنسونا من صالح الدعاء تحياتى UserForm TextBox Input YasserKhalil (1).rar

حياك الله اخي حسين يوجد خيارين الخيار الأول في حال ان النموذج مخصص للبحث فقط .. بالترتيب من خصائص النموذج === بيانات === السماح بالإضافة - عدلها من نعم الى لا . بذلك تستطيع البحث .. ولا تستطيع ادخال بيانات . الخيار الآخر وهو اذا كان النموذج يستخدم للبحث والإدخال ضع هذا الكود في زر امر التالي . On Error Resume Next Me.Refresh With Recordset If .AbsolutePosition = .RecordCount - 1 Then MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه" Else DoCmd.GoToRecord , , acNext End If End With هذا والله اعلم بالتوفيق

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

السلام عليكم اليوم اضع لكم شرح حل لموضوع تفعيل الماكرو عن طريق لغة برمجة الفيجوال بيسك 6 بداية الشرح اولا سنقوم بعمل مشروع جديد ليظهر معنا فورم واحد وهو المطلوب لكي يتم ربط الاكسيل مع الفيجوال لابد من وجود مرجع يعتمد عليه البرنامج للتعامل مع الاكسيل وهذه صور من دروس سابقة لمعرفة كيفية اضافة مرجع لبرنامج الاكسيل داخل المشروع الخاص بنا صور من درس سابق لربط الفيجوال بالاكسيل بعد ان قمنا باضافة المرجع الخاص بالاكسيل نأتي لمشروعنا دا شكل الفورم وكوده هتضيف صورة او ليبل حسب ما تشوفه مناسب ليك ودا بدون اي اكواد عادي نأتي للكود نضع في الحدث load الكود التالي Private Sub Form_Load() Dim Start, Finsh Form1.Show Start = Timer Finsh = Start + 5 Do Until Finsh <= Timer DoEvents Loop Unload Me Excel.Workbooks.Open App.Path + "\yasser.xlsm" Excel.Application.Visible = True End Sub الكود عبارة عن اعلان عن متغيرين بداية ونهاية البداية تساوي التايمر النهاية تساوي التايمر + اي وقت تضيفه لفترة عرض الفورم كشاشة افتتاحية وبعد كدا ندخل في حلقة تكرارية حتى تكون النهاية اقل من او تساوي الوقت وبعد تحقق الشرط يتم غلق الفورم وفتح ملف الاكسيل وعرضه في الوضع المرئي وبكدا يكون انتهينا من الدرس الكل مستغرب فيين كود تفعيل الماكرو اقوله مفيش ليه اقوله لان تشغيل ملف الاكسيل عن طريق ملف تنفيذي يجبر وحدات الماكرو على العمل حتى وان كانت غير مفعله الفكرة موجودة من زمان بس محدش كان واخد باله منها لاننا كنا بنقوم بربط ملف عادي وليس به اي وحدات ماكرو وطبعا نقوم بتحويل الملف لملف تنفيذي بعد الانتهاء بالنسبة لمن لديه اي صعوبات في التعامل مع الفيجوال6 يتابع الدروس من اولها حتى يتثنى له انهاء هذا العمل اما بخصوص من لديه الرغبة في وضع هذه الشاشة الافتتاحية ولا يريد ان يشغل باله اقوله ايضا سأقوم بعمل ملف به خيارات لضبطه كما تحتاج للردود او الاستفسار يرجى الدخول على هذا الرابط مرفق السورس كود للبرنامج لمن لا يريد وجع دماغه تقبلو تحياتي ياسر العربي يتبع vb6 &vba.rar

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

وعليكم السلام ورحمة الله وبركاته ؛؛ أخي الكريم محمد عبد الناصر لا يوجد كود سيقوم بتفعيل الماكرو بشكل تلقائي لأن الماكرو لو معطل كيف سيعمل الكود حتى وإن وجد ؟؟!! الطريقة الوحيدة هي تشغيل ملف الريجستري ... جرب الملف المرفق التالي (انقر دبل كليك على الملف المناسب لنسخة الأوفيس لديك) Registry.rar

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

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

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

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