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

السلام عليكم ورحمة الله وبركاته اليوم تحديث جديد لهذا الموضوع الخاص بمستعرض الصور فقط والان المستعرض اصبح لكل الملفات الموجودة فى المجلد الذى تريده التحديث يشمل 1 - لا يقتصر العرض على الصور فقط بل على كل الملفات 2- امكانية استعراض الصور بشكل مكبر داخل البرنامج ( المستعرض ) 3- امكانية نسخ الملفات الى اى مكان داخل الويندوز ( دون الاماكن التى تحتاج الى صلاحيات مثل مجلدات النظام ) 4 - امكانية نقل الملفات الى اى مكان فى الويندوز ( دون الاماكن التى تحتاج الى صلاحيات مثل مجلدات النظام ) 5 - جلب خصائل كل ملف من تاريخ انشاء وتعديل حجم الملف 6 - امكانية اعادة التسمية لاى ملف فى المجلد عن طريق البرنامج 7 - اضافة بروجرس بار فقط اثناء تحميل الملفات من المجلد لاستعراضها 8 - امكانية حذف الملف المختار عن طريق البرنامج 9 - امكانية البحث بالاسم والنوع داخل المجلد والان مع الصور والشرح -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- والان فيديو مبسط لطريقة عمله اتمنى ان يعجبكم اصدقائى وتستفيدون منه ان شاء الله فقط انا فى انتظار ارائكم وملاحظتكم وتحديثاتكم مين عارف يمكن نستخدمه بدل explore.exe 🤣🤣 Gallary.rar

اخى الفاضل جرب هذا المثال رائع جدا Search_Sort_20060314.rar

جرب هذا الملف salim_sum.xlsm

السلام عليكم الملف المرفق فيه حل... راجعه إن كان هو المطلوب... بن علية حاجي رغبة مجموع.xlsm

السلام عليكم ولا تنسى خذ نسخة احتياطية من قاعدة الجداول قبل ان تعمل اي شي

السلام عليكم جميعا ، اقدم لكم برنامج الاول لمراقبة وسداد الاقساط...ونبذة عن البرنامج : 1:مجانى تماما 2:يصل تسجيل العملاء فيه الى5004عميل 3:الحجم خفيف جدا وهو مصمم عالاكسل وسهل الاستخدام وسريع ، 4:فورم دخول بكلمة مرور وهى (12345) ، 5:يحتوى على عدة صفحات منها : أ:الصفحة الرئيسية ، ب:صفحة العملاء "لتسجي بيانات العملاء فيها" ، ج:صفحة حالة العملاء لمراقبة حالة السداد وهى بحالات مثلا تكون الحالة : ١:اوشك على السداد اذا مر٢٧يوم من تاريخ اخر سداد للعميل باللون الاصفر ، ٢:متاخر اذا مر اكثر من٣٠يوم باللون البرتقالى ، ٣:متاخرجدا اذا مر اكثر من٦٢يوم باللون الاحمر ، ٤:وحالات اخرى منها لم يستحق ويقدم للشكوى ، د:صفحة بحث وترحيل "وفيها تقوم بالبحث عن العميل باى حرف من اسمه او من السلعة المباعة له او عنوانه او ان كان ضامن له ويتم سداد قسط العميل منهاوتستطيع تغيير قيمة القسط الافتراضية و لاغراض اخرى . . . " ، ع:صفحة عمليات السداد للعمليات المسددة ، غ:صفحة استعلام مختصر وتكون ب البحث بالكود "يتم جلب كل بيانات العميل بالمدفوع" ، ف:صفحتين فارغتين "ليقوم المستخدم باستخدامهما كيف يشاء" ، ق:صفحة كلمات المرور والصلاحيات "وتقوم فيها بالتعديل على كلمات المرور واعطاء صلاحيات الدخول لكل مستخدم و تغيير اسم المنشأة واسم المدير ليظهرا بالرئيسية وايضا اسم المستخدم يظهر بالرئيسية وفيها تقارير بسيطة للبرنامج ، واخيرا "الدال على الخير كفاعله" والسلام عليكم ورحمة الله وبركاته برنامج الأول للاقساط..xlsm.zip

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

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

أرجو رفع الكود بعد التعديل لعل أحد من الأعضاء يستفيد منه

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

استبدل اسم الصفحة"حاسب " الى "Haseb" ونفذ هذا الكود الاكسل عنده حساسية للغة العربية لذلك أفضل ان تكون اسماء الصفحات باللغة الاجنبية Option Explicit Sub sum_from_Other_sheet() Dim source_sh As Worksheet: Set source_sh = Sheets("salim") Dim target_sh As Worksheet: Set target_sh = Sheets("Haseb") Dim i: i = 5 Dim k%, xx%, n_rows%: n_rows = 50 Dim s# With source_sh Do Until .Cells(i, 1) = vbNullString k = Application.Match(.Cells(i, 1), target_sh.Rows(3), 0) For xx = 4 To n_rows If IsNumeric(target_sh.Cells(xx, k)) Then s = s + target_sh.Cells(xx, k) End If Next .Cells(i, 1).Offset(, 1) = s s = 0: i = i + 1 Loop End With End Sub

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

جرب هذا الكود النتائج في الورقة salim Option Explicit Private Sub Salim_Com_Click() With Sheets("salim") Dim c% Combo_Salim.Clear c = 5 Do Until Cells(c, 1) = vbNullString Combo_Salim.AddItem .Cells(c, 1) c = c + 1 Loop End With End Sub '============================== Sub Add_Sum() With Sheets("salim") ''''''''''''''''''''''''' With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With .Range("b5", Range("b4").End(4)).ClearContents Dim s#, k%, r%, i%: i = 5 Do Until .Cells(i, 1) = vbNullString k = Application.Match(.Cells(i, 1), Rows(3), 0) For r = 4 To 50 If IsNumeric(.Cells(r, k)) Then _ s = s + .Cells(r, k) Next .Cells(i, 1).Offset(, 1) = s s = 0 i = i + 1 Loop ''''''''''''''''''''''''' End With With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف مرفق salim_sum_new.xlsm

هلا وضعت مثال مصغر ... ليسهل على الزملاء وعلينا المساعده

جرب المرفق التالى ووافنا بالنتائج ملاحظة: أستخدم اصدار 5.5 لبرنامج الضغط رار ان لم تكن لديك احدث نسخة لن تتمكن من فك الضغط UpdateList.rar

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

انا شخصياً كنت زيك مفتكر ان الاكسل مش اكثر من جدول وشوية كده هوو معادلات ضرب وجمع... إلى ان غطست في هذا البحر (لا بل المحيط الهائل) و ما زلت بكل تواضع لا اعرف (حسب تقديري) اكثر من 10% من المعلومات حول هذا البرنامج كل شيء اعرفه تم اكتسابه 1-بواسطة مشاهدة الفيديوهات (لم اتعلمه اكاديمياً في معهد أو جامعة) 2- التجارب التي أقوم بها على الاكسل يعجبني قول احد الشّعراء قل لمن يدّعي بالعلم معرفةً عرفت شيئاً و غابت عنك أشياءُ

السلام عليكم تفضل ما طلبته في الملف المرفق... بالمعادلات لا يمكن إخفاء أعمدة أو صفوف... بن علية حاجي présense.xlsm

.

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

السلام عليكم تستطيع دائما تفكيك اي معادلة لفهمها لاحظ أن نظام الجهاز عندي يضع بالمعادلة علامة (,) بدلا من (;) المعادلة السابقة بعد تفكيكها تكون كالتالي =IFERROR(A,) حيث نستعيض بالمعامل A عن المعادلة SUMPRODUCT((INDEX(ACH.!$B$3:$AP$9999,MATCH(A3,ACH.!$A$3:$A$9999,),)>0)*COUNTIF(INDEX(IP!$C$4:$N$44,,IFERROR(MATCH(C3,IP!$E$2:$N$2,)+2,MATCH(E3,IP!$C$3:$D$3,))),ACH.!$B$1:$AP$1)) ومعني المعادلة الأولي أن في حالة حدوث خطأ من المعادلة A فلا تكتب النتيجة خطأ والآن إلي المعادلة A بنفس الطريقة نبسطها كالتالي A= SUMPRODUCT(B*C) حيث B=(INDEX(ACH.!$B$3:$AP$9999,MATCH(A3,ACH.!$A$3:$A$9999,),)>0) ، C=COUNTIF(INDEX(IP!$C$4:$N$44,,IFERROR(MATCH(C3,IP!$E$2:$N$2,)+2,MATCH(E3,IP!$C$3:$D$3,))),ACH.!$B$1:$AP$1) ومعني ذلك ببساطة أن A تساوي حاصل ضرب مصفوفتين B,C مشروطتين والمصفوفة B هي أيضا يمكن تبسيطها هكذا B=(INDEX(B1,B2,)>0) حيث B1 هي المجال ACH.!$B$3:$AP$9999 ، B2 هي المعامل الناتج عن MATCH(A3,ACH.!$A$3:$A$9999,) و لإيجاد المعامل B2 نذهب للورقة ACH في المجال A3:A9999 والذي يبدأ بالخلية A3 لتبحث عن كود العميل والموجود بالخلية A3 بالورقة QSC ، إذن ستجد أنه في الصف الثامن (إذا بدأت العد من الخلية A3 ) أي أن : الجزء الأخير من المصفوفة B والذي أسميناه B2 سيأتي بالرقم 8 إذن المصفوفة B هي عنصر ناتج من المجال B1 (أي المجال B3:AP9999 في الورقة ACH) وهو العنصر الثامن وحيث أن رقم العمود لم يذكر فيكون الناتج هو كامل الصف الثامن من المجال B3:AP9999 في الورقة ACH وبما أن وحيث المجال B3:AP9999 يحتوي علي 41 عمود من (B) إلي (AP) إذن نتوقع أن يكون العنصر الثامن هذا هو محتوي 41 خلية وبالرجوع لها تجدها (1 , 0 , 1 , 0 , 1 , 1 , 0 , 6.25 , 1 , 2 , 2 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 0 , 1 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0) بالترتيب حيث يعتبر الخلايا الفارغة أصفار باقي معني أخير بالمصفوفة B وهي مقارنة العناصر الناتجة بالرقم 0 (حيث آخر مقطع منها هو >0) فالناتج النهائي لها سيكون 41 عنصرا كل منها يحتوي علي 1 إذا كان الأصلي أكبر من 0 ويحتوي علي 0 إذا كان الأصلي ليس أكبر من 0 الناتج النهائي لها سيكون هكذا (1 , , 1 , , 1 , 1 , , 1 , 1 , 1 , 1 , , , , , , , , , , , , , 1 , 1 , , 1 , , , , , 1 , , , , , , , , , ) والمعني الطبيعي لهذا هو جعل الإكسل ينتقي عدد المرات (الأصناف) التي أخذها هذا العميل والآن : المصفوفة C هي ..... هكذا بنفس الوسيلة تجد أنها أيضا تنتج 41 عنصرا من الورقة الأخيرة IP وهذه العناصر رأسية (SKU CODE) ولابد أن تتساوي في العدد مع عناصر المصفوفة الأولي أي 41 عنصرا حقيقة أنا لا أعلم ماذا يعني SKU CODE ولكن تقاطع المصفوفتين سينتج 1 عند التقاطعات المملؤة أي التي بها 1 في المصفوفتين أعتقد أن المعني لهذا هو جعل الإكسل ينتقي عدد المرات (الأصناف) التي أخذها هذا العميل وفي نفس الوقت تتطابق مع هذا ال SKU CODE

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

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

أسأل الله العظيم رب العرش الكريم أن يشفيك ..... رب يكللك العملية بالنجاح والعودة لأهلك سالما ...

خيراً يا جماعة ما حدث للأستاذ المؤدب والمحترم محمد عصام "أبا جودي" ؟ شفاه الله وعافاه ولا بأس طهور بإذن الله خالص الدعوات والأمنيات الطيبة بالعودة سالماً معافاً وسائر مرضي المسلمين فاللهم آمين

اسأل الله العظيم رب العرش العظيم ان يشقيك ويعافيك ويردك الى اهلك واولادك معافيا باذن الله

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

بسم الله عليك وما تشوف شر ان شاء الله 🙂 وان شاء الله، الله يدفع عنك البلاء بهذه الصدقة التي تصدقت بها للجميع 🙂 جعفر

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

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

وعليكم السلام ورحمة الله وبركاته بارك الله فيك استاذ محمد

عليك برفع الملف وشرح ما يحدث معك عليه بالتفصيل

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

اهلا وسهلا حضرتك تريد ان تعرف مبلغ المدفوع مثلا بين تاريخين ؟ هذا صحيح ؟ الكود السابق بيعمل ما تريد لكن بها شرط اضافي وهو رقم الفاتورة اي يجب ان تكتب رقم الفاتورة و من التاريخ الى التاريخ حتى يعطيك النتيجة لذلك حسب فهمي تريد بين تاريخين و الرقم الفاتورة هو شيء زيادة لذلك احذف ذلك الشرط و خليه بين تاريخين فقط هكذا =Nz(DSum("[item_preis]";"tabol_sdad_mord";"[dete_add2] Between [Forms]![formm7]![snddate] And [Forms]![formm7]![snddate2]");0) غير التواريخ الى شهر 5 مثلا ستجد انه بيحسب حقا Database161.accdb