اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
أعلن هنا
أعلن هنا



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





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

السلام عليكم ورحمة الله إخواني الكرام؛ برجاء المساعدة في تعديل هذا الكود ليتم الترحيل باستخدام المصفوفات عوضاً عن الت ..



13-04-2018 03:48 مساء
مُعتز
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 04-09-2017
رقم العضوية : 342
المشاركات : 5
الجنس : ذكر
تاريخ الميلاد : 18-8-1986
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 12
الاعجاب : 1
 offline 
السلام عليكم ورحمة الله
 
إخواني الكرام؛

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

Sub SaveasTxt()
Application.ScreenUpdating = False
'--------------------------------------------
    Range("C:C,F:F").EntireColumn.Hidden = False
    With ActiveSheet.ListObjects(1)
        Union(.ListColumns(2).DataBodyRange, _
              .ListColumns(4).DataBodyRange, _
              .ListColumns(5).DataBodyRange, _
              .ListColumns(12).DataBodyRange, _
              .ListColumns(13).DataBodyRange, _
              .ListColumns(14).DataBodyRange, _
              .ListColumns(16).DataBodyRange, _
              .ListColumns(17).DataBodyRange, _
              .ListColumns(18).DataBodyRange, _
              .ListColumns(20).DataBodyRange, _
              .ListColumns(21).DataBodyRange).Select





    End With
    Selection.Copy Sh2.Range("B" & Sh2.Cells(Rows.Count, 2).End(xlUp).Row + 1)
    Range("C:C,F:F").EntireColumn.Hidden = True
'--------------------------------------------
    ActiveSheet.Range("E4").Select
    Application.CutCopyMode = False
    MsgBox "تم ترحيل البيانات للأرشيف بنجاح", 64
'--------------------------------------------
Application.ScreenUpdating = True
End Sub


الملف المطلوب التعديل عليه:

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  الترحيل إلى الأرشيف.rar   تحميل rar مرات التحميل :(19)
الحجم :(28.956) KB







13-04-2018 06:12 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3106
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 257
قوة السمعة : 8724
الاعجاب : 2920
 offline 
look/images/icons/i1.gif تعديل كود ترحيل البيانات باستخدام المصفوفات
وعليكم السلام أخي الكريم معتز
الكود الحالي يعمل بشكل جيد وبدون الحاجة إلى المصفوفات .. الكود رائع وبسيط في نفس الوقت





13-04-2018 10:12 مساء
مشاهدة مشاركة منفردة [2]
مُعتز
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 04-09-2017
رقم العضوية : 342
المشاركات : 5
الجنس : ذكر
تاريخ الميلاد : 18-8-1986
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 12
الاعجاب : 1
 offline 
look/images/icons/i1.gif تعديل كود ترحيل البيانات باستخدام المصفوفات
نعم أستاذ ياسر الكود يعمل بشكل جيد مع عدد بسيط من البيانات كالتي بالملف المرفق،
لكن الملف الأصلي به عدد كبير جداً من البيانات والتي يتم استدعائها أو حسابها كلها باستخدام المعادلات ومع تنفيذ كود الترحيل يتوقف الإكسل عن الاستجابة لمدة دقيقة أو أكثر حتى تتم عملية الترحيل وهو وقت طويل جداً.
حاولات بناء الكود بالمصفوفات لكن لم أتمكن من تحديد البيانات الظاهرة داخل الجدول فقط دون غيرها.





14-04-2018 11:18 صباحا
مشاهدة مشاركة منفردة [3]
محمد الدسوقى
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 308
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 37
يتابعهم : 7
يتابعونه : 199
قوة السمعة : 2101
الاعجاب : 494
 offline 
look/images/icons/i1.gif تعديل كود ترحيل البيانات باستخدام المصفوفات
الاستاذ / معتر
اتفضل الملف المرفق به المطلوب إن شاء الله
بمجرد اختيار اسم الادارة من القائمة المنسدلة والضغط على زر ( ترحيل البيانات ) يقوم بالمطلوب
--------------------------

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
--------------------------
تقبل تحياتى
 
 
  الترحيل إلى الأرشيف1.rar   تحميل rar مرات التحميل :(8)
الحجم :(30.667) KB






14-04-2018 11:35 صباحا
مشاهدة مشاركة منفردة [4]
هانى على
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 66
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 116
الاعجاب : 45
 offline 
look/images/icons/i1.gif تعديل كود ترحيل البيانات باستخدام المصفوفات
بارك الله فيك أستاذى الكريم
ولكن ظهرت معى مشكلة عند الترحيل
87BhZC9ewkWOiYW
 
 






14-04-2018 05:37 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3106
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 257
قوة السمعة : 8724
الاعجاب : 2920
 offline 
look/images/icons/i1.gif تعديل كود ترحيل البيانات باستخدام المصفوفات
انقر على كلمة Debug سيظهر معك سطر باللون الأصفر .. قم بتصوير الشاشة لمعرفة السطر الذي به الخطأ

أثارت هذه المشاركة إعجاب: هانى على،




14-04-2018 08:31 مساء
مشاهدة مشاركة منفردة [6]
مُعتز
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 04-09-2017
رقم العضوية : 342
المشاركات : 5
الجنس : ذكر
تاريخ الميلاد : 18-8-1986
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 12
الاعجاب : 1
 offline 
look/images/icons/i1.gif تعديل كود ترحيل البيانات باستخدام المصفوفات
شكراً لاهتمامك استاذ محمد الدسوقي؛ لكن كما ترى الكود الأصلي يقوم بتحديد ما بداخل الجدول أياً كان ثم يتم ترحيله.
فقد يتم تحديد إدارة واحدة أو أكثر، أو موظف واحد من كل إدارة أو غير ذلك من وسائل الفلترة المختلفة ...
وهذا هو المطلوب ترحيل العناصر بداخل الجدول بعد الفلترة أياً كانت هذه العناصر.





14-04-2018 09:09 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3106
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 257
قوة السمعة : 8724
الاعجاب : 2920
 offline 
look/images/icons/i1.gif تعديل كود ترحيل البيانات باستخدام المصفوفات
بحثت كثيراً عن وضع الجزء المفلتر في الجدول داخل مصفوفة ولم أجد .. أو يمكن القول بأنني وجدت طريقة ولكنها ليست جيدة على الإطلاق
وأعتقد أن استخدام Union لنسخ النطاقات المطلوبة طريقة جيدة جداً ولا أعلم لماذا يستغرق منك وقت طويل
كم مدة الوقت المستغرق لتنفيذ الكود في حالة البيانات كثيرة وما هو عدد الصفوف للبيانات الفعلية؟





14-04-2018 10:27 مساء
مشاهدة مشاركة منفردة [8]
مُعتز
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 04-09-2017
رقم العضوية : 342
المشاركات : 5
الجنس : ذكر
تاريخ الميلاد : 18-8-1986
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 12
الاعجاب : 1
 offline 
look/images/icons/i1.gif تعديل كود ترحيل البيانات باستخدام المصفوفات
نعم استاذ ياسر الأمر صعب بعض الشيء، فقد استغرقني بناء الكود الأصلي بعض الوقت لأتمكن من استخدامه في الترحيل من كافة الشيتات إلى الأرشيف.
وبالنسبة لعدد صفوف البيانات فلدي شيت رئيسي به البيانات الأساسية للموظفين بعدد 2005 صف وتزيد باستمرار، ولدي أربع شيتات أخرى تتم فيها عملية الحساب باستخدام المعادلات المختلفة، ويتم استدعاء البيانات الأساسية لهذه الشيتات من الشيت الرئيسي باستخدام الدالة vlookup كما أن هذه الشيتات هي التي يتم الترحيل منها للأرشيف، ويستغرق تنفيذ الكود في كل مرة دقيقة أو أكثر بقليل حسب إمكانيات الجهاز المستخدم، فوقت التنفيذ يقل على جهاز Corei5 عن جهاز Corei3 ...
توقعت أن تكون المصفوفات أسرع في التنفيذ، لكن يبدو أنني عالق مع هذا الكود حتى أجد حلاً آخر ...

عذراً أن تعبتك معي أخي ياسر، وشكراً جزيلاً على اهتمامك وبحثك عن حل للموضوع.
ورجائي أن تتقبل خالص تحياتي.
 





14-04-2018 10:59 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3106
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 257
قوة السمعة : 8724
الاعجاب : 2920
 offline 
look/images/icons/i1.gif تعديل كود ترحيل البيانات باستخدام المصفوفات
لا تفقد الأمل .. ربما لو قمت في الكود بإضافة أسطر تلغي اهتزاز الشاشة وتوقف الحساب التلقائي أثناء تنفيذ الكود كان ذلك أفضل ..
جرب ذلك لعل وعسى يقل الوقت المستغرق في تنفيذ الكود لديك

    With Application
        .ScreenUpdating = False: .DisplayAlerts = False: .Calculation = xlManual: .EnableEvents = False
    End With
    
        'Your Code
        
    With Application
        .ScreenUpdating = True: .DisplayAlerts = True: .Calculation = xlAutomatic: .EnableEvents = True
    End With

أثارت هذه المشاركة إعجاب: ظفر الله عسكر،




15-04-2018 04:24 صباحا
مشاهدة مشاركة منفردة [10]
هانى على
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 66
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 116
الاعجاب : 45
 offline 
look/images/icons/i1.gif تعديل كود ترحيل البيانات باستخدام المصفوفات
بارك الله فيك أستاذ ياسر وجزاك كل خير عمل الكود معى الأن بكل دقة ومشي الحال

أثارت هذه المشاركة إعجاب: YasserKhalil،




15-04-2018 07:33 صباحا
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3106
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 257
قوة السمعة : 8724
الاعجاب : 2920
 offline 
look/images/icons/i1.gif تعديل كود ترحيل البيانات باستخدام المصفوفات
تمام أخي الكريم هاني .. سعدت بعمل الكود بالنسبة لك واعتقادي أن المعادلات الموجودة هي السبب في بطء تنفيذ الكود - هذا والله أعلم
الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ترحيل من الشيت إلى Listbox بناء على شرط Haneen Amr
6 72 زيزو العجوز
اريد استخدام زر الانتر فى الترحيل بدلا من زر الامر محمد منصور
0 37 محمد منصور
طلب كود اترحيل البيانات المشروط khaled alborene
21 190 YasserKhalil
ترحيل عدة درجات لكل طالب نصر الإيمان
17 177 YasserKhalil
ترحيل إلى صفحة حساب العميل دربكه في المملكه
19 184 YasserKhalil

الكلمات الدلالية
تعديل ، ترحيل ، البيانات ، باستخدام ، المصفوفات ،


 







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



الساعة الآن 10:07 مساء

أعلن هنا
أعلن هنا
أعلن هنا