محمد احمد العصري

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

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

ملف العمل.xlsx

السلام عليكم ورحمة الله 

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

على سبيل المثال الارقام التالية 

جزاكم الله خيرا وبارك فيكم ..سوف احاول ..رغم انني قد انتهيت من سحب كامل الصور وعددها تقريبا ٥٠٠٠ صورة .

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

ارجو تكرمكم بمساعدتي في قص الصور التي قمت بسحبها بالاسكانر  في ورقة a4 وعددها ١٦ صورة واخذ كل صورة على حدة وحفظها برقم جلوس الطالب في ملف خاص بالصور من اجل ان اتمكن من اضافتها وربطها لبيانات الطالب  بحيث تظهر البيانات مع الصورة علما بان عدد الصور حوالي ٥٠٠٠ صورة ادخلتها على مجموعات كما سبق في صفحة a4. في كل صفحة ١٦ صورة اغلبها بمقاس ٤*٦ والبعض ٤*٤ وتحت كل صورة رقم جلوس الطالب .

فهل ممكن اقتصاص كل صورة على حدة ..

الملف المطلوب عمله.rar

الفضلاء  رواد عذا الملتقى العملاق 

تكرما تفضلا منكم احتاج الى مساعدتكم في 

1.كود ترحيل لمن سدد قيمة البطاقة 

2 عدم تكرار الترحيل لمن سدد 

3امكانية التعديل  والحفظ من جديد عن طريق واجهة ادخال 

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

‫بيانات وبطائق -1.rar

في ١٧‏/١١‏/٢٠١٧ at 20:17, محمد احمد العصري said:

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

جزا الله كل الاخوة الفضلاء في هذا المنتدى الرائع.. 

من المؤلم اني حاطب ليل فليس لي من مقومات العلم بفنون الاكسل الا الفتات 

استفدت كثيرا من مواضيع المنتدى.. واتصفح دائما واحاول تنزيل الملفات والتعلم منها.. ولكن ليس العيب من اهلها بل من عدم فهمي..

عموما ولن اطيل عليكم احتاج لعونكم في ايجاد معادله لتوزيع مبلغ معين على عدد من الخلايا.. ولكل خلية قيمة محدده.. مثلا

احتاج لتوزيع مبلغ. مثلا وليس حصرا 10000 الموجود في الخلية A1 على الخلايا B1.  C1.   D1.  E1. وقيمة الخلية B1 2000. وقيمة الخلية C2 3000. وقيمة الخلية D1 5000. وقيمة الخلية E1 5000 وعند عدم كفاية المبلغ يوصع 0.  في الخلية ومع كل عملية انقاص يتغير قيمة الخلية A2 بحيث تصبح في اول عملية بعد التوزيع 7000 والعملية الثانية 5000 وبعد آهر عملية تصبح 0. طبعا قيم الخلايا الاخرى ثابته بمبلغ محدد سلفا 

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

عذر من حضراتكم اخطأت في اخر طلبي وقلت (ومع كل عملية انقاص يتغير قيمة الخلية A2 بحيث تصبح في اول عملية بعد التوزيع 7000 والعملية الثانية 5000 وبعد آهر عملية تصبح 0. طبعا قيم الخلايا الاخرى ثابته بمبلغ محدد سلفا ) مع كل عملية انقاص يتغير قيمة الخلية A2 والصحيحA1.  

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

جزا الله كل الاخوة الفضلاء في هذا المنتدى الرائع.. 

من المؤلم اني حاطب ليل فليس لي من مقومات العلم بفنون الاكسل الا الفتات 

استفدت كثيرا من مواضيع المنتدى.. واتصفح دائما واحاول تنزيل الملفات والتعلم منها.. ولكن ليس العيب من اهلها بل من عدم فهمي..

عموما ولن اطيل عليكم احتاج لعونكم في ايجاد معادله لتوزيع مبلغ معين على عدد من الخلايا.. ولكل خلية قيمة محدده.. مثلا

احتاج لتوزيع مبلغ. مثلا وليس حصرا 10000 الموجود في الخلية A1 على الخلايا B1.  C1.   D1.  E1. وقيمة الخلية B1 2000. وقيمة الخلية C2 3000. وقيمة الخلية D1 5000. وقيمة الخلية E1 5000 وعند عدم كفاية المبلغ يوصع 0.  في الخلية ومع كل عملية انقاص يتغير قيمة الخلية A2 بحيث تصبح في اول عملية بعد التوزيع 7000 والعملية الثانية 5000 وبعد آهر عملية تصبح 0. طبعا قيم الخلايا الاخرى ثابته بمبلغ محدد سلفا 

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

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

جزا الله كل الاخوة الفضلاء في هذا المنتدى الرائع.. 

من المؤلم اني حاطب ليل فليس لي من مقومات العلم بفنون الاكسل الا الفتات 

استفدت كثيرا من مواضيع المنتدى.. واتصفح دائما واحاول تنزيل الملفات والتعلم منها.. ولكن ليس العيب من اهلها بل من عدم فهمي..

عموما ولن اطيل عليكم احتاج لعونكم في ايجاد معادله لتوزيع مبلغ معين على عدد من الخلايا.. ولكل خلية قيمة محدده.. مثلا

احتاج لتوزيع مبلغ. مثلا وليس حصرا 10000 الموجود في الخلية A1 على الخلايا B1.  C1.   D1.  E1. وقيمة الخلية B1 2000. وقيمة الخلية C2 3000. وقيمة الخلية D1 5000. وقيمة الخلية E1 5000 وعند عدم كفاية المبلغ يوصع 0.  في الخلية ومع كل عملية انقاص يتغير قيمة الخلية A2 بحيث تصبح في اول عملية بعد التوزيع 7000 والعملية الثانية 5000 وبعد آهر عملية تصبح 0. طبعا قيم الخلايا الاخرى ثابته بمبلغ محدد سلفا 

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

منذ ساعه, ياسر خليل أبو البراء said:

أخي الكريم يرجى عدم أخذ الاقتباسات الطويلة في الردود ..

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

 

 

منذ ساعه, ياسر خليل أبو البراء said:

جرب التعديل التالي رغم أن التوضيح لم يكن بما فيه الكفاية حيث لم تضرب أمثلة للنتائج المطلوبة .. للتأكد من صحة الأكواد ليس أكثر

Sub SUM_Each_Fifty_Cells()
    Dim ws As Worksheet
    Dim sh As Worksheet
    Dim cl As Long
    Dim ct As Long
    Dim nr As Long

    Set ws = Sheets("Sheet1")
    Set sh = Sheets("Sheet2")
    
    For cl = 1 To 38
        nr = 6
        For ct = 7 To ws.Cells(Rows.Count, 1).End(xlUp).Row Step 50
            nr = nr + 1
            sh.Cells(nr, cl).Value = Application.WorksheetFunction.Sum(ws.Cells(ct, cl).Resize(50))
        Next ct
    Next cl

    MsgBox "Done...", 64
End Sub

 

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

Book66.zip

3 ساعات مضت, ياسر خليل أبو البراء said:

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

السلام عليكم ورحمة الله

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

وينطبق هذا الامر الجمع والترحيل على بقية الخلايا d .c.b.e......وحتى الخلية al....

وقد لونت السطر رقم 50 فيsheet1. لمعرفة عدد الخلايا المراد جمعها وترحيلها 

الخلاصة ان عملية الجمع والترحيل تشمل السطر رقم 50 او مايساوية في ترقيم خلايا الاكسل كاملا ويتم ترحية لsheet2 ..

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

ان يشمل كل الخلايا من a.... وحتى al...

ايضا النقل من الورقة1 الى الورقة 2

بعد الجمع والترحيل للورقة2 تحفظ الارقام المنقوله في الورقة 2 

ان ينطبق هذا الامر على جمع ال50 الاخرى. بحيث تصبح الورقة الثانية ورقة مجاميع 

ارجو ان اكون قد وضحت الفكرة ..ووصلتكم 

واعتذر لسيادتكم عن عدم التوضيح 

عفوا في المسلسل الخاص بي  من 1 وحتى 50 وفي تسلسل الخلايا من 7 وحتى 57 ويتم الجمع لكل الخلايا والنقل او الترحيل لجميع السطر ...وهكذ كل 50 ..

واكرر اعتذاري لاني لا استخدم الاكسل ولم اعمل عليه من قبل ... والله يرعاكم 

2 ساعات مضت, سليم حاصبيا said:

اخي ياسر

زيادة في الازعاج و زيادة في اثراء الموضوع

نفس الملف لكن بالمعادلات انظر الى الورقة By_formula من فضلك

عسى ان ينال الاعجاب

Sum By Choosen_rows By_fromula.rar

2 ساعات مضت, ياسر خليل أبو البراء said:

كان الله في عونك أخي العزيز .. وأقولك : ازعج كما تشاء فنحن سنكون في انتظار إزعاجك على الدوااااااااااااام .. فإزعاجك يسعدنا 

 

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

Book55.zip

1 دقيقه مضت, محمد احمد العصري said:

 

اكرمك الله ورفع قدركم ....نظرا لعدم تمكني من شرح الفكرة ارفق لكم الملف الذي اعمل علي 

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

10 ساعات مضت, ياسر خليل أبو البراء said:

بارك الله فيك أخي الكريم وجزيت خيراً بمثل ما دعوت لي

المشكلة ليست في إرفاق الملف من قبلي بل المشكلة من قبلك حيث لا أدري بالضبط المقصود من موضوعك لذا فالأفضل إرفاق ملف ..

بالنسبة للكود الذي أرفقته ... يفترض وجود ورقتي عمل Sheet1 و Sheet2 ... وفي ورقة العمل Sheet1 في العمود الأول ضع أرقام بشكل عشوائي في النطاق A1:A23 مثلاً
ثم ضع الكود في موديول عادي ونفذ الكود وستجد النتائج بورقة العمل الثانية Sheet2

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

7 ساعات مضت, سليم حاصبيا said:

بعد إذن اخي الحبيب ياسر ابو البراء

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

 

Sum By Choosen_rows.rar

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

1 ساعه مضت, ياسر خليل أبو البراء said:

وعليكم السلام ورحمة الله

Sub SUM_Each_Five_Cells()
    Dim ws As Worksheet
    Dim sh As Worksheet
    Dim ct As Long
    Dim nr As Long

    Set ws = Sheets("Sheet1")
    Set sh = Sheets("Sheet2")

    For ct = 1 To ws.Cells(Rows.Count, 1).End(xlUp).Row Step 5
        nr = nr + 1
        sh.Range("A" & nr).Value = Application.WorksheetFunction.Sum(ws.Range("A" & ct).Resize(5))
    Next ct

    MsgBox "Done...", 64
End Sub

 

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

السلام عليكم ورحمة الله 

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

في ١٦‏/١٢‏/٢٠١٠ at 00:29, عبد الفتاح كيرة said:

السلام عليكم

 

هذا بقية لشرح عمل الشهادات بدالة vlookup

 

و هو خاص بجزئية تكرار الشهادة فى صفحة واحدة

 

شرح عمل الشهادات بدالة vlookup.zip

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

وفقكن الله وبارم فيكم

المصنف1.zip

عفوا..من سيادتكم... كيف افتح الموضوع وفي اي صفحه...بارك الله فيكم

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

المصنف1.zip

السلام عليكم 

تقبل الله منكم صالح الاعمال 

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

المصنف1.zip

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

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

جزاكم الله خيرا وبارك في جهودكم  وجعل الجنة مثواكم  ان شاء الله