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

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


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





ترحيل مرن وسريع وسهل ضبطه

السلام عليكم نظرا لكثرة الاسئلة عن طريقة الترحيل لاعمدة غير مرتبة ومتفرقة وخلافة من هذه الامور قمت بعمل ترحيل يناسب ا ..



15-12-2017 12:32 صباحا
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1293
الجنس : ذكر
الدعوات : 13
يتابعهم : 2
يتابعونه : 724
قوة السمعة : 9894
موقعي : زيارة موقعي
عدد الإجابات: 9
 offline 

السلام عليكم 
MTY3ODkx23132132
نظرا لكثرة الاسئلة عن طريقة الترحيل لاعمدة غير مرتبة ومتفرقة وخلافة من هذه الامور 
قمت بعمل ترحيل يناسب اغلب الاخوة في احتياجاتهم 
الكود مرن جدا كل ما عليك هو تحديد اسم صفحة ادخال البيانات وصفحة قاعدة البيانات 
وارقام اعمدة البداية لادخال البيانات وايضا اول صف به بيانات 
وعدد الاعمدة المراد الترحيل منها 
والنقطة الاهم والمميزة وهي ترتيب اعمدة صفحة الادخال بما يقابلها من اعمدة قاعدة البيانات 
وتستطيع ترك اعمدة بين اعمدة الترحيل بدون الترحيل لها 
الكود 
Sub Yasser()
    Dim Add As Worksheet
    Dim Data As Worksheet
    Dim ar1 As Variant
    Dim ar2 As Variant
    Dim arr As Variant
    Dim v As Long, rw, x, xx
    Const co1 As Long = 2 'رقم اول عمود لصفحة ادخال البيانات
    Const co2 As Long = 3  'رقم اول عمود لصفحة قاعدة البيانات
    Const ro1 As Long = 5 'رقم اول صف ترحيل بيانات في صفحة ادخال البيانات
    Const co_num1 As Long = 20 ' عدد الاعمدة المراد الترحيل منها
    Set Add = Sheets("Enter") 'اسم صفحة ادخال البيانات
    Set Data = Sheets("Data") 'اسم صفحة قاعدة البيانات
    ar1 = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 15, 16) ' ترتيب اعمدة صفحة الادخال
    ar2 = Array(2, 1, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 15, 16) 'ترتيب اعمدة قاعدة البيانات بما يقابلها من صفحة ادخال البيانات
    arr = Add.Range(Add.Cells(ro1, co1), Cells(Add.Cells(Rows.Count, co1).End(xlUp).Row, co1 + co_num1)).Value
    If Add.Cells(ro1, co1) = "" Then MsgBox "يرجى ادخال البيانات ثم الترحيل": Exit Sub
    v = Data.Cells(Rows.Count, co2).End(xlUp).Row
        For xx = LBound(ar2) To UBound(ar2)
        ReDim y(1 To UBound(arr, 1))
            For x = LBound(arr) To UBound(arr)
            If ar2(xx) <> "" Then
               rw = rw + 1
                y(rw) = arr(x, ar1(xx))
            End If
        Next
    If rw > 0 Then Data.Cells(v, co2 + (ar2(xx) - 1))(2, 1).Resize(UBound(y, 1)).Value = Application.Transpose(y)
        Erase y
        rw = 0
    Next
    Erase arr
    Add.Range(Add.Cells(ro1, co1), Cells(Add.Cells(Rows.Count, co1).End(xlUp).Row, co1 + co_num1)).ClearContents
    MsgBox "Done............"
End Sub

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


 
 
  ترحيل مرن 1.zip   تحميل zip مرات التحميل :(325)
الحجم :(22.407) KB

توقيع :Yasser Elaraby
663013020


15-12-2017 12:46 صباحا
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 275
قوة السمعة : 4570
موقعي : زيارة موقعي
عدد الإجابات: 7
 offline 
look/images/icons/i1.gif ترحيل مرن وسريع وسهل ضبطه
بارك الله فيك استاذ ياسر العربي رائع رائع رائع
ولى رجاء اذا كان احدهم يريد ان يضع شرط في الترحيل هل يمكن تعديل هذا الكود ليقبل شروط 
ام هو لترحيل اعمدة غير متجاورة فقط 

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

تحياتى وتقدير للجميع  محمود ابوالدهب

15-12-2017 12:59 صباحا
مشاهدة مشاركة منفردة [2]
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1293
الجنس : ذكر
الدعوات : 13
يتابعهم : 2
يتابعونه : 724
قوة السمعة : 9894
موقعي : زيارة موقعي
عدد الإجابات: 9
 offline 
look/images/icons/i1.gif ترحيل مرن وسريع وسهل ضبطه
الشروط اشكال والوان حدد الشروط اللي محتاجها على ملف وارفقه وان شاء  الله اعدل الملف ليناسب الشروط
بس حاليا يادوب بقي الواحد يناااااااام تصبح على خيرر blink
توقيع :Yasser Elaraby
663013020


15-12-2017 01:05 صباحا
مشاهدة مشاركة منفردة [3]
محمود ابو الدهب
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 275
قوة السمعة : 4570
موقعي : زيارة موقعي
عدد الإجابات: 7
 offline 
look/images/icons/i1.gif ترحيل مرن وسريع وسهل ضبطه
كنت اقصد ان يكون الشرط متغير بمعنى يكفينى ان احدد رقم العمود الذى به الشرط ثم احدد هلى يحتوى هذا العمود على كذا او كبر من كذا او اصغر او يساوى 
اى اقصد ان يكون مثل الكود سهل للمستخدم العادى او للى مش بيعرف يتعامل مع الاكواد يسهل التعامل معه 


وانا كمان يدوبك دلوقتى انام احلام سعيده ليك وليا ومتنشاس اتغطي كويس بدل ما الاحلام تقلب كوابيس biggrin2 واحنا في الشتاء

تحياتى وتقديرى لك 113


تم تحرير المشاركة بواسطة :محمود ابو الدهب
بتاريخ:15-12-2017 01:06 صباحا

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

تحياتى وتقدير للجميع  محمود ابوالدهب

15-12-2017 04:55 صباحا
مشاهدة مشاركة منفردة [4]
احمد ابوساجد
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 30-09-2017
رقم العضوية : 779
المشاركات : 7
الجنس : ذكر
يتابعهم : 8
يتابعونه : 0
قوة السمعة : 14
 offline 
look/images/icons/i1.gif ترحيل مرن وسريع وسهل ضبطه
المحترم بزياده     كنت بسأل على الترحيل من الفورم حسب كود الصنف

15-12-2017 12:57 مساء
مشاهدة مشاركة منفردة [5]
ناصر سعيد1
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 657
 offline 
look/images/icons/wub.gif ترحيل مرن وسريع وسهل ضبطه
المحترم ياسر العربي
كا فأك الله بكل خير
وبعد :
هذا هو الملف الذي نريد ان نتشرف باضافة كودك الرائع اليه
والشرطين موجودين في صفحه الهدف

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  ترحيل مرن 2.rar   تحميل rar مرات التحميل :(50)
الحجم :(300.512) KB


15-12-2017 05:44 مساء
مشاهدة مشاركة منفردة [6]
كاردوس
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 26-11-2017
رقم العضوية : 1941
المشاركات : 1
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
 offline 
look/images/icons/i1.gif ترحيل مرن وسريع وسهل ضبطه
عمل جميل ومفيد جداً .... شكراً جزيلاً لك 




الكلمات الدلالية
ترحيل ، وسريع ، وسهل ، ضبطه ،


 










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

الساعة الآن 10:16 صباحا