عبدالله باقشير

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

السلام عليكم خي الحبيب ابو عبدالله ----------حفظه الله الله يسلمك ويحفظك من كل مكروه وانتم ايضا لكم وحشة في قلوب محبيكم وعيد مبارك وكل عام وانتم وجميع المسلمين بخير وصحة وعافية.

السلام عليكم الآن شرحتم صدري بهذا الكلام الطيب جزاكم الله الف خير تحياتي لكم جميعا الجمع المبارك وكل عام وانتم بخير ودمتم في حفظ الله

السلام عليكم بارك الله فيك اخي كريم تقبل تحياتي وشكري

السلام عليكم يمكن تنفيذه ولكن متعب جدا ويحتاح تركيز وقد قرأت الكثير من الحلول في المنتديات الاجنبية ولكنها مطولة وتجيب وجع الراس شاهد مثلا الكود التالي: والذي ليس له علاقة بطلبك وانما لترى وتفهم ما قصدته من وجع الراس Sub PopulateCrossTab() 'Count ocurences of Colour and Price Code _ combinations in database Dim Field_ColourData As Variant Dim Field_PriceCodeData As Variant Dim CrosstabRowHeader As Variant Dim CrosstabColHeader As Variant Dim TestArray1() As Long Dim TestArray2() As Long Dim TableArray() As Variant 'Load arrays Field_ColourData = Range("Colour") Field_PriceCodeData = Range("PriceCode") CrosstabRowHeader = _ Range("Crosstab").Resize(, 1).Offset(, -1) CrosstabColHeader = _ Range("Crosstab").Resize(1).Offset(-1) x = UBound(CrosstabColHeader, 2) y = UBound(CrosstabRowHeader, 1) Records = UBound(Field_ColourData, 1) ReDim TestArray1(1 To Records) ReDim TestArray2(1 To Records) ReDim TableArray(1 To y, 1 To x) For r = 1 To y For c = 1 To x 'Build test arrays for sumproduct For i = 1 To Records TestArray1(i) = _ Field_ColourData(i, 1) = CrosstabColHeader(1, c) TestArray2(i) = _ Field_PriceCodeData(i, 1) = CrosstabRowHeader(r, 1) Next TableArray(r, c) = _ WorksheetFunction.SumProduct(TestArray1, TestArray2) Next Next Range("Crosstab") = TableArray End Sub واخترت لك حلين مبسطين :(بالمرفق) Sub kh_Test() Dim Rng As Range, N As Range Dim WS As Worksheet Set WS = ورقة1 Set Rng = WS.Range("F6:G10") Rng.ClearContents For Each N In Rng N = Application.Evaluate("SUMPRODUCT((offices=" & WS.Cells(N.Row, 5).Address & ")*(asnaf = " & WS.Cells(5, N.Column).Address & ")*(totals))") Next End Sub والثاني: Sub kh_Test_1() Dim WS As Worksheet Dim Rng As Range, N As Range Dim kh_1, kh_2 Set WS = ورقة1 Set Rng = WS.Range("F6:G10") Rng.ClearContents For Each N In Rng kh_1 = WS.Cells(N.Row, 5) kh_2 = WS.Cells(5, N.Column) N = Application.Evaluate("SUMPRODUCT((offices=""" & kh_1 & """)*(asnaf = """ & kh_2 & """)*(totals))") Next End Sub وابسط الحلول مو ما طرحته سابقا وهو الذي استخدمة انا في التعامل مع هذه الدالة في الاكواد وهو من اسهل الحلول ولا يحتاج تنفيذه الى وقت طويل شاهد المرفق test1.2 sumproduct.rar

السلام عليكم الجمع المبارك الله يبارك فيكم وعلى كلامكم الطيب تقبلوا تحياتي وشكري

السلام عليكم من حدد الخلايا من من a10 الى a15 من تنسيق خلايا / رقم اختار عام ثم اضغط الصيغ ثم انتر تنحل المشكلة . وعفوا للتاخير

اخي خالد القدس الملف ليس محمي بكلمة سر افتحه وانسخ ما تريد منه

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

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

السلام عليكم الله يبارك فيك اخي زيد انا استخدم الطريقة الثانية مثل ما تفضلت حضرتك ولكن بالكود التالي: Sub kh_Formula() With Range("F6:G8") .ClearContents .Formula = "=SUMPRODUCT((R5C1:R30C1=RC5)*(R5C2:R30C2=R5C),R5C3:R30C3)" .Value = .Value End With End Sub اختصارا لوجع القلب بتاع معادلة SUMPRODUCT اذا استخدامها بالكود بشروط كثيرة فتحتاج الى لف ودوران الحل: اذا نستخدمها كمعادلة مع تعميمها على كل الخلايا المراد وضعها فيها ثم نحول المعادلات الى قيم

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

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

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

السلام عليكم اترككم مع هذه الموعظة مرفق ملف اكسل اوصيكم الدعاء في هذه الليالي والايام المباركة ابك على خطيئتك.rar

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

السلام عليكم في الورقة بيانات اساسية تم تعديل كود الاضافة والتعديلات معا بشكل اسرع من الاول عندما تغير في احدى خلايا عمود القيد يتغير لون الخط وتتغير القيمة في عمود معيار القيد تلقائيا بدون الحاجة الى الضغط على زر تحديث . ==================================== هو زر لاضافة رقم اللجنة عند التحفيز عليه والعكس صحيح ==================================== من ملف / اعداد الصفحة/ راس اختار من القائمة (none) دي حتغير العمل من اول وجديد يعني ناجلها لاصدار آخر =========================== وجاري إن شاء الله التعديلات المطلوبة اذا استطعنا ذلك تفضلوا المرفق واوصيكم بالدعاء في هذه الايام المباركة ودمتم في حفظ الله برنامج خبور المدرسي تجربة خاصة23.zip

السلام عليكم نفحات العشر من ذي الحجة الدكتور محمد سيد أحمد المسير إن لله تعالى نفحات على عباده تتجلى في أوقات وأماكن يختارها المولى جل شأنه ويصطفيها ترغيبا في الطاعة ومضاعَفة للثواب، حتى يزداد الناس حبا لله واستقامة على سبيل الرشاد من هذه النفحات عشر ذي الحجة، من أول شهر ذي الحجة إلى اليوم العاشر منه وهو المسمى يوم النحر أو عيد الأضحى وقد قال رسول الله صلى الله عليه وسلم كما رواه البخاري: "ما من أيام العمل الصالح فيها أفضل منه في هذه العشر - يعني العشر الأوائل من ذي الحجة، قالوا: ولا الجهاد في سبيل الله؟ قال: ولا الجهاد في سبيل الله إلا رجل خرج بنفسه وماله ثم لم يرجع من ذلك بشيء" فالرسول الكريم يدعونا إلى مزيد من العمل الصالح وفعل الخير والبر والمعروف؛ لأن العمل في هذه الفترة الزمنية له ثواب كبير ومنزلة عظيمة عند الله تعالى؛ فالمسلم بعد وفائه بفرائض الدين وأركانه التي يتحتم عليه أداؤها والقيام بها يستزيد من نوافل الصلاة والصيام والصدقة وصلة الرحم ومساعدة المحتاجين ومساندة البؤساء وكفالة اليتامى وتفريج هموم المكروبين وهذا العمل الصالح مطلوب في كل وقت لكنه يتأكد في العشر الأوائل من ذي الحجة وإذا علمنا أن المجاهد في سبيل الله موصول الثواب دائمًا وأنه يَعدِل الصائم القائم القانت بآيات الله الذي لا يَفتُر من صيام ولا صلاة.. أدركنا مدى فضل الله على عباده في عشر ذي الحجة قال الله تعالى: {مَا كَانَ لأهْلِ الْمَدِينَةِ وَمَنْ حَوْلَهُم مِّنَ الأعْرَابِ أَن يَتَخَلَّفُوا عَن رَّسُولِ اللهِ وَلاَ يَرْغَبُوا بِأَنْفُسِهِمْ عَن نَّفْسِهِ ذَلِكَ بِأَنَّهُمْ لاَ يُصِيبُهُمْ ظَمَأٌ وَلاَ نَصَبٌ وَلاَ مَخْمَصَةٌ فِي سَبِيلِ اللهِ وَلاَ يَطَؤُونَ مَوْطِئًا يَغِيظُ الْكُفَّارَ وَلاَ يَنَالُونَ مِنْ عَدُوٍّ نَّيْلاً إِلاَّ كُتِبَ لَهُمْ بِهِ عَمَلٌ صَالِحٌ إِنَّ اللهَ لاَ يُضِيعُ أَجْرَ الْمُحْسِنِينَ . وَلاَ يُنْفِقُونَ نَفَقَةً صَغِيرَةً وَلاَ كَبِيرَةً وَلاَ يَقْطَعُونَ وَادِيًا إِلاَّ كُتِبَ لَهُمْ لِيَجْزِيَهُمُ اللهُ أَحْسَنَ مَا كَانُوا يَعْمَلُونَ} سورة التوبة وقد اجتمع لعشر ذي الحجة من دواعي التفضيل الشيء الكثير، فهذه الأيام من الأشهر الحرم التي عظَّمها الله تعالى وجعلها دينًا قيمًا، وتلك الأشهر الحرم هي ذو القعدة وذو الحجة والمحرم ورجب. قال الله تعالى: {إِنَّ عِدَّةَ الشُّهُورِ عِنْدَ اللهِ اثْنَا عَشَرَ شَهْرًا فِي كِتَابِ اللهِ يَوْمَ خَلَقَ السَّمَاوَاتِ وَالأَرْضَ مِنْهَا أَرْبَعَةٌ حُرُمٌ ذَلِكَ الدِّينُ الْقَيِّمُ فَلاَ تَظْلِمُوا فِيهِنَّ أَنْفُسَكُمْ} سورة التوبة ومن معالم هذه العشر الأوائل من ذي الحجة يوم عرفة الذي يمثل الركن الأساسي في الحج؛ فالحج عرفة، فمَن فاته الوقوف بعرفة فاته الحج وعليه أن يقضيَه في العام التالي وصيام يوم عرفة له فضل جزيل، وفي صحيح مسلم قال النبي صلى الله عليه وسلم: "صيام يوم عرفة أحتَسِب على الله أن يكفِّر السنة التي قبلَه والسنة التي بعده" والمعنى أنه يكفِّر ذنوب صائمه في سنتين، والمراد الصغائر ورفع الدرجات، أما الكبائر فتحتاج إلى توبة نصوح، وأما حقوق العباد فتحتاج إلى رد الحقوق لأصحابها ولا يُستَحبُّ صيام هذا اليوم للحاج لأنه مشغول بأداء المناسك ولكيلا يضعف عن أداء الطاعات المنوطة بالحج وبهذا يكون المسلمون جميعا وقوفا على باب الرحمة والمغفرة، هذا بحجه وذاك بصومه وقد قال رسول الله صلى الله عليه وسلم في فضل يوم عرفة كما في صحيح مسلم: "ما من يوم أكثر من أن يعتِق الله فيه عبدا من النار من يوم عرفة، وإنه ليدنو ثم يباهي بهم الملائكة، فيقول: ما أراد هؤلاء" وفي رواية لأحمد وابن حبان والحاكم قال عليه الصلاة والسلام: إن الله يباهي بأهل عرَفات أهل السماء، فيقول لهم: انظروا إلى عبادي جاءوني شُعثًا غُبْرًا وقد يتساءل البعض ويقول: أيهما أفضل هذه العشر الأوائل من ذي الحجة أم العشر الأواخر من رمضان التي أحياها الرسول وأيقظ أهله فيها وجدَّ وشدَّ المِئْزَر؟ والجواب أن أيام عشر ذي الحجة أفضل من أيام عشر رمضان؛ لأن في الأولى يوم النحر الذي هو يوم الحج الأكبر، ويوم عرفة ويوم التروية وهي أيام مباركة، وأن ليالي العشر الأخير من رمضان أفضل من ليالي عشر ذي الحجة؛ لأن في الأولى ليلة القَدْر، وهي خير من ألف شهر، أي أن التفضيل في عشر ذي الحجة باعتبار الأيام، وفي عشر رمضانَ باعتبار الليالي فما أحرانا أن نستقبل هذه المناسبات الكريمة بالتوبة الصادقة والاستقامة على الحق والاعتصام بحبل الله القوي المتين __________________ * أستاذ العقيدة بكلية أصول الدين المصدر: إسلام أون لاين قال صلى الله عليه وسلم : ما من أيام العمل الصالح فيهن أحب إلى الله منه في هذه الأيام العشر ... الخ ) رواه البخاري قال ابن حجر في الفتح : « والذي يظهر أن السبب في امتياز عشر ذي الحجة لمكان اجتماع أمهات العبادة فيه ؛ وهي الصلاة والصيام والصدقة والحج ، ولا يأتي ذلك في غيره » . مرفق ملف ورد منقول جدول أعمال العشر.rar

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

السلام عليكم تفضل المرفق تعديل دالة.rar

السلام عليكم الله يبارك فيك اخي الحبيب / يحي حسين وبالتوفيق إن شاء الله في دراستك وفي كل امورك دنيا وآخرة. تقبل تحياتي وشكري

السلام عليكم اولا اود ان اعتذر لكم في تسرعي في ارسال نسخة من نسخ التجارب لان عندي حوالي اكثر من عشرين نسخة يتم التعديل في نسخة مع ابقاء النسخة القديمة للرجوع اليها في حالة الخطا النسخة التي اردت وضعها لكم هنا هي المرفقة ادناه النسخة المرسلة بالخطا لا يعمل فيها كشف 12 بشكل صحيح حسب ما صحت لسان الاخ الفاضل mhrrd وايضا لا ادري ان كانت هناك اي اشكاليات اخرى في هذه النسخة ارجوا من حمل النسخة السابقة ان يحمل هذه النسخة ادناه وتقبلوا اعتذاري لهذا الخطأ الغير مقصود ====================================== اما عن كود التعديل إن شاء الله ساقوم بتعديله ليكون سريعا وهي ملاحظة قد اخبرني بها صديقي ومستشاري في هذا العمل الاستاذ القدير محمدي عبد السميع ======================================== الفكرة في ارساله بهذا الشكل كما اسلفت سابقا فبقائه عندي وانشغالي عنه سيكون العمل بطيئا ولكن بوضعه هكذ وخاصة ان التعديلات الباقية ليست كثيرة قد يستفيد منه الاخرين في انجاز بعض الاعمال وسيستفيد آخرون من الاكواد في اعمال اخرى ============================ وقد جاءتني فكرة هذا اليوم بان يعمل كل منكم الصفحة الرئيسية بطريقته الخاصة هذا اذا اردتم ذلك ؟ منتظر ملاحظاتكم على البرنامج عندنا الان ملاحظين للاخ قصي سنرى ماذا نعمل فيها. عفوا نسيت الرد عل الاخ ezzarqtouni ابدي رايك حتى وان لم تستفيد من العمل بشكله الحالي انا اقوم بهذ العمل وهو لا يصلح حتى لمدارسنا في اليمن ولكن نقوم به لانه عمل صالح وسيستفيد اخوانك الاخرين منه وهذه غاية المراد في كل اعمالي . الاخ / بليش روغ لقد قمت بتعديل كلمة حيور الى خبور في مشاركتك اعلاه ودمتم في حفظ الله برنامج خبور المدرسي تجربة خاصة20.zip

السلام عليكم استخدام الكود التالي: Sub Kh_Copy() Dim R As Integer Sheets("Sheet2").Range("A1:A6").ClearContents With Sheets("Sheet1") For R = 1 To 6 If .Cells(R, 1) = 0 Then GoTo 1 Sheets("Sheet2").Cells(R, 1) = .Cells(R, 1) 1 Next End With End Sub

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

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