تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود ترحيل إلى أوراق عمل متعددة في ملفات متعددة من ملف العمل
#1
السلام عليكم ورحمة الله وبركاته . وأتشرف بأن أكون عضوا في ناديكم هذا . وأود المساعدة منكم بخصوص عمل كود برمجي في الأكسيل ليقوم بمهام معينة سوف اشرحها لكم كما يلي : 
لو كان عندي ملف أكسيل اسمه ( الكنترول ) وفيه شيت اسمه (fhpry) هذا الشيت فيه نطاق البيانات من ( B2:AS64 ) وعندي أسماء الفصول في الخلية ( BC1 ) وتتغير بتغير رقم الخلية ( BL1 ) من ١ إلى ٨ وهذه البيانات تمثل كشوفات الطلاب الناجحين حيث تتغير البيانات بحسب رقم الكشف في الخلية (BM1) . 
والآن أريد الكود ينفذ الأمر التالي :  يسمح بفتح الملفات التي تحمل أسماء الفصول بحيث أول ملف يفتحه يبدأ بنسخ البيانات بحسب النطاق ثم يذهب إلى الملف الذي تم فتحه ويلصق البيانات كقيم في الشيت الأول ثم يغير قيمة ( 1 BM) ويستمر بالنسخ واللصق إلى اوراق العمل بعدد كشوفات الناجحين للفصل ، وعندما يتم كل الكشوفات يحفظ الملف ويغلقه ويفتح الملف الثاني بحسب تغير الخلية (BL1) ويعمل نفس العمل في الملف السابق وهكذا حتى الفصل ٨ .
أي يتم عمل حلقات تكرارية متداخلة الأولى تعمل على فتح الملفات التي تحمل أسماء الصفوف . والثانية التي بداخلها تعمل على نسخ نطاق البيانات ولصقها كقيم في شيتات الملف الذي تم فتحه بحسب رقم الكشف ،، حيث أن اسماء الشيتات ستكون ارقام وتمثل ارقام كشوفات الطلاب في الخلية (BM1)..
وبعد ذلك يحفظ ويغلق كل ملف  بعد تحقق الشرط ويفتح الثاني وهكذا .
أرجو أن أكون قد وضحت الفكرة كاملة .
ملاحظة أسماء ملفات الفصول تعتمد على الإسم الذي يتغير في الخلية (BC1) والذي بدوره يتغير تبعا للخلية (BL1) .
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مرفق سورس كود ارسال ملفات الى الواتس بدون API new_programer 2 90 17-04-24, 03:07 PM
آخر رد: Taha Okla
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 145 24-03-24, 02:00 AM
آخر رد: خالد كامل1
Information [VB.NET] أنواع ملفات التحديث أبو خالد الشكري 2 225 15-11-23, 12:00 PM
آخر رد: أبو خالد الشكري
  [سؤال] اين خل في ترحيل البيانات من من الفورم الى شيتا كسال VBA DJATV85 4 573 02-07-23, 01:37 AM
آخر رد: أبووسم
  مساعده في كود ترحيل البيانات الى اكسل من داتا قرايد فيو maherhaddaf 1 624 27-06-23, 08:03 PM
آخر رد: Shade0001
Music [كود] هل لدى احد فكره عن كيفيه ارسال ملفات صوتيه عبر الشبكة badrkamel 3 1,717 19-04-23, 10:28 PM
آخر رد: Taha Okla
  [VB.NET] ترحيل البيانات الى اكسس عبدالرحمن الأصبحي 0 402 24-02-23, 04:25 PM
آخر رد: عبدالرحمن الأصبحي
  [سؤال] ترحيل البيانات من textbox الى combo box abu7shihab 6 750 01-02-23, 05:30 PM
آخر رد: AnyDesk
Information كيف أتمكن من إنتظار مهام متعددة Threading.Tasks.Task حتى تنتهي جميعها Othman Al Zamani 2 688 05-11-22, 07:42 AM
آخر رد: Othman Al Zamani
  ادوات فتح ملفات aymen_libya 1 662 01-09-22, 12:48 AM
آخر رد: asmarsou

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم