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

اخوتى فى هذا الصرح العلمى الكبير اعتذر لكل الاعضاء بالمنتدى عن كل شئ سئ صدر منى فى اى وقت وفى اى ظرف منذ اشتراكى فى هذا الصرح بتاريخ 26-4-2014م والى اخر مشاركة لى بالمنتدى الان بما فيهم الاخ العرب نت فلكل شئ بدايه ونهايه اسال الله تعالى لكم التوفيق والسداد وكل عام وانتم بخير بحلول رمضان المبارك واتمنى لا تنسونا من صالح دعائكم لى بالهديه فأنا احوج ما يكون لها تقبلوا جميعا تحياتى وحبى وتقديرى لكل عضو بالمنتدى منذ نشأته

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

السلام عليكم تعمدت ان اضع هذا الموضوع مستقل عن سلسلة الشروحات كي يتمكن الجميع من رؤية الموضوع لمن لم يتابعوا السلسلة اليوم اضع لكم حل لموضوع تفعيل الماكرو عن طريق لغة برمجة الفيجوال بيسك 6 كثير منا يقوم ببناء برنامجه ولكن تظل مشكلة تفعيل الماكرو العائق امام تشغيل برنامجنا على اجهزة اخرى فيضيع علينا اظهار الانطباع الاول لبرنامجنا واللي ميعرفشي موضوع البرمجة ويلاقيك محتاس عمال تفعل الماكرو كل ما تشغله على جهاز جديد يقول انك مش محترف المهم عشان نشغل برامجنا على اي جهاز بدون تفعيل الماكرو وانسى الماكرو خالص قمت بعمل برنامج بسيط يعمل كواجهه للبرنامج الخاص بنا او كشاشة دخول برنامجنا وتبدأ كما بالصورة لمدة نحددها نحن وبعدها تختفى ويفتح لنا البرنامج بدون تفعيل الماكرو كل ما علينا ان نضع ملف البرنامج الخاص بنا بجانب الملف التنفيذي الذي سيعمل كشاشة بداية للبرنامج ونغير اسم برنامجنا الى ما هو موضح بالصورة Yasser.xlsm وهذا مؤقت فقط لحين شرح كيفية عمل هذه الشاشة الافتتاحية وتحطوا اي اسم لبرنامجكم وطبعا الامتداد xlsm ويمكن تغييره حتى ممكن نلعب في الامتداد ونخليه مثلا Yasser.dat ونخفيه كمان يبقي كأنه بيشغل من البرنامج التنفيذي المهم كل واحد عنده ملف به اكواد ماكرو يقدر يعطل الماكرو عنده ويحط ملفه بجانب هذا الملف التنفيذي ويقوم باعادة التسمية ليصبح Yasser.xlsm ويقولي ايه رأيه الملف مرفق به طريقتين لعمل الملف التنفيذي تستطيعوا تجربة اي واحد تقبلو تحياتي ياسر العربي يتبع start.rar شرح طريقة عمل البرنامج اضغط هنا

اتمنى ان يكون هذا المطلوب فرز النصوص بناء على عدد الكلمات.rar

دعوة لبدء قاعدة بيانات شئون موظفيين شاملة لما لاحظت كثرة التساءل بالمنتدي من استفسارات وطلبات كثيرة حول موضوع شئون الموظفيين وادارة الوثائق بمختلف انواعها وبالبحث بالمنتدي وجد الكثير من اعمال اخواني ومعلميني الأقاضل وعلي رأسهم اخينا المبدع ومعلمنا الجليل الأستاذ / عبدالله باقشير واخي الفاضل الأستاذ/ أحمد فضيلة (صاحب الافكار الجميلة) وأخي ومعلمي الأستاذ / عبدالله المجرب واكواد لاخي الاستاذ / عباد نصار واخي بن علية واستمسحهم واستسمح من استخدمت عمله وارجوا السماحة فالهدف المصلحة العامة ----------------------- نبذة عن قاعدة البيانات اولا: معالجة البيانات الخام من ادخال بيان موظف جديد او البحث عن موظف مع خيارات الحذف والتعديل. وخيارات بحث (بحث بالرقم الوظيفي ) او بحث برقم الهوية / الاقامة- لضمان عدم تكرار الرقم او تشابه ثانيا اعداد تقرير تفصيلي عن حالة موظف معيين بامكانية الطباعة من الفورم وايضا طباعة بي دي اف لارسالها بالبريد وعمل باركود للموظف يحتوي علي رقم الهوية حتي لا يتكررواستخدامه في ملف الموظف ثالثا الصلاحية وتتم فيها معالجة البيانات المدخلة وتحتوي علي - جلب البيانات من صفحة الادخال ومعالجتها واظهار الوثائق المنتهية بالفترة واليوم مع بيان للحالة امكانية الطباعة وعمل تقرير شامل حسب الصلاحية - التصفية مع تقرير بالوثائق المنتهية والسارية علي حدة - التصفية والفرز حسب الجنسية مع تقرير عن كل جنسية - التصفية والفرز حسب المهنة مع تقرير علي كل مهنة - التصفية والفرز حسب الفترة انتهاء الصلاحية (30-60-90 يوم) التعامل مع التاريخيين الهجري والميلادي جاري ان شاء الله تحديث القاعدة لتشمل - امكانية استيراد البيانات من برنامج مقيم بالسعودية - بيان بالاجازات التي حصل علي الموظف واحقيته ف اجازاته السنوية ( جاري العمل عليها) - تقرير عن الراتب الاساسي والبدلات التي يستحقها الموظف شاشات سهلة التعامل وارجوا من الاخوة الكرام لا يبخلوا علينا بافكارهم للتطوير القاعدة بما يتناسب معظم احتياجات الموارد البشرية كلمة مرور القاعدة الدخـول = 2300 حماية الصفحات (2300) DataBase Sheet = 1948 VB Password= Dahy تغيير كلمة المرور للدخول ولحمايــة الصفحات في Sheet8.[zz19760] sheet8.[zz19761] بدون الدخول لمحرر الاكواد مرفق مع الملف ملف الخطوط (حتي يظهر الباركود) ويوضع بالمسار C:\Windows\Fonts توضع صور الموظفيين في نفس مسار ملف قاعدة البيانات ( اذا اردت ارفاق صورة الموظف مع التقرير) وما التوفيق الا من عند الله وهذ بعض الشاشات وان شاء الله ان تكون فيها الفائدة ولو بالقليل لاخواني بالمنتدي officena.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

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

الحمد لله اننا بهذا الصرح المحترم تحية لكل من شارك و بنى لبنه فى هذا المنتدى حتى و لو بكلمة شكر و كل الشكر لاعضاء المنتدى على هذا البناء الشامخ و هو ملك لكل من اراد ان يتعلم حرفا تحياتى و كل عام و انتم بخير

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

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

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

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

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

اخى وحبيبى فى الله واستاذى الكبير ابوالبراء يعلم الله كم احبك فى الله وأسال الله تعالى ان يستظلنا بعرشه يوم لاظل الا ظله والله انا لا صاحب عقليه ولا شئ انا زى اللى بيجرب حظه مره تصيب ومره تخيب ههههههههههه تسلم يا غالى على مرورك العطر وكلمات الطيبه وبلغى سلامى للبراء - اتصلت بيك من يومين جوالك كان مغلق المهم هبقى اتصل بيك علشان عايز اسلم على البراء ومريم تقبل تحياتى

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

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

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

السلام عليكم ورحمة الله وبركاته رمضان كريم وأن شاء الله يعاد علينا بالبهجة والفرح على الأمة الاسلامية من فترة شهر تقريباً اتصل بي أحد الأصدقاء يعمل محاسب في احدى الشركات البسيطة والصغيرة في مجال الصرافة المالية الخاصة يريد برنامج بسيط على اكسيل في مجال الصرافة فقمت بتصميم وبرمجة برنامج مخصص له يوجد فيه الآتي: 1- فواتير شراء 2- فواتير مبيع 3- أيصالات قبض 4- ايصالات دفع 5- دفتر اليومية 6- كشف حساب 7- الميزانية والأرباح والخسائر البرانامج يعتمد السهولة والبساطة في نفس الوقت في العمل والبرنامج أساسا في قيد التجريب والتطوير وناقص فيه أشياء كثيرة من الأشياء الناقصة تعديل فاتورة لكن فكرته تعتمد على المحاسبة النظرية والعلمية وليس المحاسبة العملية فأحببت أن أفيدكم فيه لأنه صراحة بحثت كثيراً في المواقع ولم أجد برنامج خاص للصرافة المالية في إكسل وفي نفس الوقت مجاني فأرجو أن شاء الله أن ينال إعجابكم ويكون طريقاً في الخير وإذا كان الموضوع يستحق التثبيت يرجى تثبيته لتحقيق أكبر فائدة ممكنة للمستخدمين والسلام عليكم أخوكم في الله أنس دروبي الرقم السري لألغاء الحماية anas ‫‫منظومة الصرافة.rar

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع عندكم و تبدأ من جديد و تنتهى عندكم" ايام مباركه من الله عز وجل و لا تنسونا من صالح الدعاء أقدمه لكم صدقه جاريه على روح المغفور لها امى و استاذنا / عماد الدين الحسامى للذهاب الى ملف _ المدونه الاصدار الاول من هنا مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_سلسله تجميعيه و هديتى متجدده باذن الله تعالى من هنا اضغط على رابط العنوان اسفله للوصول للمدونه

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

الله يحفظ ويصون الاستاذ المحترم عبد السلام ابو العوافي وانت يا استاذ باسر احسنت الاختيار

المشكلة في استخدام الكود؟ انا بحاول انسخ الملف على التليفون ومش عارف اتعامل بالكود على المحمول

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

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

انسخ هذه المعادلة الى الخلية D1 واسحب نزولاً =IF(C1<>"",TEXT(TODAY(),"dd/mm/yyy"),"")

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

تحياتى لشخصكم الكريم استاذ / ناصر سعيد

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

تحياتى لك و اعمالك الرائعه و المحترمه و جارى تجديد المدونه

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

عندما نترابط بقوة يصعب ان نفك هذا الرباط

في انتظار على نار .. للشرح الجبار لا تتأخر علينا يا عربي يا مغوار

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

بارك الله فيكم وأطال عمركم أخي وصديقي حسام انتم ولاتزالو ذخراً ومنارة تنير طريق ودروب الباحثين عن العلم في هذا الموقع الاكثر من متميز وكل عام وأنتم والاصدقاء بألف خير

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

أخي العزيز هشام محمد شرقاوي لغة البرمجة تعني المنطق في الطلب ، وقد طلبت أمراً ما ، ويوجد الكثير من الاحتمالات ..فقم بتحديد أي الاحتمالات أقرب إليك والذي يمكنه أن يحل مشكلتك بشكل جذري .. مع العلم بأن الاحتمالات التي أرفقتها هي مجرد جزء من الاحتمالات إذ أنني أدرجت لك فقط الاحتمالات التي تحمل أرقام صحيحة مع العلم يوجد احتمالات لكسور ..أي أن الموضوع بهذا الشكل غير منطقي حاول تحدد معايير للاحتمال المطلوب .. ما رأيك مثلاً في أن يكون المجموع (على سبيل المثال 185) يقسم على 2 والناتج أو أقرب ناتج له يكون الأساس في العمل إذا كنت توافقني هذا الاقتراح فأعلمني بذلك ، وإذا كان لديك فكرة أخرى أو اقتراح آخر فلتتفضل به وإن شاء الله نصل لحل .. تقبل تحياتي Goal Seek To Calculate Tax YasserKhalil Officena.rar

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

اخى الكريم الكود صحيح ولكن استبدل Me.Refresh استبدلها بالسطر التالى قبل تنفيذ سطر الحذف Me.Requery

الفرز بطريقيتين .. عدد الكلمات ( المسافات بين الكلمات ) وعدد الاحرف ( بما فيها المسافات والنقاط ) فرز النصوص بناء على عدد الكلمات.rar

رفع الملف من جديد... تركيب معادلة بها ثلاث مجاهيل_2.rar

جرب الكود التالي عله يفي بالغرض ويحل المشكلة تماماً Sub Find_All() Const nGroup As Long = 25 Const nInsert As Long = 3 Dim Ws As Worksheet, Sh As Worksheet Dim myDate1 As Double, myDate2 As Double Dim arr1 As Variant, arr2 As Variant Dim I As Long, J As Long, P As Long, mCol As Long Set Ws = Sheets("add") Set Sh = Sheets("Aldata") Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next Sheets("Temp").Delete Sheets.add.Name = "Temp" On Error GoTo 0 If IsDate(Sh.Range("W2")) And IsDate(Sh.Range("W3")) Then myDate1 = Sh.Range("W2"): myDate2 = Sh.Range("W3") End If With Sh If .Cells(Rows.Count, 2).End(xlUp).Row > 5 Then .AutoFilterMode = False .Range("B5:S5").AutoFilter Field:=1, Criteria1:="<>" .Range("B6:S" & .Cells(Rows.Count, 2).End(xlUp).Row).SpecialCells(xlCellTypeVisible).ClearContents .AutoFilterMode = False End If End With With Ws .AutoFilterMode = False .Range("A2:S2").AutoFilter Field:=4, Criteria1:=">=" & myDate1, Operator:=xlOr, Criteria2:="<=" & myDate2 If Sh.Range("U3").Value <> "الكل" Then .Range("A2:S2").AutoFilter Field:=2, Criteria1:=Sh.Range("U3").Value mCol = Application.Match(Sh.Range("V2").Value, .Rows(2), 0) .Range("A2:S2").AutoFilter Field:=mCol, Criteria1:=Sh.Range("V3").Value .Range("A2").CurrentRegion.Offset(2).SpecialCells(xlCellTypeVisible).Copy Sheets("Temp").Range("A1") .AutoFilterMode = False End With Sheets("Temp").Columns(1).Delete arr1 = Sheets("Temp").Range("A1").CurrentRegion.Value I = ((UBound(arr1, 1) \ nGroup) + 1) * (nGroup + nInsert) arr2 = Sh.Range("A6").Resize(I, UBound(arr1, 2)).Formula For I = 1 To UBound(arr1, 1) P = P + 1 For J = 1 To UBound(arr1, 2) arr2(P, J) = arr1(I, J) Next J If I Mod nGroup = 0 Then P = P + nInsert Next I Sh.Range("B6").Resize(UBound(arr2, 1), UBound(arr2, 2)).Formula = arr2 Sheets("Temp").Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub تقبل تحياتي

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

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

وعليكم السلام ورحمة الله وبركاته وحياك الله بين اخوانك الحل : fldDay: Format([fldDate];"dddd") fldDate هو حقل التاريخ fldDay هو الحقل الذي تريد عرض اسم اليوم فيه

هذا اخى ماطلبته من عمل قائمة منسدلة وهى أن تكتب بيانات القائمة فى عمود منفصل وتحتار العمود المراد عمل القائمة به تختار data-validation-listوعند خانة المعادل تحدد العمود الذى به بيانات القائمة المطلوب عملها ثم ok ولو أردت نسخها لخلايا أكثر فقم ببساطة نسخها قائمة منسدلة.rar

اليك أخي كل ماتريد وأي شئ أنا تحت أمرك قائمة منسدلة 2.rar

بسم الله الرحمن الرحيم تحياتى الى الجميع احتفالا منى بالثوب الجديد للمنتدى . قررت المساهمة بمشاركة ذهبية حصلت عليها فى احدى ابحاراتى الاولية وكانت على سفينة الصحراء وليست جوية او بحرية بل كانت على الجمال . مش راح تصدق ...............................................! دالة "IFYES" مع 112 احتمال ...................................! فى معادالة واحدة معقول !!! ده يبقى جنان فى جنان ونبقى محتاجين علام من جديد . حقيقى لم نقدم للاكسل اى شئ حتى الان غير الكـــــــــــــلام . دالة "IF" فى الوضع العادى تعطى شرط واحد و احتمالين اثنين فقط وفى الوضع المركب منها بأمكانها ان تصل بنا الى سبعة "IF" مع ثمانية احتمالات . ويمكن الوصول بها الى مئات الاحتمالات فى حالة تمرير النتيجة الى خلايا اخرى ثم حصد النتيجة النهائية . دالة اليوم اسمها " إف_صح " فى الوضع العادى منها تعطى 18 ثمانية عشر احتمال . وفى الوضع المركب منها فقط تعطى 112 مئه واثنى عشر احتمال . اما فى حالة التمرير تعطى الآف الاحتمالات . سوف تجد الدالة مع الدوال فى ( معرفة بواسطة المستخدم ) . وطريقة عملها اسهل من "IF" بدون تكرار اسم الدالة زى "IF" العقيمة . ومرفق لكم ملف به مثال للتدريب عليها احتفالا بالثوب الجديد للمنتدى . واذا عجبكم الموضع نبدأ فى تجهيز دالة " إف_خطأ " وهى معكوس دالة " إف_صح " مع تحيات تامر عمر المرفقات دالة ( IFYES ) احتمالات اكثر من دالة ( IF ) العادية مع سهولة اكثر فى التعامل IFYes.rar