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

جميع أعضاء المنتدى هنا لمساعدة الجميع ...... كل من يعرف الاجابة لديه القدرة على المساعدة بارك الله فيك

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

هل كان يعمل البرنامج بدون مشاكل أم لم يعمل من الاساس ؟؟؟

أما برمجيا فجرب هذا الكود في حدث عند التحميل للنموذج ... If CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings")) <> "1" Then CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings"), "1", "REG_DWORD" End If

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

نعم هي بمعنى "و" وتستخدم في لغة سي وفي اكواد بي اتش بي بنفس المعنى لربط سلسلتين نصية او اكثر ومع ذلك لها استخدام اخر في اوراكل

حيث ان الدالة () SUM تتجاهل النصوص و تعتبرها صفر لذلك يمكن استعمال هذه المعادلة بكل بساطة =SUM(B4:C4)/2

اذا كان المطلوب تمكين الماكروا يدويا .... تفضل .. من ملف --------> خيارات ---------> مركز التوثيق ---------> إعدادات الماكروا ---------> انظر الصورة

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

برنامج التقسيط.rar اخواني اعتذر لعدم وجود وقت لرفع نسخة من الملف تقبلو التحية رجب فاروق

إخوتي الاعزاء فكرة اليوم التحكم بالوقت ( الساعة ) Time Control كلمات استدلالية اضافة وقت - طرح وقت - On Timer - DateAdd - نموذج - كود التطبيق جزء من تصور شامل اقتطفت لكم اليوم فكرة التحكم و السيطرة على الوقت حيث يحتوي النموذج F2 ( من أعلى اليمين) حقل غير ممكن لليوم يظهر اسم اليوم حقل غير ممكن لليوم يظهر تاريخ اليوم حقل غير ممكن للساعة يظهر الساعة ( 12 ساعة AM . PM ) (مفعل مع On Timer) حقل غير ممكن للساعة يظهر الساعة مع الثواني (مفعل مع On Timer) – 1000 تساوي ثانية واحدة ثم مجموعة ازرار وحقل غير منضم ( في الوسط ) حقل غير منضم ممكن للساعة يظهر قيمة افتراضية للوقت (الساعة الثامنة صباحا) (ساعة بداية الدوام) ( يمين من الاعلى للأسفل +) زر لاضافة دقيقة واحدة على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لاضافة خمسة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لاضافة عشرة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لاضافة ستون دقيقة ( ساعة واحدة) على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي ( يسار من الاعلى للأسفل -) زر لطرح دقيقة واحدة على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لطرح خمسة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لطرح عشرة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لطرح ستون دقيقة ( ساعة واحدة) على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي ( يمين أسفل الوسط) زر للعودة للوقت الافتراضي في حقل الوقت الافتراضي ( يسار أسفل الوسط) زر لتثبيت الوقت الحالي في حقل الوقت الافتراضي الاضافة و الطرح للوقت تتم باستخدام طريقة DateAdd حسب البنية التالية T1 = DateAdd("h", 1, T1) ولسان حال الكود يقول في الحقل T1 تعامل مع (n دقائق ) ( h ساعات) , (1 بالاضافة) (1- بالطرح) , من أصل قيمة الحقل T1 وكفى ... وفي التطبيق مزيد توضيح NA_TimeControl.rar

سؤال رائع,,, خاصة مع كبار السن امثالي لكي يميزوا بالوالوان الكائنات ماهية الاشياء سابحث عن الموضوع واوافيك بالنتيجة ان شاء الله

لك مني كل الشكر والتقدير استاذي العزيز انتم منبع الجمال نسال الله التوفيق لنا ولكم

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

المهم الفكرة ، وفكرتك كانت جديدة 🙂 جعفر

بارك الله قيكم استاذ على عل تفاعلكم واثراكم للموضوعات جزاكم الله خير

شكرا لك و لجميع الزملاء متدى officina. كان الحل بسيط و منكم نتعلم

السلام عليكم 🙂 هناك استعمال آخر له ، ولكن في تسمية زر الامر ، هكذا: . . . فيظهر النموذج بهذه الطريقة (لاحظ الحروف اللي تحتها خط) ، فبدل ان ننقر على الزر ، نستطيع ان نستعمل الكيبورد ، فيقوم مقام النقر على الزر ، هكذا : Alt + m (امسك الزر Alt على الكيبورد ، وفي نفس الوقت انقر على الحرف m) Alt + s Alt + خ . جرب وشوف ، ولا تنسى ان لغة الشاشة يجب ان تكون لغة الكتابة على الزر ، يعني الكيبورد لازم يكون انجليزي لإستعمال m و s ، ويجب ان يكون عربي لإستعمال خ 🙂 جعفر 1089.Command button shortcut.mdb

جزيل الشكر لحضراتكم ربنا يجعله فى ميزان حسناتكم

شكرا على هذه المعلومة 🙂 جعفر

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

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

السلام عليكم ورحمة الله وبركاتة هل الاجهزة لديكم بالشركة مربوطة بدومين ؟

وعليكم السلام تم بمعادلة معرفة, تفضل جمع خلايا بها ارقام و نص.xlsm

السلام عليكم و رحمة الله و بركاته اليك المثال ب اضافة تنقل بين عناصر القائمة ب ازرار الاسهم test.accdb من اجل تحديث مصدر الصف الكومبو ، مع كتابة كل الحرف ينتقل التركيز الى Txt ثم تحدث مصدر صف القائمة ثم ينتقل الي القائمة مرة اخرى و هكذا لان لايمكن تحديث مصدر الصف و داخله تركيز بتوفيق،،،

السلام عليكم للاسف لو عرفت ترفعه يكون افضل لنساعدك

السلام عليكم اساتذتى واخواتى الكرام -أقدم لكم برنامج يهم كل العاملين بالتربية والتعليم وهو برنامج مرتبات المعلمين من أعمال وتنفيذ الأستاذ المحترم شعبان عطية الصباغ البرنامج يستخرج جميع المرتبات ويقسم ويجمع ويطرح بدون تدخل منك . تعليمات العمل على الشيت نأتي لطريقة العمل على الشيت فى صفحة ( بيانات ) يتم ادخال اسم المدرسة وشهر تحرير الاستماره فى الخانات الخاصة بها فقط حسب السهم أعلى يسار الصفحة ولا يتم ادخال أى بيانات أخرى بهذه الصفحة أولا : شيت المعلمين التابعين للقانون 155 والعمال المتعاقدين والمدرسين المتعاقدين خانات يتم ملئها يدويا وبدونها لايعمل الشيت بشكل سليم أولا : - جانب الاستحقاقات الاسم وبمجرد ادخال الاسم يتم الترقيم تلقائيا فى خانة المسلسل الوظيفة ويتم اختيارها من سهم القائمة المنسدلة وهى درجة الموظف الحالية التى يتقاضى عليها الحوافز والبدلات مع ملاحظة ان عامل متعاقد تشير للعامل المتعاقد ( 150جنيه) بينما معلم متعاقد تشير للمعلم المتعاقد (200جنيه) الدرجة للأعباء ويتم اختيارها من سهم القائمة المنسدلة وهى درجة الموظف التى يتقاضى عليها علاوة الأعباء حيث لا تتغير قيمة العلاوة عند ترقية الموظف 33% للعمال نظرا لحصول بعض العمال المتعاقدين على حكم ال33% يتم كتابة رقم 1 فى الخانة ليتم اعطائهم قيمة الحكم تلقائيا غير ذلك تترك الخانه فارغة اساسى 6 /2015 ويتم احتساب الحوافز والبدلات على اساسه اساسى 7 /2017 ويتم على اساسه حساب المعاشات الأساسية والزماله وخلافه ال3 علاوات الخاصة التى لم تضم للأساسى كل فى العمود الخاص بها ( 2013 - 2014 - 2015 ) قيمة العلاوتين الاجتماعية والاضافية فى العمودين الخاص بها اى مستحقات أخرى فى حالة حصول المعلم على أى مستحقات أخرى مثل بدل تفرغ أو حافز ماجستير أو دكتوراه يتم كتابته بالخانات الخاصة بذلك ويمكن تعديل رأس العمود لتناسب المسمى المطلوب مجموع ال3 علاوات وتوضع نهاية الشيت العامود ( DG) وهى مجموع ال3 علاوات التى تم ضمها للأساسى (علاوة ال10 % لسنة 2016 و علاوة ال10 % لسنة 2017 م وكذا علاوة الغلاء بنسبة ال10% ومجموع العلاوات ضرورى فى حساب الضرائب طبقا لنموذج الضرائب لسنة 2017 م ملاحظات هامه 1 - فيما عدا ما سبق لايتم ادخال أى بيانات يدويا بباقى الأعمده لعدم العبث بالمعادلات بها وحتى تخرج النتائج بشكل سليم 3 - توجد بعض الحالات لمن لا يتقاضون بدل الاعتماد ويتم منحهم زيادة فى حافز الأداء أو نسبة ال 91% يتم تعديل قيمة البدل بالمعادلة امام مسمى المعلم بمعرفة مسئول التطوير أو احد ملم بكيفية عمل ذلك ثانيا : - جانب الاستقطاعات يتم ادخال أى استقطاعات خاصة بكل معلم ان وجدت مثل الرابطة - مهن اجتماعية - مهن تطبيقية الخ ويمكن تعديل عنوان العمود ليناسب كل مدرسة مع ملاحظة التعديل بمفردات المرتب بنفس التعديلات ملاحظات هامه 1 - لا يتم التعديل بعامود قسط الاعارة والمدة السابقة حيث تدخل فى حساب الضرائب 2 - فى حالة اشتراك الموظف بالبحث العلمى لايتم كتابة شىء بالعامود وبمجرد ادخال ال4 جنيه بخانة الخدمات العمالية يتم حساب البحث العلمى تلقائيا لذا يرجى عدم تغيير عنوان العامودين 3 - يرجى عدم التغيير بعناوين الأعمده الا فى حالة الضرورة وذلك لارتباطها بمفردات المرتب وكشف التظهير وتوجد اعمده كثير مخفية يمكن الكتابة بها 4 - يوجد بعد عامود اسم البنك فى نهاية الشيت اعمده خاصة بحساب الدمغة والضريبة لا يتم العبث بها نهائيا ليتم حسابهما بشكل سليم 5 - يتم كتابة اسم البنك بكشف البنك امام كل مدرس ثانيا : شيت الاداريين ومشرفى النشاط والتابعين للقانون 81 لسنة 2016 م خانات يتم ملئها يدويا وبدونها لايعمل الشيت بشكل سليم أولا : - جانب الاستحقاقات الاسم وبمجرد ادخال الاسم يتم الترقيم تلقائيا فى خانة المسلسل الوظيفة ويتم كتابتها ولا يؤثر المسمى على أى شىء ومهم لمفردات المرتب الدرجة ويتم كتابتها ولا يؤثر المسمى على أى شىء ومهم لمفردات المرتب نقابى + حكم ركز معايا شويه الشيت اسهل من شيت المدرسين لو اتنفذ العمود ده بشكل سليم عارف طبعا ان الاداريين بالنسبه للنقابه اما نقابى أو غير نقابى وبالنسبه للحاصلين على الحكم بال33% اما واخد حكم أو مش واخد متفقين من السهم الموجود بالعمود ده هاتختار الأرقام من صفر وحتى الرقم 3 على النحو التالى : - 0 ويوضع امام الادارى غير النقابى والذى لم يحصل على حكم بال 33% 1 ويوضع امام الادارى النقابى والذى لم يحصل على حكم بال 33% 2 ويوضع امام الادارى غير النقابى والذى حصل على حكم بال 33% 3 ويوضع امام الادارى النقابى والذى حصل على حكم بال 33% اساسى وهمى ويتم على اساسه حساب المعاشات الأساسية والزماله وخلافه اساسى 30 / 6 / 2015 ويتم على اساسه حساب الأجر المكمل كل حسب موقفه من الحكم والنقابه اجر وظيفى + 7% ويتم على اساسه حساب الأجر والمتغير والمعاشات وكل شىء العلاوة التعويضية وحسابها من جملة المكمل والمتغير بدلات أخرى إن وجد ملاحظات هامه 1 - احيانا ونظرا لجبر الأرقام طبقا لتعليمات الماهيات تجد رقم 1 موجود فى خانة ال33% للناس اللى مش واخده حكم معلش امسحه وضيفه يدويا على خانة ال50 % ثانيا : - جانب الاستقطاعات يتم ادخال أى استقطاعات خاصة بكل إدارى ان وجدت مثل الرابطة - مهن تطبيقية الخ ويمكن تعديل عنوان العمود ليناسب كل مدرسة مع ملاحظة التعديل بمفردات المرتب بنفس التعديلات ملاحظات هامه 1 - لا يتم التعديل بعامود قسط الاعارة والمدة السابقة حيث تدخل فى حساب الضرائب 2 - فى حالة اشتراك الموظف بالبحث العلمى لايتم كتابة شىء بالعامود وبمجرد ادخال ال4 جنيه بخانة الخدمات العمالية يتم حساب البحث العلمى تلقائيا لذا يرجى عدم تغيير عنوان العامودين 3 - يرجى عدم التغيير بعناوين الأعمده الا فى حالة الضرورة وذلك لارتباطها بمفردات المرتب وكشف التظهير وتوجد اعمده كثير مخفية يمكن الكتابة بها 4 - يتم كتابة اسم البنك بكشف البنك امام كل إدارى ملاحظات هامة على البرنامج ككل 1 - يتم ترحيل البيانات تلقائيا لكشف التظهير للكل أو للبنك وكذا اقساط الزماله وكشف 2 تأمين ومعاش ويرجى المراجعة بعد التنفيذ 2 - يتم كتابة بيانات القصاصات يدويا او بعمل ارتباط فى الخانات الخاصة بها بمعرفة مسئول التطوير 3 - قبل الطباعة يتم اخفاء جميع الأعمده الخالية من البيانات والتعديل على تخطيط الصفحه حتى تظهر الأرقام بحجم ملائم للعين 4 - قبل الطباعة يتم جعل تنسيق الشيت بدون لون ( ابيض ) للتكلفة ولوضوح الأرقام ثم حفظ الصفحه بتنسيق pdf لتلائم الصفحة فى الطباعة 5 - اذا تم العمل بالبرنامج بشكل سليم عند عمل تسوية ضريبية سنويه فى نهاية العام لن توجد على الموظف أى مبالغ حيث تم احتسابها شهريا وبشكل سليم بعد مراجعة الضرائب بشبين الكوم 6 - عند حساب مكافأة الامتحانات لا يتم خصم أى مبالغ لحساب الضرائب حيث تم تسويتها شهريا ودفع ضرائبها مع المرتب على 12 شهر بدلا من خصمها مرة واحده مما يؤثر على قيمتها وذلك لجميع العاملين بالتربية والتعليم سواء الخاضعين للقانون 155 ( الكادر ) أو التابعين لقانون 81 لسنة 2016 ( الخدمة المدنية ) وهذا هو البرنامج-أتمنى ان ينال اعجابكم وعليكم بالدعاذ لصاحب هذ البرنامج بارك الله فيه وجزاه الله كل خير وجعل الله هذا العمل فى ميزان أعماله برنامج عمل مرتبات المعلمين الجديدة 2019.xlsx

تم التعديل على الكود Option Explicit Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean) Application.Volatile Dim rCell As Range, lCol# lCol = rColor.Interior.ColorIndex ColorFunction = 0 For Each rCell In rRange If rCell.Interior.ColorIndex = lCol Then _ ColorFunction = _ ColorFunction + IIf(SUM, Application.SUM(rCell), 1) Next rCell End Function

السلام عليكم ورحمة الله وبركاته يا من تعشقون سيرته، ويا من ترجون شفاعته، صلوا عليه وسلموا تسليما صلى الله عليك ياحبيبى يارسول الله كل عام وانتم بخير بمناسبة المولد النبوى الشريف ========================================================= اساتذتى فى هذا الصرح العظيم اوفيسنا اخواتى فى الله اقدم اليكم دالة HYPERLINK بدون استخدام اى دوال وسيطه مثل ال VLOOKUP اوINDIRECT او اى داله من دوال البحث الاخرى ====================================================== تقبلوا منى خالص تحياتى تعلم دالة hyperlink.rar

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

أحسنت أستاذ سليم كود ممتاز جعله الله في ميزان حسناتك وغفر لك وزادك من فضله

تفضل رصد الدرجات1.xlsm

بارك الله فيك استاذنا الكريم معادلة ممتازة

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

وعليكم السلام بارك الله فيك استاذنا الكريم وزادك الله من فضله

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

هذا يتم من خلال التنسيق الشرطى لو ممكن ترفع الملف مرة أخرى وتشرح عليه كل ما تريد

تفضل يمكنك استخدام هذه المعادلة =SUMIFS(سعر!$A:$A,سعر!$C:$C,A2,سعر!$D:$D,B2) test.xlsx

تفضل اخى الكريم بعد اذن الأستاذ وجيه يمكنك استخدام هذه المعادلة لأعلى مرتب =SUMPRODUCT(MAX((ورقة1!$B$2:$B$13=$B2)*(ورقة1!$D$2:$D$13))) وبالنسبة لأقل مرتب يمكنك استخدام هذه المعادلة =DMIN(ورقة1!$B$1:$D$13,3,$B$1:B2)

وعليكم السلام -كود ممتاز استاذ ابراهيم احسنت كل عام وانتم بخير تقبل الله منكم سائر الأعمال

وعليكم السلام يمكنك مشاهدة الصورة

بارك الله فيك استاذنا الكريم وجزاك الله كل خير

وعليكم السلام-تفضل الحل بالمعادلات حذف الفراغات.xlsx

وعليكم السلام كل عام وانتم بخير ادراج التاريخ عند الاستلام.xlsm

جزاك الله كل خير استاذ مجدى

بارك الله فيك وجزاك الله كل خير

وعليكم السلام-اهلا بك في المنتدى -تفضل ادارة المخزون-1.xlsx

بسم الله الرحمن الرحيم الأعضاء الأعزاء أسعد الله أوقاتكم بكل خير فيما يلي الدرس الثالث من دورة "إكسيل 2013 المستوى المتقدم" بعنوان: التصفية المتقدمة للبيانات الدرس الثالث - التصفية المتقدمة الجزء الأول أتمنى لكم مشاهدة ممتعة ومفيدة يمكنكم تحميل ملفات التمارين الخاصة بهذه الدورة من خلال الرابط التالي: http://www.4shared.com/rar/QvwJQLddce/_-__.html لمتابعة الموضوع الرئيسي للدورة يمكنكم فتح الرابط التالي حيث جميع الدروس موجودة: دورة اكسيل 2013 المستوى المتقدم دمتم بخير أخوكم م/نضال الشامي Google+ Twitter

فقط عليك وضع هذا الكود فى موديول عادى Public CntTme As Double Sub StartClock() ActiveSheet.Range("N1").Value = Now() CntTme = Now + TimeSerial(0, 0, 1) Application.OnTime CntTme, "'" & ThisWorkbook.Name & "'!StartClock", , True End Sub ثم بعد ذلك عليك بوضع هذا الكود فى حدث This Workbook Private Sub Workbook_Open() StartClock End Sub لابد ان يكون امتداد الملف Xlsm

السلام عليكم حياك الله أخي فهد لقد عملت لك التعديل المطلوب ولكن مع تبديل تقويم قاعدة البيانات من هجري إلى ميلادي . وسأترك لك البحث عن التعديلات . فقط هناك ملاحظة طلب النتيجة عن طريق النقر المزدوج على مربعات التواريخ . تحياتي . تطبيق_التاريخ_الهجري-.rar