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

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

طيب ... انظر المرفق .... لكي يعمل معك بشكل صحيح اتبع الاتي : اذا اردت طباعة الاحصائية فقط (التقرير المسمى بـ Kanory ) : اولا يجب تشغيل التقرير المسمى بـ مستحق_فيزا1 ثانيا فتح التقرير Kanory _________________________________________________________________________________________________________ أما في حالة طباعة التقرير مستحق_فيزا1 سوف يعمل الكود مباشرة وبذلك تستطيع طباعة التقرير Kanory ________________________________________________________________________________________________________ والافضل اعطاء امر طباعة التقرير مستحق_فيزا1 ثم امر طباعة التقرير Kanory 1928961479_Kanory_.accdb سوف تكون النتيجة كالتالي :::::::::::::::::::

واياك ....

تفضل ..... kan_22 (1).accdb

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

تفضل :::: - عملت لك زر للحفظ وفتح فاتورة جديدة - ايضا عند الخروج من النموذج أو الاغلاق يتم عرض رسالة تأكيد بحفظ الفاتورة أو عدمه ..... وعند اختيار الغاء يعيد الكميات الموجودة في الفاتورة الى المخزن مرة اخرى ارجو ان يكون هو طلبك ......... تجربة_76523.accdb

عمل رائع اخي الفاضل احمد زمان واضافة حسب مطلوب الاخ يضاف معادلة صفيف =IFERROR(INDEX(B$5:B$19;MATCH(1; ((COUNTIF(B4:B$4;B$5:B$19)=0)*(COUNTIF(B$5:B$19;B$5:B$19)>=2));0));"") او المعادلة =LOOKUP(2;1/(((COUNTIF($L$4:L4;$B$5:$B$23)=0)*(COUNTIF($B$5:$B$23;$B$5:$B$23)>1)));$B$5:$B$23) فضلا انظر للمرفق takrir (2).xlsx

حياك الله ....

يمكنك اختيار الشيت وكذلك خلية لليسار واخرى للوسط واخرى لليمين Private Sub CommandButton1_Click() ' prnt Macro With ActiveSheet.PageSetup .LeftHeader = Sheet1.Range("a2") .CenterHeader = Sheet1.Range("b2") .RightFooter = Sheet1.Range("c2") .LeftFooter = Sheet1.Range("a22") .CenterFooter = Sheet1.Range("b22") .RightFooter = Sheet2.Range("a23") End With ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False End Sub

لو دققت النظر في الصورة التالية يتضح لك :::::: ان ادخالك للاجازات هناك تداخل بين التاريخين الشهر 5 موزعة كالتالي : في السجل رقم 1 هناك 31 يوم في شهر 5 في السجل رقم 2 هناك يومان في شهر 5 المفرروض الموظف لديه اجازة 1/5 الى 30/5 كيف ياخذ اجازة مرة اخرى بتاريخ 1/5 الى 2/5 في السجل الثاني دقق النظر ..... حاول تصميم برنامجك على اساس لو حصل تعارض بين اجازتين من حيث التواريخ يرفض ذلك ....

طيب ... طبق الخطوات حسب الصور :::::: البحث_kan.accdb

انظر الاستعلام هل هذا ما تريد .....

خطبة عن فضل العشر من ذي الحجة من خطب الجمعة للشيخ محمد نبيه يبين فيها فضل العشر الأوائل من ذي الحجة وما هي أفضل الأعمال الصالحة في هذه الأيام. # الخطبة الأولى # إن الحمد لله نحمده ونستعينه ونستغفره، ونعوذ بالله من شرور أنفسنا وسيئات أعمالنا. من يهده الله فلا مضل له، ومن يضلل فلا هادي له. وأشهد أن لا إله إلا الله وحده لا شريك له. وأشهد أن محمداً عبده ورسوله وصفيه وخليله صلى الله وسلم وبارك عليه وعلى آله وصحبه. (يَا أَيُّهَا الَّذِينَ آمَنُوا اتَّقُوا اللَّهَ حَقَّ تُقَاتِهِ وَلَا تَمُوتُنَّ إِلَّا وَأَنتُم مُّسْلِمُونَ). (سورة آل عمران:102) (يَا أَيُّهَا النَّاسُ اتَّقُوا رَبَّكُمُ الَّذِي خَلَقَكُم مِّن نَّفْسٍ وَاحِدَةٍ وَخَلَقَ مِنْهَا زَوْجَهَا وَبَثَّ مِنْهُمَا رِجَالًا كَثِيرًا وَنِسَاءً غڑ وَاتَّقُوا اللَّهَ الَّذِي تَسَاءَلُونَ بِهِ وَالْأَرْحَامَ غڑ إِنَّ اللَّهَ كَانَ عَلَيْكُمْ رَقِيبًا). (سورة النساء:1) أما بعد فإن أصدق الحديث كتاب الله تعالى، وخير الهدي هدي نبينا محمد صلى الله عليه وسلم. وشر الأمور محدثاتها، وكل محدثة بدعة، وكل بدعة ضلالة، وكل ضلالة في النار. وما قل وكفى خير مما كثر وألهى، (إِنَّ مَا تُوعَدُونَ لَآتٍ غ– وَمَا أَنتُم بِمُعْجِزِينَ). (سورة الأنعام:134) # طريق السعادة # عباد الله، تأتي الأيام مسرعة وتمضي مسرعة، وفي النهاية لقاء الله تبارك وتعالى. دنيانا التي نتكالب عليها قصيرة الأمد، والنبي صلى الله عليه وسلم قال في الحديث: (ما لي وللدُّنيا، ما أنا في الدنيا إلا كراكبٍ استظَلَّ تحتَ شجرةٍ، ثم راح وتركَها). (صحيح الترغيب 3282) إذا ضرب الإنسان منا تعب أو رهق ينزل للقيلولة، فكم يقيل؟ يقيل ساعة، هكذا عمر الدنيا التي يتكالب عليها الخلق. والإنسان السعيد هو الذي ينتهز الفرص، ينتهز فرصة وجوده في الحياة القصيرة ليسعد في حياة لا نهاية لها. قال الله تعالى: (وَمَا هَظ°ذِهِ الْحَيَاةُ الدُّنْيَا إِلَّا لَهْوٌ وَلَعِبٌ غڑ وَإِنَّ الدَّارَ الْآخِرَةَ لَهِيَ الْحَيَوَانُ غڑ لَوْ كَانُوا يَعْلَمُونَ). (سورة العنكبوت:64) ومن السعادة أن ترزق الفهم الصحيح، لأن الفهم الصحيح إرادة خير من رب العالمين. قال النبي صلى الله عليه وسلم: (مَن يُرِدِ اللَّهُ به خَيْرًا يُفَقِّهْهُ في الدِّينِ). (صحيح البخاري 71) فإرادة الخير سعادة، ومن ثم الفهم الصحيح طريق السعادة. ومن الفهم الصحيح أن تعلم أن هذا اليوم أشرف أيام الدنيا. وقد ورد في السنة النبوية عن أوس بن أبي أوس: أن النبي صلى الله عليه وسلم قال: (إنَّ من أفضلِ أيَّامِكُم يومَ الجمعةِ فيهِ خُلِقَ آدمُ وفيهِ قُبِضَ وفيهِ النَّفخةُ وفيهِ الصَّعقةُ فأكْثِروا عليَّ منَ الصَّلاةِ فيهِ فإنَّ صلاتَكُم معروضةٌ عليَّ). قالَ: قالوا يا رسولَ اللَّهِ وَكَيفَ تُعرَضُ صلاتُنا عليكَ وقد أرِمتَ – يقولونَ بليتَ – فقالَ صلى الله عليه وسلم: (إنَّ اللَّهَ عزَّ وجلَّ حرَّمَ علَى الأرضِ أجسادَ الأنبياءِ). (صحيح أبي داود 1047) وهذا اليوم يوم الجمعة زاد في الفضل لأنه في شهر حرام. كذلك زاد في الفضل لأنه أول الأيام العشر من ذي الحجة التي أقسم الله بها في كتابه. قال تعالى في سورة الفجر: (وَالْفَجْرِ (1) وَلَيَالٍ عَشْرٍ (2) وَالشَّفْعِ وَالْوَتْرِ (3) وَاللَّيْلِ إِذَا يَسْرِ (4) هَلْ فِي ذَظ°لِكَ قَسَمٌ لِّذِي حِجْرٍ (5)). فهذا اليوم أول أيام شهر ذي الحجة نسأل الله تعالى أن يجمعنا وإياكم في نسك قريب. وأن يختم لنا جميعاً بخير إنه ولي ذلك والقادر عليه. # فضل العشر من ذي الحجة # العشر الأوائل من ذي الحجة أفضل أيام الدنيا كما أخبر النبي عليه الصلاة وأزكى السلام. يمتاز رمضان في فضل لياليه، ويمتاز شهر ذي الحجة في فضل نهاره وأيامه. وهذه الأيام العشر قال فيها النبي صلى الله عليه وسلم: (ما مِن أيَّامٍ العملُ الصَّالحُ فيها أحبُّ إلى اللهِ مِن هذه الأيَّامِ العَشْرِ) قالوا: يا رسولَ اللهِ ولا الجهادُ في سبيلِ اللهِ؟ قال: (ولا الجهادُ في سبيلِ اللهِ إلَّا رجلٌ خرَج بنفسِه ومالِه ثمَّ لم يرجِعْ مِن ذلك بشيءٍ). (صحيح ابن حبان 324) # أعمال العشر من ذي الحجة # الأعمال الصالحة في هذه العشر كثيرة مثل الصيام والصلاة والصدقات وسائر الصالحات، وما توفق إليه هو أفضل عمل. إن كنت موفقاً للصيام فصم، وإن وفقت للصدقات فتصدق، وإن وفقت لقول الخير فانطق به. ما توفق إليه من صالحات هو أفضل الأعمال فاشتغل فيه وأتقنه. لذلك قال تعالى: (لَّا خَيْرَ فِي كَثِيرٍ مِّن نَّجْوَاهُمْ إِلَّا مَنْ أَمَرَ بِصَدَقَةٍ أَوْ مَعْرُوفٍ أَوْ إِصْلَاحٍ بَيْنَ النَّاسِ غڑ وَمَن يَفْعَلْ ذَظ°لِكَ ابْتِغَاءَ مَرْضَاتِ اللَّهِ فَسَوْفَ نُؤْتِيهِ أَجْرًا عَظِيمًا). (سورة النساء:114) ## الصلاة ## إذا وفقت للصلاة فصلي ما استطعت إلى الصلاة سبيلا. وفي الحديث الصحيح قال النبي صلى الله عليه وسلم: (الصلاةُ خيرٌ موضوعٍ، فمَنِ استطاعَ أنْ يَسْتكْثِرَ فلْيستكْثِرْ). (الجامع الصغير 5163) عندك في طول النهار وعرضه ركعات مؤكدات قال فيها رسول الله صلى الله عليه وسلم: (مَن صَلَّى اثْنَتَيْ عَشْرَةَ رَكْعَةً في يَومٍ وَلَيْلَةٍ، بُنِيَ له بِهِنَّ بَيْتٌ في الجَنَّةِ). (صحيح مسلم 728) ركعتان قبل الفجر، وأربع ركعات قبل الظهر وركعتان بعده، وركعتان بعد المغرب، وركعتان بعد العشاء. من داوم على هذه الركعات في اليوم الواحد يبنى له بها بيت في الجنة. كذلك عندك في أول النهار ركعتي الشروق ورد فيها عن أنس بن مالك أن النبي صلى الله عليه وسلم قال: (من صلى الفجرَ في جماعةٍ ثم قعدَ يذكُرُ اللهَ حتى تطلُعُ الشمسُ ثم صلى ركعتين كانت له كأجرِ حَجَّةٍ وعمرةٍ). قال: قال رسولُ الله صلى الله عليه وسلم: (تامَّةٍ، تامَّةٍ، تامَّةٍ). (صحيح الترمذي 586) وعندك أربع ركعات كذلك في أول النهار كان يصليهن رسول الله صلى الله عليه وسلم وقال فيها: (قال اللهُ تعالى: يابنَ آدمَ! لا تعجِزْ عنْ أربعِ ركعاتٍ في أولِ النهارِ، أكفِكَ آخرَهُ). (صحيح الجامع 4342) يعني من ركع في أول النهار أربع ركعات كفاه الله تعالى شر يومه. كذلك هناك أربع ركعات قبل العصر قال فيها المصطفى صلى الله عليه وسلم: (من صلَّى قبلَ العصرِ أربعَ ركعاتٍ غفرَ اللَّهُ عزَّ وجلَّ لهُ مغفرةً عَزَمًا). (عمدة القاري 7/341) أو كما قال صلوات الله وسلامه عليه. فأربع ركعات قبل العصر سبيل إلى رحمة الله، وعندك صل ما شئت بليلك، إن وفقت إلى الصلاة فهي خير عمل. ## الصدقات ## ومن وفق إلى الصدقات فهي خير عمل، وما أحوجنا إلى الصدقات في هذه الأيام، حيث الستر على المسلمين، حيث كفاية المعوزين والمحتاجين، حيث تفريج الكرب وفك الأسر والخلاص. والنبي صلى الله عليه وسلم قال: (مَن ستَر أخاه المسلمَ ستَره اللهُ في الدُّنيا والآخرةِ ومَن فرَّج عن مسلمٍ كُربةً فرَّج اللهُ عنه كُربةً مِن كُرَبِ يومِ القيامةِ واللهُ في عونِ العبدِ ما كان العبدُ في عونِ أخيه). (صحيح ابن حبان 534) هناك بيوت كثيرة تحتاج إلى ثياب للعيد، هناك بيوت كثيرة تحتاج إلى كفايتها. فإن وفقت في الصدقات فأتقنها واشتغل، واعلم أن شيئاً عند الله لن يضيع (وَلَن يَتِرَكُمْ أَعْمَالَكُمْ) (سورة محمد:35)، (مَا عِندَكُمْ يَنفَدُ وَمَا عِندَ اللَّهِ بَاقٍ). (سورة النحل:96) السيدة عائشة رضي الله عنها وأرضاها، كانت إذا أتاها الفقير وضعت الصدقة في يدها وقالت له: خذها. لماذا كل هذا؟ حتى تكون يد الفقير هي العليا، وفي هذا إعزاز للفقير. لكننا عكسنا الأحوال، إن أعطينا الفقير نعطيه لنذله، وفي القريب العاجل نمن عليه بما أعطيناه. والمن بالصدقة يبطلها، كما قال الله في كتابه الكريم: (يَا أَيُّهَا الَّذِينَ آمَنُوا لَا تُبْطِلُوا صَدَقَاتِكُم بِالْمَنِّ وَالْأَذَى). (سورة البقرة:264) فأي من بالصدقة، أي من بموقف من المواقف يحبط أجره ويعيد صاحبه صفراً. لذلك من وفق إلى الصدقات فليتصدق وليعلم أن شيئاً عند الله لن يضيع على صاحبه أبداً. بل إن الله تعالى ينمي الصدقة لصاحبها، يكبرها حتى تكون يوم يوافيه كجبل أحد في ميزان صاحبها. ## قول الخير ## ومن وفق إلى قول المعروف والخير فليصدح به، فقول المعروف من الصدقات. ورد في الصحيح أن رسول الله صلى الله عليه وسلم قال: (عَلَى كُلِّ مُسْلِمٍ صَدَقَةٌ) قالوا: فإنْ لَمْ يَجِدْ؟ قالَ صلى الله عليه وسلم: (فَيَعْمَلُ بيَدَيْهِ فَيَنْفَعُ نَفْسَهُ ويَتَصَدَّقُ). قالوا: فإنْ لَمْ يَسْتَطِعْ أوْ لَمْ يَفْعَلْ؟ قالَ صلى الله عليه وسلم: (فيُعِينُ ذا الحاجَةِ المَلْهُوفَ). قالوا: فإنْ لَمْ يَفْعَلْ؟ قالَ صلى الله عليه وسلم: (فَيَأْمُرُ بالخَيْرِ أوْ قالَ: بالمَعروفِ). قالوا: فإنْ لَمْ يَفْعَلْ؟ قالَ صلى الله عليه وسلم: (فيُمْسِكُ عَنِ الشَّرِّ فإنَّه له صَدَقَةٌ). (صحيح البخاري 6022) إذا وفقت إلى قول الخير فاصدح به، وإذا لم توفق إلى قول الخير فلا تقل الشر ولا تركن إلى أهله. واعلم باركك الله أن بيوتاً كثيرة معرضة للخراب، لماذا؟ لغشم في التعامل، لغشم في العشرة، لغشم في التصرف. هناك نساء كثر غضبى إن كانت في بيت أبيها أو إن كانت في بيت أخيها أو إن أخذت مكاناً واستقلت به. لا تريد أن تعامل البشر، من ماذا؟ لخديعة وقعت فيها في الزواج، خدعها بطيب حاله بحسن مظهره فلما أضيفت إليه كزوجة رأت حقيقة أمره. فعلمت أنها وقعت في خداع، غضبت أعادها أبوها، غضبت أعادها أبوها. سئمت من الحال بين أبيها وزوجها تركت الدنيا ومشت في شوارع الناس تدور على البيوت، لماذا؟ لإذلال وقهر وقعت فيه. ما هذا؟ ## الإصلاح بين الناس ## لذلك الله تعالى ما غفل الحال أبداً ولذا أوصى بالإصلاح بين الناس. الإصلاح بين الناس ما أحوجنا إليه، بيوت معطلة، أطفال مشردة، من ماذا؟ من سوء العشرة في البيوت. لذلك من كانت امرأته غضبى فليسعى في اصلاحها، ومن كانت ابنته غضبى فليسعى في ارجاعها. هكذا ما ينبغي أن يكون قبل مجيء العيد. وإلا كيف يكون العيد عيداً!؟ كيف يكون العيد عيداً وحالنا هكذا؟ الجار مع الجار، الزوج مع الزوجة، بيوت تهتكت وخربت بأسباب حقيرة. من لا شيء تصنع أزمة، من لا شيء يغضب الإنسان، من لا شيء والعياذ بالله يكفر الإنسان. لذلك أول يوم من أيام ذي الحجة ما ينبغي أن نتركه هكذا. بل العاقل من ينتهز الفرص حتى إذا وافته المنية وافته وهو على خير. والنبي صلى الله عليه وسلم قال: ( إذا أرادَ اللهُ بعبدٍ خيرًا عَسَلَهُ)، قِيلَ: وما عَسَلَهُ؟ قال: (يَفتحُ لهُ عملًا صالِحًا قبلَ مَوتِه، ثمَّ يَقبِضُهُ عليهِ). (صحيح الجامع 307) فاللهم كما حسنت خلقنا فحسن أخلاقنا، هذا وإني أستغفر الله العظيم لي ولكم. # الخطبة الثانية # الحمد لله رب العالمين، والعاقبة للمتقين ولا عدوان إلا على الظالمين. والصلاة والسلام على نبينا محمد سيد النبيين وخاتم المرسلين ورحمة الله للعالمين. لما عرج بالنبي إلى السماوات، رأى آدم عليه السلام وعن يمينه أسودة وعن يساره أسودة. والأسودة هي الجماعة من الناس. وكان آدم عليه السلام كلما نظر عن يمينه سُر، وكلما نظر عن يساره اغتم. فعجب النبي صلى الله عليه وسلم من هذا، فسأل جبريل عليه السلام: ما هذا يا جبريل؟ قال جبريل عليه السلام: هذا أبوك آدم، والذين عن يمينه هم من قسم الله لهم بالجنة من ذريته نسأل الله تعالى أن نكون منهم. وأما الذين عن يساره فهم من قسم الله لهم بالنار من ذريته نعوذ بالله أن نكون منهم. فكان آدم عليه السلام كلما نظر إلى ولده الصالح الذي قسم له بالجنة يفرح ويسر. هكذا فكن، افرح لصلاح ولدك واحزن لفساده. إذا كان الولد صالحاً وسبقني إلى ربي، سبق جزء مني إلى الرضا والرحمة. وإذا ما سبقته أنا تركت أثراً صالحاً يُدعى إلي به، ويستغفر إلي به. لذلك يقول الشاعر: رَأَيــتُ صَــلاحَ المَــرءِ يُــصــلِحُ أَهــلَهُ وَيُــعــديـهِـمُ داءُ الفَـسـادِ إِذا فَـسَـد يُــعَــظَّم فـي الدُنـيـا بِـفَـضـلِ صَـلاحِهِ وَيُحفَظُ بَعدَ المَوتِ في الأَهلِ وَالوَلَد فاتقوا الله عباد الله واعلموا أن العشر عشر فاضلة، بل هي أفضل أيام الدنيا. فالسعيد من استغلها في طاعة مولاه، والشقي من أعرض فيها عن طاعة الله. ## رعاية وتأديب الأولاد ## واعلموا اخوتي الكرام أن من الأعمال الصالحة مباشرة الأولاد بالرعاية والتأديب. تكثر المصائب والحوادث في مثل هذه الأيام، في أيام الأعياد عموماً تكثر البلايا والحوادث، من ماذا؟ من الغلو في الفرح، يفرح ولكن في غلو، الشباب الناشئة ضُيع منهم كثير. ترى وتشاهد الحركات الغلمانية الصبيانية على الطرق، خاصة في أيام الأعياد. افرح ما يمنعك أحد أن تفرح، لكن افرح بلا تفزيع الناس، لا تؤذي مشاعر الناس، لا تحدث الصخب فتفرح أنت ويحزن غيرك. افرح ولكن باعتدال، لا تفزع الآخرين، ولا تشوش على الآخرين، لا تبكي أمك، لا تبكي أباك، لا تبكي أخاك، هكذا فافهم. ## صيام العشر من ذي الحجة ## ثم اعلم باركك الله أن من صالح الأعمال أن تصوم من هذه الأيام. لو صومتها كلها ما خالفت، لو صومت منها الإثنين والخميس ما خالفت، لو صومت منها عرفة فقط ما خالفت. لكن لا تصم باتفاق أيام العيد، لا تصم يوم الأضحى ولا أيام التشريق. مشاهدة الخطبة على اليوتيوب

السلام عليكم أولا نشكركم و نثمن وجودكم معنا فى منتدى أوفيسنا ، الآن تعدى عدد أعضاء المنتدى 190 الف عضو ، و تعدى عدد المشاركات 590 ألف مشاركة و أصبح الموقع قاعدة بيانات ثرية لمن يرغب فى تعلم الاوفيس و تبادل المعلومات و الخبرات فيما يتعلق بالاوفيس على مختلف مستويات الاحتراف لاستخدام تطبيقات الافيس و برمجتها. و عليه نشكر كل من ساهم و يساهم ممن يقتطعون من وقتهم و جهدهم فى سبيل نشر العلم و مشاركة المعرفة و مساعدة الآخرين سواء كانوا معنا او غابوا عنا وبقت اعمالهم ننهل منها جميعا لنزداد علما و معرفة. و نسأل الله أن يجعله فى ميزان حسناتهم يوم لا ينفع مال ولا بنون. فلا يسعنا أن نوفيهم شكر ما قدموا ومازالوا يقدمون. كما تعلمون تتركز أغلب المشاركات فى الموقع فى أقسام الأوفيس الرئيسية ، و نرى فى هذه المرحلة تشجيع الجميع على التواجد وتبادل المعرفة فى الاقسام المتعلفة بادارة المشاريع و المرونة و البحث العملي و تطبيقات البيانات الضخمة و الذكاء الاصطناعي وهي أقسام يقل عدد روادها و مشاركاتها بصورة كبيرة مقارنة باقسام الاوفيس ، كما يقل عمرها ايضا كثيرا عن أقسام الاوفيس، فبعض هذه الأقسام قد افتتح مؤخرا بينما تعدي عمر بعض اقسام الاوفيس الرئيسية ثمانية عشر عاما واصبحت ثرية بالعلم و مازالت تطرح الجديد فى كل يوم بفضل عطاءكم و مشاركتكم. وسبب هذه الدعوة للمشاركة وهو نفس سبب افتتاح هذه الافسام الجديدة، هو رغبنا فى تقديم ما فيه الفائدة لأعضاء المنتدى، فهذه المواضيع قد إزدادت أهميتها بدرجة كبيرة، و من المتوقع بحسب العديد من الدراسات أن تزيد أهميتها كثيرا فى الفترة القادمة على المستوى المهني وستصبح أساسية للتطوير الذاتي أيا كان مجال عملك. وكما جرت العادة للأسف، فالمحتوى العلملي المتاح بالانجليزية فى هذه المواضيع يتعدى المحتوى المتاح باللغة العربية بصورة كبيرة ، و عليه باذن الله سنعمل سويا على اتاحة ما هو مفيد فى هذه الاقسام لتبادل المعرفة وتحقيق القائدة المرجوة. تم افتتاح قسمين جديدن حديثا ضمن أقسام ادارة المشاريع و هما قسمي (الاستراتيجية و ادارة محافظ المشاريع) و الذي افتتح من ايام قلائل و قسم مخصص لاطار (السيف (SAFe) و المتعلق بتطبيق المرونة على مستوى المؤسسات Scaled Agile Framework و الذي افتتح أمس فقط الأقسام الجديدة كما اعتدنا لا يتم النشر بها مباشرة و لكن يتم النشر بعد اعتماد المشاركات من المشرفين ، فستظهر المشاركات بعد اعتمادها، و بعد فترة باذن الله سيتم فتح النشر المباشر مثل باقي اللأقسام بعدما يعتاد المشاركين فى هذه الأقسام على نظام الموقع. فى انتظار مشاركاتكم و تفاعلكم جميعا مع تحيات فريق الموقع www.officena.net

الخلية N3 بها شرط اكتمال البيانات =AND(G4<>"";K4<>"";D5<>"";K5<>"";D6<>"";K6<>"";D7<>"";K7<>"";D8<>"";B10<>"") الخلية N4 تظهر بها اسماء البيانات الناقصة =CONCAT(IF(G4="";E4&" -";"");IF(K4="";I4&" -";"");IF(D5="";B5&" -";"");IF(K5="";I5&" -";"");IF(D6="";B6&" -";"");IF(K6="";I6&" -";"");IF(D7="";B7&" -";"");IF(K7="";I7&" -";"");IF(B10="";H9&" -";"")) الخلية N5 بها نص الرسالة =IF(N3;"";CONCAT("اكمل ادخال البيانات الناقصة";CHAR(10);CHAR(10);N4)) تم اضافة الى الكود مع الترحيل If FS.Range("N3") = False Then Dim Q1 Q1 = FS.Range("N5").Text MsgBox Q1, vbMsgBoxRight, "خطاء" Exit Sub End If مع التحية y02.xlsm

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

لكل مبرمج منا وجهة نظر انا اعتقد انه ضروري حتى لا يحصل خطأ في حساب الرصيد عندما تكون هناك عدة حركات على الحساب في نفس التاريخ لكونه يعطي التسلسل الصحيح في ترتيب الحركات ممكن عدم استخدامه اذا كان لدينا تاريخ بتنسيق الوقت والتاريخ ليكون التسلسل وفقا لذلك ولكن id اسهل الان ناتي للمهم عمل الرصيد التراكمي ممكن بعدة طرق الطريقة الاسهل ويعملها اكسس بدون مجهود منا في التقارير اما في النماذج والاستعلامات فسوف اشرح طريقتين وبشكل مختصر الاولى عن طريق حقل محسوب في الاستعلام باستخدام دالة dsum DSum("[daan] ";"hrkahesab";"[id]<=" & [id] & "and [date]<=" & Format([date];"\#mm\/dd\/yyyy\#"))-DSum("[maden] ";"hrkahesab";"[id]<=" & [id] & "and [date]<=" & Format([date];"\#mm\/dd\/yyyy\#")) وهنا نجمع حقل دائن بشرط id يساوي او اصغر من id في النموذج والتاريخ للسجل اصغر او يساوي التاريخ في الاستعلام ثم نطرح منه جمع حقل مدين بنفس الشرطين هذه الطريقة اسهل ولكن الافضل عدم استخدامها لكونها ليست سريعة عند جود سجلات كثيرة الطريقة الثانية نضع حقل في الاستعلام باستخدام استعلام فرعي يفضل استخدام اسم مستعار للجدول من خلال فتح الاستعلام في وضع التصميم ثم وضع المؤشر على الجدول ثم في ورقة الخصائص اسم مستعار وبنفس الشروط ليكون الكود RaseedTrakomy: (select(sum([daan])-sum([maden])) from [HRKAHESAB] where [id]<= kh.[id] and [date]<=kh.[date] and [merg]=kh.[merg]) في الحالتين نحصل على نفس النتيجة ولكن من تجربتي الطريقة الثانية اسرع اخيرا اخي عادل اعتذر منك فلم اقصد في مشاركتي السابقة اي تجريح فلك كل التقدير والاحترام ولكني تفاجأت بعد وضع الرد ان الموضوع قديم وان الملف المطلوب تعديلة مختلف

هل المقصود عدد مرات تكرار رقم الأستاذ في شيت توزيع الحراسة ؟؟ إذا كان هذا هو المقصود فيمكنك استخدام عمود c لرقم الأستاذ ثم إخفائه قبل الطباعة إن أردت واستعمال الدالة countif للعد بشرط وهذا ملفك بعد هذا التعديل حساب مجموع فترات الحراسة.xlsm

طبيعي جدا ألا يعمل الكود وأنت وضعته في موديول جديد هو فقط تعديل لكود الطباعة بطريقة أخرى: يوجد في كود الطباعة السطرين الخاصين بالتصدير إلى pdf والطباعة R.ExportAsFixedFormat Type:=xlTypePDF, Filename:="e:\pdf\" & "\" & fil_name sh.Range("a1:h30").PrintOut استبدلهما بما سبق يعني ضع قبلهما سطرين If [h1] = "" Then pp: وضع بعدهما الباقي [h1] = [h1] + 1 Else m = MsgBox("تمت الطباعة قبل ذلك" & Chr(10) & "هل تريد الطباعة مرة أخرى", vbYesNo, "تنبيه") If m = 6 Then GoTo pp End If وطبعا هذا على كلامك السابق لكن بعد تحديد (على أساس رقم المستند ) فالموضوع سيختلف تماما وهذا كود إجراء الطباعة والتصدير كاملا module4 Sub RectangleRoundedCorners222_Click() 'On Error Resume Next 'Sheets("حساب").Range("A1:h10").ExportAsFixedFormat xlTypePDF, Filename:="e:\pdf\" & Sheets("حساب").Range("b3").Value & Sheets("حساب").Range("a3").Value, openafterpublish:=True Dim sh As Worksheet Dim R Dim fil_name Set sh = ThisWorkbook.Worksheets("حساب") fil_name = sh.Range("b3") & " " & sh.Range("a3") Set R = sh.Range("a1:h10") If IsError(Application.Match(Range("a3"), Range("i:i"), 0)) Then pp: R.ExportAsFixedFormat Type:=xlTypePDF, Filename:="e:\pdf\" & "\" & fil_name & ".pdf" sh.Range("a1:h30").PrintOut Range("i" & Range("i" & Rows.Count).End(xlUp).Row + 1).Value = [a3] Else m = MsgBox("تمت الطباعة قبل ذلك" & Chr(10) & "هل تريد الطباعة مرة أخرى", vbYesNo, "تنبيه") If m = 6 Then GoTo pp End If End Sub بالتوفيق

وعليكم السلام 🙂 حسب علمي كمبرمج (والمحاسب سيعطي اجابة ادق🙂) ، يكون فيه جدول لقيمة المواد ، وكلما جبت بضاعة جديدة ، يتم اضافتها لهذا الجدول ، وقت البيع ، وهنا تختلف طرق الحساب: 1. تقدر تأخذ آخر قيمة للمادة ، دائما ، وتستعملها في كسعر المادة للبيع ، 2. تقدر تأخذ معدل قيمة المادة ، وهذه القيمة لها علاقة بكمية المادة التي بيعها بالفعل ، والكمية الجديدة ، وهنا قد تأخذ معدل القيمة من جدول القيم فقط ، او تأخذ المعدل بإستخدام المواد ايضا 🙂 ولكن في جميع الاحوال ، القيم القديمة تظل كما هي ، وبدون عمل اي تغيير عليها 🙂 جعفر

حياك الله واذا عندك اي اضافات او استفسارات ابعث مع الشكر نزار C11= Total Salary C10 = Baisc salary Overtime Calculation Article 107 (1).xlsx

السلام عليكم حضرتك عاكس المعادلة =C11+(C10*50%) المفروض حسب الشرح =C10+(C11*150%) يطلع الجواب 58.3

تقدر تستفيد من خاصية ازالة التكرار الموجودة في اكسل بضغطة زر تصلل القائمة كاملة ( الرقم ؟ الاسم / التاريخ ) ..داتا ,,ازالة التكرار ..تشيل علامة الصح من ( الرقم ) لعدم وجود تكرار ..وبالتوفيق

وعليكم السلام اخوي حسين 🙂 شكرا جزيلا على هذه الطريقة 🙂 هناك طريقة اخرى سهلة وقد تكون اكثر فائدة: على افتراض ان اسم البرنامج myDB.mdb : 1. عمل صورة بحجم 1x1 بكسل (مرفق نسخة) ، وتسميتها بنفس اسم البرنامج ولكن بصيغة bmp هكذا : myDB.bmp ، ووضعها في نفس مجلد الملف myDB.mdb ، بهذه الطريقة لن تشاهد اي شيء الى ان يفتح البرنامج (إلا اذا كنت شديد الملاحظة ورأيت الصورة بهذا الحجم 🙂 ) . 2. عمل صورة فيها اسم الشركة وشعارها وارقامها ، واسم البرنامج ، بالحجم المناسب ، وتسميتها بنفس اسم البرنامج ولكن بصيغة bmp هكذا : myDB.bmp ، ووضعها في نفس مجلد الملف myDB.mdb ، بهذه الطريقة يفتح البرنامج بهذه الصورة (ويفرح المدير 🙂) بدلا عن شاشة الاكسس Splash screen 🙂 . جعفر 1x1_For_Hiding_Splash_Screen.bmp

السلام عليكم ورحمة الله وبركاته بارك الله فيك مع اني عملت نفس طريقتك بتغير المسار ولم تنجح معي وعندما شاهدة مرفقك وجدت الخاطاء الذي كان معقدني وهي كلمة \Chrome لم اكن اضعها تحياتي لك

. تفضل قمت فقط بتغير المسار حق المتصفح بدل من C:\Program Files\Internet Explorer\IEXPLORE.EXE الى C:\Program Files\Google\Chrome\Application\chrome.exe Ù_تØ_ رابط.mdb

وعليكم السلام ورحمة الله وبركاته لالغاء مفتاح الشيف او تفعيله نقوم باضافة الوحدة النمطية التالية Function ChangeProperty(strPropName As String, _ varPropType As Variant, _ varPropValue As Variant) As Integer Dim prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo Change_Err dbs.Properties(strPropName) = varPropValue ChangeProperty = True Change_Bye: Exit Function Change_Err: If err = conPropNotFoundError Then ' Property not found. Set prp = dbs.CreateProperty(strPropName, _ varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ' Unknown error. ChangeProperty = False Resume Change_Bye End If End Function لايقاف تشغيله الكود التالي ChangeProperty "AllowBypassKey", dbBoolean, False للتشغيل ChangeProperty "AllowBypassKey", dbBoolean, True اذا كانت قاعدة البيانات محمية بكلمة مرور ( قاعدة البيانات ولا اقصد vba ) فلا يمكن من خلال برنامج خارجي الغاء الشيفت الا بمعرفة كلمة السر اولاً تحياتي

كما اعتدنا بأن هذا المنتدى للفائدة العامة و نشر العلم و تبادل الخبرات هذا هو البرنامج متاح للجميع للتعديل و الاستفادة اسم المستخدم :Admin كلمة المرور : 123 اخي محمود الأن تستطيع طلب المساعدة من الإخوة في حال واجهتك مشكلة او اردت الاضافة و التعديل MyNewData.zip

مثال رقم 3 :- فى المثال رقم 2 كان الشرح على نفس الصوره السابقه فورم فى مرحلة التصميم وصممت عليه Frame والفريم لا يوجد به اى عناصر تحكم تم تصميمها وكان المثال برقم 2 انى اعمل كود عند فتح الفورم يكون هناك عدد 10 صفوف من العناصر كل صف به ليبل وتكست بوكس وكمبوبوكس المثال بتاعنا اليومعايز اعرف ازاى اضيف عناصر تحكم اثناء فتح الفورم من شيت اكسيل وعدد الصفوف بالشيت غير معروف عددها فى زياده او نقصان شاهد الصوره هتعرف اكتر المثال بتاعنا بكل بساطه نفس الكود اللى بالمثال 2 مع تعديلات فنيه بسيطه جدا دا كان الكود اللى بالمثال 2 Private Sub UserForm_Initialize() Dim Top As Integer Dim i As Integer Top = 5 For i = 1 To 10 With Me.Frame1.Controls.Add("Forms.Combobox.1", "Combobox" & i) .Left = 20 .Top = Top .Height = 40 .Width = 150 .BackColor = &HFFFFC0 .TextAlign = fmTextAlignCenter .FontSize = 20 .Font.Bold = True Dim a As Variant a = Array("ناجح", "راسب") .List = a End With With Me.Frame1.Controls.Add("Forms.TextBox.1", "TextBox" & i) .Left = 180 .Top = Top .Height = 40 .Width = 150 .TextAlign = 2 .FontSize = 20 .Font.Bold = True .BackColor = &HC0FFFF End With With Me.Frame1.Controls.Add("Forms.Label.1", "Label" & i) .Left = 340 .Top = Top .Height = 40 .Width = 150 .SpecialEffect = fmSpecialEffectEtched .TextAlign = 2 .FontSize = 24 .Font.Bold = True .BackColor = 8454016 .Caption = "الصقر" & i End With Top = Top + 40 Next Me.Frame1.ScrollHeight = Top End Sub ايه المطلوب تعديله بالكود لكى يتناسب مع المطلوب بتاعنا رفع الخلايا من الشيت الى الفريم المثال كان على ان عدد الصفوف 10 لذالك استخدمنا الحلقه For next كالتالى For i = 1 To 10 فدلوقتى انا عايز اجيب الخلايا بالشيت رقم 1 النطاق من A2 الى اخر صف هيكون به اخر طالب اذن بداية الحلقه هى اول صف بالجدول وهو الخليه A2 ورقم الصف لها هو 2 اذن الحلقه هتبدأ من رقم 2 الى ؟ الى اخر صف به بيانات فى العمود A اذن لازم احدد اخر صف به بيانات من خلال السطر التالى واحنا شرحناه قبل كدا lr = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row عملت متغير واسمه Lr وتقدر تسميه اى اسم كيفما شئت وقلت ان المتغير Lr يساوى كتبت اسم الشيت المراد العمل عليه واستخدمت Cells لتحديد عدد الخلايا الممتلئه بالبيانات فى العمود 1 كدا انا عرفت الحلقه من اين تبدأ واين تنتهى ( تبدأ من الصف 2 الى اخر صف به بيانات ) For i = 2 To lr شاهد الكود بعد تعديل الحلقه For Private Sub UserForm_Initialize() Dim Top As Integer Dim i As Integer lr = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row Top = 5 For i = 2 To lr With Me.Frame1.Controls.Add("Forms.Combobox.1", "Combobox" & i) .Left = 20 .Top = Top .Height = 40 .Width = 150 .BackColor = &HFFFFC0 .TextAlign = fmTextAlignCenter .FontSize = 20 .Font.Bold = True Dim a As Variant a = Array("ناجح", "راسب") .List = a .Text = Sheet1.Cells(i, 3).Text End With With Me.Frame1.Controls.Add("Forms.TextBox.1", "TextBox" & i) .Left = 180 .Top = Top .Height = 40 .Width = 150 .TextAlign = 2 .FontSize = 20 .Font.Bold = True .BackColor = &HC0FFFF .Text = Sheet1.Cells(i, 2).Text End With With Me.Frame1.Controls.Add("Forms.Label.1", "Label" & i) .Left = 340 .Top = Top .Height = 40 .Width = 150 .SpecialEffect = fmSpecialEffectEtched .TextAlign = 2 .FontSize = 24 .Font.Bold = True .BackColor = 8454016 .Caption = Sheet1.Cells(i, 1).Text End With Top = Top + 40 Next Me.Frame1.ScrollHeight = Top End Sub اللى مركز معايا هيلاقى 1- تم تعديل بداية ونهاية الحلقه For 2- فى سطر تم اضافته فى خصائص كل عنصر فى عنصر الكمبوبوكس تم اضافه السطر التالى .Text = Sheet1.Cells(i, 3).Text قيمة الكمبوبوكس هى كتبت اسم الشيت وهو بمثالنا الشيت 1 ثم الخلية المطلوبه Cells عباره عن (رقم العمود, رقم الصف)Cells ( Cells( i , 3 i هنا هى رقم الصف اللى هيتغير كل مره بالحلقه For والعمود هو رقم 3 الخاص بالحاله --------------------------------- فى عنصر التكست بوكستم اضافه السطر التالى .Text = Sheet1.Cells(i, 2).Text نفس الكمبوبوكس ولكن تم تغيير رقم العمود هو 2 الخاص بالدرجه ---------------------------------- فى عنصر الليبل تم اضافه السطر التالى .Caption = Sheet1.Cells(i, 1).Text نفس الكمبوبوكس والتكست بوكس ولكن تم تغيير رقم العمود هو 1 الخاص باسم الطالب ----------------------------------------------------------------------------------------------------------------------- ملحوظه اخيره لمن يريد درجة الاحترافيه فى الكود لما كنا بنعمل خصائص العنصر كان الخاصيه Left & Top & Width& Height لكل عنصر كان بيتم كتابتهم بالشكل التالى كلا منهم على حد فى سطر مختلف على سبيل المثال خصائص التكست بوكس With Me.Frame1.Controls.Add("Forms.TextBox.1", "TextBox" & i) .Left = 180 .Top = Top .Height = 40 .Width = 150 .TextAlign = 2 .FontSize = 20 .Font.Bold = True .BackColor = &HC0FFFF .Text = Sheet1.Cells(i, 2).Text End With ممكن اكتب الاربع خصائص فى سطر واحد من خلال Move القاعدة الخاصه بــ Move Move Left, Top, Width, Height. ويكون شكل الكود كالتالى بالخصائص With Me.Frame1.Controls.Add("Forms.TextBox.1", "TextBox" & i) .Move 180, Top, 150, 40 .TextAlign = 2 .FontSize = 20 .Font.Bold = True .BackColor = &HC0FFFF .Text = Sheet1.Cells(i, 2).Text End With تم استبدال الاربع صفوف بسطر واحد من خلال Move -------------------------------------------------------------------------------------------------------- جرب الكود بنفسك هتثبت المعلومه اكتر الى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد ان شاء الله هيكون عن كيفية التحكم فى العناصر الموجوده داخل الفريم سوء كانت مصممه اثناء عملية التصميم او تم انشائها بكود انتظرونا تقبلوا تحياتى

الأخ abozayed آسف للتأخير لم أر المشاركة إلا الآن عند لصق المعادلة اضغط المفاتيح الثلاثة control + shift+enter لأنها معادلات صفيف الأخ wongchung2 شاهد هذا الفديو

السلام عليكم اخي الفاضل جرب المرفق و اخبرني النتيجة علما بانه مرف ملفان احدهما 2003 و الاخر 2007 تحياتي ربط الرسم بالمعادلات1.rar