طالب علم مجتهد قام بنشر مايو 12, 2015 قام بنشر مايو 12, 2015 أرجوا من سيادتكم اعزكم الله ان اتعلم كيف اقوم بعمل الترحيل من صفحة الى صفحة اخرى .. زاد الله لكم فى ميزان حسناتكم .. اخوكم فى الله / طالب علم مجتهد ...
مختار حسين محمود قام بنشر مايو 12, 2015 قام بنشر مايو 12, 2015 أخى الكريم / طالب علم مجتهد راجع التوجيهات للأعضاء الجدد فى الصفحة الرئيسية للمنتدى بعد كده اجتهد فى البحث فى المنتدى موضوعات كثيرة خاصة بالترحيل تحياتى
ا بو سليمان قام بنشر مايو 12, 2015 قام بنشر مايو 12, 2015 كثيرة لملفات التي تعمل الترحيل ولكن انا مثلك ارغب بتعلم طريقة الترحيل وطريقة عمل الكود و الاوامر ويكون بالتفصيل و بالصوره
اسامةمحمد قام بنشر مايو 12, 2015 قام بنشر مايو 12, 2015 (معدل) www.officena.net/ib/index.php?app=core&module=global§ion=login تم تعديل مايو 12, 2015 بواسطه اسامة الزاوي
محمود بكرى قام بنشر مايو 13, 2015 قام بنشر مايو 13, 2015 بسم الله الرحمن الرحيم اولا اخى الكريم سوف احلل معك فكرة الترحيل لتكون بداية لك لفهمها باذن الله الترحيل هو نقل البيانات من المكان المؤقت " الادخال " الى مكان التخزين " الداتا" بغرض استخدام البيانات المخزنة فى عمليات الاخراج " النتائج والتقارير" بمعنى الادخال مؤقت والاخراج مؤقت المخزن لنا هو "داتا" وقد يكون مؤقت ايضا ولا كن فى الطبيعى ان يكون دائما طيب قبل وضع اى بيانات فى المخزن ينبغى لك انا تحسب بعض الاشياء اولا مساحة العمل او المساحة الاجمالية للمخزن يعنى هيشيل قد ايه ثانيا محتاج تعرف موجود فيه قد ايه عشان تقدر تحدد هتحط الجديد فين هو ده مختصر الموضع لازم نحدد احنا هنخزن البيانات بداية من المساحة المتاحة للتخزين وطبعا سيبنا من المخزن احنا عندنا هنا عدد صفوف تم تسجيل بيانات فيها من قبل يبقى اول حاجة محتاجنين نعرفها هى اخر صف به بيانات قبل ما ندخل بيانات جديدة وهناك اكواد كتيرة وممكن تحدد مكان وضع البيانات باكثر من طريقة على سبيل المثال وليس الحصر Dim lr As Long lr = Sheets("out").Cells(Rows.Count, 1).End(xlUp).Row هنا عرفنا متغير lr لوضع لنا عدد الصفوف التى بها بيانات فى ورقة in بمعنى اخر صف به بيانات فى العمود الاول نقوم بنقل البيانات من مكان الادخال اى كانت الطريقة ولاكن عند وضعخا فى الداتا يحدد النطاق range باسم او رقم العمود + (lr+1) Sheets("in").Range("A2:g" & lr1).SpecialCells(xlCellTypeVisible).Copy Sheets("out").Range("A2:g" & lr+1).PasteSpecial xlPasteValues هنا الصورة واضحة ولاكن لاحظ ان فى كثير من الاحيان تحدد نطاق النقل بفس الطريقة هنا حددنا اخر صف فى صفحة in للنقل فى اخر صف +1 فى صفحة out هى دى الفكرة ببساطة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.