جلال محمد قام بنشر ديسمبر 4, 2009 قام بنشر ديسمبر 4, 2009 الأخوة الكرام السلام عليكم وجدت ملف عندى لأخى الكريم ايسم ابراهيم وبه ماكرو لترحيل البيانات ولكن لم افلح في تطبيق الماكرو علي احد ملفاتى فأرجو من حضراتكم مساعدتى في تطبيق الماكرو علي الملف المرفق وبداخله الماكرو وشكرا لكم جميعا ترحيل بيانات.rar
جلال محمد قام بنشر ديسمبر 5, 2009 الكاتب قام بنشر ديسمبر 5, 2009 الأخوة الكرام اليكم ملف الأخ أيسم لكي تتضح الصوره اكثر ولكم الشكر FALL_SUC2.rar
طارق محمود قام بنشر ديسمبر 5, 2009 قام بنشر ديسمبر 5, 2009 السلام عليكم الماكرو في ملف الأستاذ أيسم كان مناسب مع عدد الخلايا التي بها البيانات لكن حالتك تختلف قليلا تفضل المرفق _____ ______.rar
خالد القدس قام بنشر ديسمبر 5, 2009 قام بنشر ديسمبر 5, 2009 <div align="center"><font color="#0000ff" size="4">السلام عليكم </font><br><br><font color="#0000ff" size="4">سلمت يداك استاذي الكريم طارق </font><br><br><font color="#0000ff" size="4">وكل سنة وانت طيب </font><br><br><font color="#0000ff" size="4">واستاذ أيسم لم أر مشاركاته من فترة أتمنى أن يكون بخير وصحة وعافية </font><br><br></div>
جلال محمد قام بنشر ديسمبر 5, 2009 الكاتب قام بنشر ديسمبر 5, 2009 شكرا لك اخي الكريم طارق وجزاك الله كل خير وشكرا لك اخى خالد على مرورك جزى الله الجميع كل الخير
جلال محمد قام بنشر ديسمبر 5, 2009 الكاتب قام بنشر ديسمبر 5, 2009 اخى الكريم طارق سبب عرض الموضوع عليكمانى حاولت تطبق الكود على ملفى فلم افلح فقلت اعرضع عليكم والاحظ التغيرات لكى استطيع فهم الكود بعض الشيئ ولكن التغيرات علي الكود توهتنى اكثر فارجو من حضرتك شرح الكود وخصوصا التغيرات حتى يتثنى لى تطبيقه على الملف الأصلى ...ولك الشكر الجزيل
جلال محمد قام بنشر ديسمبر 6, 2009 الكاتب قام بنشر ديسمبر 6, 2009 الماكرو في ملف الأستاذ أيسم كان مناسب مع عدد الخلايا التي بها البيانات لكن حالتك تختلف قليلا استاذ طارق ارجو من حضرتك توضيح التغيرات حتى اتمكن من تطبيق الكود علي الملف الأصلي ولك جزيل الشكر
جلال محمد قام بنشر ديسمبر 7, 2009 الكاتب قام بنشر ديسمبر 7, 2009 اخى طارق جزاك الله كل خير علي الشرح المبسط الجميل ولكن ماذا عن الرقم ( 1000 ) في اول الكود والرقم( 2000 و 16 ) الموضحين في الصوره هل هو عدد اخلايا المحدده؟ واذا كان فكيف احسب عدد الخلايا في الملف الأصلي ؟ وشكرا لك على هذا المجهود وجعله الله في ميزان حسناتك يوم القيامه
طارق محمود قام بنشر ديسمبر 7, 2009 قام بنشر ديسمبر 7, 2009 السلام عليكم الرقم 1000 في أول الكود هو عنوان في الكود نفسه لأنه مسبوق بأمر GOTO وهو بالتحديد آخر سطر قبل نهاية الكود وهذا يعني أنك تأمر الإكسل (On Error في حالة وجود خطأ) أن يذهب إلي العنوان 1000 ومن ثم ينهي الكود وتستطيع تغيير هذا الرقم كما تشاء ولكن في الموضعين بعد أمر GOTO في أول الكود وآخر سطر قبل نهاية الكود أما الرقم 2000 في الأمر For i = 13 To Sheets(1).Cells(2000, 3).End(xlUp).Row أو x = Cells(2000, 16).End(xlUp).Row + 1 يعني أنك تطلب العداد i يبدأ من 13 إلي رقم آخر تصاعديا وهذا يعني الرقم الآخر للعداد i = يحصل عليه الإكسل كالآتي رقم الصف الذي عند الذهاب للخلية 2000, 3 (سطر 2000 عمود 3) ثم لأعلي End(xlUp) إلي أن يقابل خلية بها بيانات بمعني آخر آخر خلية بها بيانات بفرض أن البيانات لن تتجاوز 2000 وطبعا تستطيع زيادة هذا الرقم حتي الحد الأقصي لعدد الصفوف بالإكسل الذي تستخدمه (65536) في حالة إكسل 2003 وأما الرقم 16 في الأمر x = Cells(2000, 16).End(xlUp).Row + 1 يعني تقريبا مثل السابق ولكن بالنسبة للعامود 16 الذي به أعمال السنة وليس العامود 3 الذي به أسماء التلاميذ المهم تختار عامود به بيانات متصلة لضمان الوصول لآخر صف بيانات فلا يجوز مثلا إختيار العامود 4 ولا 5 ولا 6 ولا 13 ولا 14 ولا 15 راجع الصورة السابقة
جلال محمد قام بنشر ديسمبر 7, 2009 الكاتب قام بنشر ديسمبر 7, 2009 اخى طارق جزاك الله كل خير علي هذا الايضاح الوافي والرد السريع مهما شكرتك لن اوفيك حقق ولن اجد افضل من أن يسهل الله طريقك للجنه مع صحبة رسولنا الكريم وزوجك الله من الحور العين امين يارب العالمين
رحيق الزهور قام بنشر مايو 16, 2014 قام بنشر مايو 16, 2014 السلام عليكم بس اريد اسال ليش ماتفتح عندي الملفات؟؟
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.