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

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


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





خطآ بالكود-ترحيل

السلام عليكم ورحمة الله وبركاته معي كود قمت بالتعديل عليه ولكن لم يضبط معي ولا اعرف الخلل من اين؟؟؟؟ اريد ترحيل البيانات ..



28-07-2020 11:30 صباحا
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 

السلام عليكم ورحمة الله وبركاته
معي كود قمت بالتعديل عليه ولكن لم يضبط معي
ولا اعرف الخلل من اين؟؟؟؟
اريد ترحيل البيانات من صفحة الرصد الى صفحة الشيت

NjM4NTgx3
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
هذا هو الكود
Sub ترحيل_من_الرصد()
    Rem الإعلان عن المتغيرات ومنها مصفوفة سيكون عدد الأعمدة فيها 4 وتعبر عن النتائج
    Dim a(1 To 10000, 1 To 15), ws As Worksheet, sh As Worksheet, lr As Long, r As Long, m As Long
    Rem إيقاف اهتزاز الشاشة لتسريع الكود
    Application.ScreenUpdating = False
        Rem تعيين ورقة العمل التي يتم ترحيل البيانات منها
        Set ws = ThisWorkbook.Worksheets("الرصد")
        Rem تعيين ورقة العمل التي يتم ترحيل البيانات إليها
        Set sh = ThisWorkbook.Worksheets("الشيت")
        Rem تحديد رقم آخر صف به بيانات بناءً على العمود الثالث في ورقة البيانات
        lr = ws.Cells(Rows.Count, "C").End(xlUp).Row
        Rem حلقة تكرارية من الصف الخامس لآخر صف به بيانات وبتخطي 4 صفوف
        For r = 5 To lr
            Rem استخدام المتغير كعداد ويزيد في كل مرة بمقدار واحد
            m = m + 4
            Rem وضع المسلسل في أول عمود في المصفوفة
            a(m, 1) = m
            Rem وضع رقم الجلوس في العمود الثاني في المصفوفة
            a(m, 2) = ws.Cells(r, 2).Value  'Seat Number
            Rem وضع اسم الطالب في العمود الثالث في المصفوفة
            a(m, 3) = ws.Cells(r, 3).Value  'Student Name
            Rem وضع درجة الطالب في العمود الرابع في المصفوفة
            a(m, 5) = ws.Cells(r, 5).Value  'Mark
            a(m, 6) = ws.Cells(r, 6).Value
                  Rem الانتقال للمجموعة التالية بعد تخطي 4 صفوف
        Next r
        Rem بدء التعامل مع الخلية في ورقة العمل التي سيتم ترحيل البيانات إليها
        With sh.Range("A5")
            Rem مسح النطاق بدايةً من الخلية وبامتداد 4 أعمدة مع استثناء أول 9 صفوف
            .Resize(Rows.Count - 4, 29).ClearContents
            Rem وضع نتائج المصفوفة في ورقة العمل الهدف
            .Resize(UBound(a, 1), UBound(a, 2)).Value = a
        End With
    Rem استرجاع خاصية اهتزاز الشاشة في نهاية الكود
    Application.ScreenUpdating = True
End Sub

 
 
  خطأ.rar   تحميل rar مرات التحميل :(1)
الحجم :(119.314) KB


28-07-2020 03:30 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif خطآ بالكود-ترحيل
عندما تتوقفين عن استعمال الخلايا المدمجة داخل الجدول
بحيث  تفصليها عن باقي البيانات بصف فارغ او عامود فارغ

يمكن وقتها المساعدة

28-07-2020 03:36 مساء
مشاهدة مشاركة منفردة [2]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif خطآ بالكود-ترحيل
أقصد استاذ سليم....
هذا الكود تم استخدامه بالمصفوفات...ورحل أثناء وجود خلايا مدمجه...من صفحة الداتا...إلى صفحة الرصد....
......
أما الان اريد معرفة الخلل باالكود الموجود عند
ترحيل البيانات من صفحة الرصد...إلى صفحة الشيت...

28-07-2020 04:23 مساء
مشاهدة مشاركة منفردة [3]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif خطآ بالكود-ترحيل
لا أحب ان أعمل على المصفوفات في عمليات الترحيل
يمكن اذا اردت هذا الماكرو
بعد ضبط وضع الجدول (بدون خلايا مدمجة)
اضافة صف فارغ رقم 5 (مخفي) وعامود فارغ  "C"(يمكن اخفاءه)
لكن تركته حتى ترينه

  Sub My_tarhil()
   Dim Rsd As Worksheet
   Dim Sh As Worksheet
   Dim i%, m%
   Set Rsd = Sheets("الرصد")
   Set Sh = Sheets("الشيت")
  i = 7: m = 6
  Do Until Rsd.Cells(i, 4) = vbNullString
      Sh.Cells(m, 5).Resize(, 20).Value = _
      Rsd.Cells(i, 4).Resize(, 20).Value
      
      Sh.Cells(m, "y").Resize(, 5).Value = _
      Rsd.Cells(i, "y").Resize(, 5).Value
      
      Sh.Cells(m, "A").Resize(, 3).Value = _
      Rsd.Cells(i, "A").Resize(, 3).Value
  m = m + 4
  i = i + 1
  Loop
  End Sub

الملف مرفق
 
 
  Iman_error.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(284.013) KB


28-07-2020 11:14 مساء
مشاهدة مشاركة منفردة [4]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif خطآ بالكود-ترحيل
تسلم استاذ سليم.... هل من تعديل استاذنا في الكود اللي رفعته قبل ذلك...
باستخدام المصفوفات.. بحيث يبقى تمام... ومش لازم وجود خلايا مدمجه عادي؟؟؟؟
وهل حضرتك استخدام المصفوفات في الترحيل خطآ ..... ام ماذا؟؟؟؟

28-07-2020 11:29 مساء
مشاهدة مشاركة منفردة [5]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif خطآ بالكود-ترحيل
وهل حضرتك استخدام المصفوفات في الترحيل خطآ ..... ام ماذا؟؟؟؟[/quote]
استخدام المصفوفات في الترحيل ليس خطأ
لكن تصوري اننا نبحث عن مجموعة بيانات لنضعها في مصفوفة
و عند اكتمال المصفوفة نقوم بوضعها في المكان المناسب في الشيت المناسب
فلماذا لا نقوم بوضع ما نفتش عنه  رأساً في المكان المناسب
دون المرور بالمصفوفة

29-07-2020 02:54 صباحا
مشاهدة مشاركة منفردة [6]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif خطآ بالكود-ترحيل
لكن المصفوفه اسرع بكثير مع كثرة البيانات.....
هل من تعديل على الكود بالمصفوفه جزاك الله خيرا....
لان في فراغات الكود بيتجاهلها




الكلمات الدلالية
بالكود-ترحيل ،


 










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

الساعة الآن 08:30 مساء