شرح كود ترحيل البيانات باستخدام الفلترة أسرع كثيرا من حلقات التكرار - فديو

[عبد الفتاح كيرة]

السلام عليكم

عندما بدأت فى رفع هذا الفديو - بعد أن اقتصصت منه بضع دقائق - كى لا يزيد عن 15 دقيقة هى المدة المسموح بها فى موقع يوتيوب

و عندما بدأت الرفع جاءتنى رسالة تهنئة من الموقع بأن حسابى قد تم اختياره ليتمكن من رفع فديوهات بأى طول أكثر من 15 دقيقة

يبدو أن هذا للمستخدمين الذين يتبعون تعليمات يوتيوب و قواعدهم بدقة

الحمد لله

يعنى يمكننا مثلا رفع فديو ساعة نشرح فيها

عظيم جدا

ترحيل البيانات

أمر مهم جدا فى عالم الأكواد

الترحيل بطريقة حلقات التكرار

يسبب بطء الكود

لأنك تتفحص الشرط فى كل خلية قبل أن تقر هل ترحل هذا الصف أم لا

و ذلك مثلا عند ترحيل الناجحين

الطريقة الجديدة - الجديدة على طبعا -

توفر سرعة لا تقل عن 80%

وتلاحظون ذلك فى الملف المرفق

الآن إلى الفديو

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

والماكرو المكتوب يدويا

وهذه مهارة ضرورية جدا للمبرمج

إلى الفديو

الترحيل بالفلترة.zip

تم تعديل ديسمبر 9, 2010 بواسطه kemas

[captinasd]

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

[قصي]

جزاك الله خيرا واحسن لك الاجر والثواب فى الدنيا والاخرة واسال الله ان يؤتيك الحكمه فمن اوتى الحكمه فقد اوتى خيرا كثير وجارى التحميل

[هشام كوكب]

جزاك الله خيرا واحسن لك الاجر والثواب فى الدنيا والاخرة واسال الله ان يؤتيك الحكمه فمن اوتى الحكمه فقد اوتى خيرا كثير وجارى التحميل

[عبد الفتاح كيرة]

الأخ الأستاذ captinasd

جزاك الله خيرا على هذه الدعوات المباركات

و أسأل الله أن يعطيك مثلها

وسعادتى أن يستفيد أحد من هذه الشروح و ينتفع بها

أخى قصى

بارك الله فيك و حفظك و رعاك و شكرا لدعواتك

[عبد الفتاح كيرة]

شكرا لردك أستاذ هشام

بارك الله فيك

[ashraff101]

عمل ممتاز استاذنا الكبير kemas

[عبد الفتاح كيرة]

أشكرك أستاذ أشرف

بارك الله فيك

[احمد حمور-ابوعبدالله]

اخي كيماس

اقترح علي ماذا عساي ان اقول امام هذا المجهود الرائع

تم تعديل ديسمبر 11, 2010 بواسطه احمد حمور-ابوعبدالله

[عبد الفتاح كيرة]

أقترح عليك

أن تدعو لى

بارك الله فيك

[حسين شاكر]

الله يباركك فيك وفى اعمالك وفى اولادك امين امين امين امين امين امين امين امين

[الجزيرة]

تسلم أخي كيماس

بصراحة شرح يخلي اللي ما يفهم يفهم : )

[عبد الفتاح كيرة]

شكرا أخى حسين بارك الله فيك

شكرا لك أخى الجزيرة بارك الله فيكم

[أم عبد الله]

الأخ الكريم جزاك الله خيراً على هذا الشرح المفيد جداً وهل يمكن عمل هذا العمل بالمعادلات وليس بالماكرو أو الكود وجزاك الله الجنة0

[عبد الفتاح كيرة]

نعم إن شاء الله

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

http://posterous.com/getfile/files.posterous.com/kemas/ZpzwaL3TI48AfybPrtWKGfaoRfoFslRzBbDi13qAkguezw7tBB9qy0q8jkY1/untitled.xls

[يحيى حسين]

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

شرح جميل اخي كيماس و و فقك الله

افضل طرق ايصال المعلومة للأخوة

و بإنتظار المزيد منك ان شاء الله

[عادل حنفي]

السلام عليكم

اخي Kemas

بارك الله فيك

وزادك من علمه

خالص تحياتي و تقديري

[عبد الفتاح كيرة]

أشكر أستاذين من أساتذتى الكبار

الأخ يحيى

الأخ عادل

بارك الله فيكم

[أبو العقاب]

دائما نرى منك الابداع

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

[عبد الفتاح كيرة]

أخى أبا العقاب

بارك الله فيك

و شكرا لمرورك

[naderwatfa]

كالعادة أخي Kemas شرح رائع

أثابك الله به الجنة

طريقة الترحيل دي فعلاً في منتهي السرعة

ها استفيد منها في تعديل شيت الكنترول ليعطي سرعة في إنجاز العمل

أشكرك أخي جداً و بارك الله فيك

[عبد الفتاح كيرة]

أخ naderwatfa

هذه الطريقة هى من أفواه المحترفين

قالوا أنها أسرع كثيرا و أقل خطأ

من حلقات التكرار

شكرا لتقييمك للموضوع

[جلال محمد]

اخى الكريم

استاذ كيماس

شرح رائع من استاذ قدير

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

اللهم بارك لك في وقتك واسرتك وادخلكم الله الفردوس الأعلي

آمين آمين آمين

[جلال محمد]

اخى الكريم

استاذ كيماس

لو اردت ترحيل اعمدة معينه بدل المدى كله مثل عمود الاسم وعمود النتيجه

فما هو المطلوب تعديله علي المكرو لينفذ هذا

ولك الشكر

[عبد الفتاح كيرة]

أخى الكريم

هذا هو سطر النسخ و اللصق

.Range("a2:d" & lastrow).Copy Sheets("راسب").Range("a2")

و هو ينسخ الأعمدة من الأول للرابع الآن لنسخ عمود الاسم و هو رقم 2 سنغير المدى المنسوخ

.Range("B2:B" & lastrow).Copy Sheets("راسب").Range("a2")


, اللصق طبعا ل A2  فى الشيت الجديد


ثم لنسخ عمود النتيجة رقم  4


[code].Range("D2:d" & lastrow).Copy Sheets("راسب").Range("B2")

لكن اللصق لعمود 2 فى الشيت الجديد تم تعديل ديسمبر 13, 2010 بواسطه kemas