كود ترحيل البيانات بشكل مميز + شرح مصور

[جلال الجمال_ابو أدهم]

بارك الله فيك

[عاشق الاسلام]

بارك الله فيك

[samycalls]

مجهود مميز ورائع ..

[ابو جودى]

جزاك الله خيرا

تم تعديل نوفمبر 5, 2014 بواسطه عمرو طلبة

[أبو محمد عباس]

الاخ احمد بكر بارك الله فيك وجزاكم الله خيرا

[اسد السنة]

يااخي لم تذكر اضافة مودل للشرح

والملف المرفق به مودل

ماضبط معي

تم تعديل مارس 18, 2016 بواسطه اسد السنة

[أبو قاسم]

جزاك الله خير صراحة رائع

[أبوبسمله]

جزاك الله كل خير

جعله الله فى ميزان حسناتك

[اسد السنة]

ياليت ترفع الشرح لان الرابط لا يعمل

[أبوبسمله]

اتفضل اخى

الشرح + ملف الاكسيل + الصور

اضغط للتحميل

بالتوفيق اخى

[اسد السنة]

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

ياليت تشرح لي لاني جربت ماضبط معي 

هل الكود بالمودل ام بالبوتين 

[أبوبسمله]

اخى الفاضل

الاخ الكريم قام بعمل موديل ووضع الكود به ثم قام بانشاء زر امر وقام بتضمين الموديل له

اضغط كليك يمين واختار كلمة تعيين ماكرو هتلاقى الموديل قدامك او اضغط على Alt+f8 هيفتحلك القائمه المقصوده

بالتوفيق اخى واحنا بنتعلم معاكم برضه اخى

[أحمد بكر]

في 11/10/2012 at 12:02, althaer said:

بارك الله فيك أخى الكريم

إذا أردت عدم مسح البيانات و أردت إبقائها ؟ و ماذا لو أردت توسيع نطاق الترحيل ؟

عذرا" للسؤال فهو من مبتدىء

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

Sheet1.Range("A3:C3") = ""

لتوسيع النطاق غير عمود C  الي اى عمود تريدة لزيادة عرض النطاق  ولطول النطاق هنا 50000 ممكن تزوده برده

azsh = Sheet2.Range("c50000").End(xlUp).Row + 1

 

9 ساعات مضت, اسد السنة said:

ياليت ترفع الشرح لان الرابط لا يعمل

يمكن عمل الكود بالطريقتين بموديل او بدون موديل 

لو بدون موديل 

ممكن تحط الكود داخل الزر  من المطور ,, ادراج ,,  زر   نوعه  activeXcontrol

دبل كليك على الزر وانت فى وضع المصمم 

 

مرفق الملف يعمل بدون موديل 

 

 

tr7eel.rar

[ناصر سعيد]

جزاكم الله خيرا وبارك فيكم

نظرا لان البعض منا يستعمل اكسيل 2003 والبعض 2007 والبعض 2010 والبعض يستعمل اصدارات اخرى نرجو من الساده المحترمين التعريف ان الملف او الشرح على اكسيل اصدار ...... كذا  وشكرا

 

[ناصر سعيد]

الاستاذ ياسر خليل

ارجو ان تفرد موضوع عن كيفية تغيير الاسم للعربيه لانني مش عارف اغيرها

[ياسر خليل أبو البراء]

تم الرد على موضوعك أخي الحبيب ناصر سعيد ..

تقبل تحياتي

[اسد السنة]

شكرا لك اخي احمد بكر وجميع الاعضاء لتجاوبهم

انا استخدم اوفيس 2010 ويبدو فيه اختلاف والتحديد يبقى بعد ترحيل بالبيانات فهل له حل ايضا 

اين المشكلة بالملف المرفق

aa.rar

تم تعديل مارس 19, 2016 بواسطه اسد السنة

[أحمد بكر]

2 ساعات مضت, اسد السنة said:

شكرا لك اخي احمد بكر وجميع الاعضاء لتجاوبهم

انا استخدم اوفيس 2010 ويبدو فيه اختلاف والتحديد يبقى بعد ترحيل بالبيانات فهل له حل ايضا 

اين المشكلة بالملف المرفق

aa.rar

المشكلة ليست فى الاصدار

الكود عبارة عن نسخ البيانات من Sheet1   اللى هو ادخال البيانات 

الى Sheet2 الى هو الفواتير 

الخطأ فى تسمية الشيت اضغط هنا لرؤية صورة توضيحية

 

لعدم تظليل الخلايا بعد الترحيل زود هذة الجزئية  ( بعد التنفيذ يقف في خلية E3 ويمسح ما بها وينتقل الى E4 )

 Range("E3").Select
    Selection.ClearContents
    Range("E4").Select

 

 

[اسد السنة]

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

[grarataliy]

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

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

[محمد ثامر الجبوري]

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

[مكتبة ريم]

أكرمك الله وجزاك خيرا

[عبدالله فتحى]

في ١٨‏/٥‏/٢٠١٢ at 17:03, أحمد بكر said:

بعد إذن المبدع أحمد بكر

يوزر فورم ويرحل البيانات حسب اسم الصفحة

 

 

 

 

 

 

 

الموضوع : كود ترحيل البيانات بشكل مميز

 

 

 

 

 

سأتناول أولا : شرح الكود حتى يسهل على الجميع أستخدامة داعيا الله ان يوفقنى الى ما يحبة ويرضة

 

 

 

 

 

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

 

 

 

 

 

أبدأ بفنح ملف أكسيل جديد :

 

 

 

 

 

 

 

 

 

 

قم بتسمية

 

 

 

ورقة العمل الاولى بأسم ادخال بيانات

 

 

 

والورقة الثانية فواتير

 

 

 

 

 

 

 

 

 

ثم فى صفحة العمل الاولى والتى تسمى بـ ادخال البيانات قوم بتصميم جدول كما هو موضح فى الصورة

 

 

 

 

 

 

 

 

 

 

ثم

 

 

 

تصميم زر فى نفس الصفحة حتى يصبح بنفس الشكل هذا

 

 

 

 

 

 

 

 

لم لا يعرف كيفية تصميم زر يمكنة ذلك من خلال :

 

 

 

-----------------------------------------------------

 

 

 

اصدار 2003

 

 

 

من مربع أدوات التحكم > ادارج زر

 

 

 

------------------------------------------------------

 

 

 

اصدار 2007

 

 

 

من المطور > ادراج زر

 

 

 

-------------------------------------------------------

 

 

 

 

 

 

وفى الصفحة الثانية التى تم تسميتها باسم فواتير

 

 

 

نصممها على هذا الشكل

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

بعد تصميم تسمية الصفحتين والزر فى الصفحة الاولى يمكنك اضافة الكود

 

 

 

 

من خلال اختيار وضع التصميم

 

 

 

 

 

 

 

 

والضغط على الزر الذى سبق تصميمة دبل كليك ايسر على الماوس

 

 

 

 

ثم نضع الكود التالى وسأقوم بشرحة تفصيليا كما بالصورة (الكود مرفق )

 

 

 

 

 

 

 

الجزء الاولى من الكود

 

 

 

 

 

 

 

 

 

الجزء الثانى من الكود

 

 

 

 

 

 

 

 

 

الجزء الثالث من الكود

 

 

 

 

 

 

 

 

 

 

الجزء الرابع من الكود

 

 

 

 

 

 

 

 

 

الجزء الخامس من الكود

 

 

 

 

 

 

 

 

 

الجزء السادس والأخير

 

 

 

 

 

 

 

 

 

ملاحظة : الكود يرحل بترتيب الادخال .

 

 

 

 

 

 

 

 

 

 

 

 

لتحميل الشرح مصور + ملف المثال + الكود

 

 

 

 

من هنا

 

 

 

 

فى النهاية

 

 

 

أسالكم الدعاء اذا افادكم ذلك

 

 

ورقة العمل.xlsx

[princeyousry]

اخى العزيز ...

شرح الموضوع ممتاز ..

لكني لم اجد ملف الكود فى المرفقات

من فضلك ضع الكود كى استطيع تحميله والاستفادة من الموضوع ..

مع خالص تحياتى ،،،

[محمد عبدالسلام]

مجهود مميز ورائع