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



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





كود الترحيل بالمصفوفات

المطلوب التعديل على الكود الترحيل الموجود بالمرفق بحيث يتم لصق البيانات المرحلة بداية من الخلية (a11) مع ترك صف (12) فار ..



06-08-2018 11:33 مساء
ayman_2000
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 04-09-2017
رقم العضوية : 337
المشاركات : 15
الجنس : ذكر
تاريخ الميلاد : 14-5-1963
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 26
الاعجاب : 8
 offline 

المطلوب
التعديل على الكود الترحيل الموجود بالمرفق بحيث يتم لصق البيانات المرحلة بداية من الخلية (a11) مع ترك صف (12) فارغ لرصد درجة امتحان الدور الثانى ، وهكذا فى جميع الصفوف ، وضبط السلسلة مع وجود صف به بيانات وصف فارغ 
 
 
  ayman.rar   تحميل rar مرات التحميل :(6)
الحجم :(148.77) KB







07-08-2018 02:50 صباحا
مشاهدة مشاركة منفردة [1]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 304
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 16
قوة السمعة : 1873
الاعجاب : 478
 offline 
look/images/icons/i1.gif كود الترحيل بالمصفوفات
 
 
  ayman.rar   تحميل rar مرات التحميل :(11)
الحجم :(170.085) KB


أثارت هذه المشاركة إعجاب: ayman_2000، Eslam Abdullah،




07-08-2018 03:25 صباحا
مشاهدة مشاركة منفردة [2]
ayman_2000
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 04-09-2017
رقم العضوية : 337
المشاركات : 15
الجنس : ذكر
تاريخ الميلاد : 14-5-1963
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 26
الاعجاب : 8
 offline 
look/images/icons/i1.gif كود الترحيل بالمصفوفات
اشكرك اخى على على اهتمامك 
ولكن التعديل الذى اضفته على الكود  يقوم بازاحة الصفوف الى اسفل مما ادى الى الاخلال بالتنسيق
المطلوب التعديل على الكود بحيث يتم الترحيل البيانات وترك صف خالى مع عدم الاخلال بتنسيق الصفوف
تقبل تحياتي





07-08-2018 08:01 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3941
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 295
قوة السمعة : 11127
الاعجاب : 3947
 offline 
look/images/icons/i1.gif كود الترحيل بالمصفوفات
بارك الله فيك أخي العزيز علي ومشكور على التفاعل الرائع

أخي الكريم أيمن
جرب الكود التالي عله يفي بالغرض
Sub DOR_2()
    Dim ws          As Worksheet
    Dim sh          As Worksheet
    Dim arr         As Variant
    Dim temp        As Variant
    Dim cr          As Variant
    Dim lr          As Long
    Dim i           As Long
    Dim j           As Long
    Dim c           As Long
    Dim x           As Long
    
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Sheets("الشيت")
        Set sh = ThisWorkbook.Sheets("شيت2")
        
        sh.Range("A10:AP1000").ClearContents
        lr = ws.Cells(Rows.Count, 10).End(xlUp).Row
        arr = ws.Range("A10:DS" & lr).Value
        ReDim temp(1 To UBound(arr, 1) * 2, 1 To UBound(arr, 2))
        
        cr = Array(3, 10, 11, 123, 20, 24, 28, 32, 36, 40, 44, _
                   47, 51, 54, 57, 59, 65, 69, 73, 77, 81, 82, 83, 84, _
                   106, 107, 108, 109, 110, 111, 112, 113, 114, 115, _
                   116, 117, 118, 119, 120, 121, 122)
        j = 1: x = 1
        
        For i = LBound(arr, 1) To UBound(arr, 1)
            If arr(i, 84) >= 1 Then
                temp(j, 1) = x
                For c = LBound(cr) To UBound(cr)
                    temp(j, c + 2) = arr(i, cr(c))
                Next c
                j = j + 2: x = x + 1
            End If
        Next i
        With sh
            .Range("A11").Resize(j - 1, UBound(temp, 2)).Value = temp
        End With
    Application.ScreenUpdating = True
End Sub

أثارت هذه المشاركة إعجاب: ayman_2000، ali mohamed ali، Eslam Abdullah،




07-08-2018 01:03 مساء
مشاهدة مشاركة منفردة [4]
ayman_2000
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 04-09-2017
رقم العضوية : 337
المشاركات : 15
الجنس : ذكر
تاريخ الميلاد : 14-5-1963
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 26
الاعجاب : 8
 offline 
look/images/icons/i1.gif كود الترحيل بالمصفوفات
اشكرك استاذى الجليل / ياسر خليل 
استاذ الترحيل بالمصفوفات ، نفعنا الله بعلمك وحفظك من كل سوء
كود رائع  واهو المطلوب  والحمد لله
اكرر شكرى وتقديرى لشخصك الكريم

أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،




07-08-2018 03:41 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3941
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 295
قوة السمعة : 11127
الاعجاب : 3947
 offline 
look/images/icons/i1.gif كود الترحيل بالمصفوفات
بارك الله فيك أخي الكريم أيمن ومشكور على كلماتك الطيبة
والحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

أثارت هذه المشاركة إعجاب: ayman_2000، Eslam Abdullah،




07-08-2018 10:27 مساء
مشاهدة مشاركة منفردة [6]
Eslam Abdullah
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 917
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 48
قوة السمعة : 5309
الاعجاب : 1511
 offline 
look/images/icons/i1.gif كود الترحيل بالمصفوفات
جزاكم الله خيرا أستاذ على وأستاذ ياسر
حلول رائعة 3

أثارت هذه المشاركة إعجاب: ali mohamed ali، YasserKhalil،




08-08-2018 03:59 صباحا
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3941
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 295
قوة السمعة : 11127
الاعجاب : 3947
 offline 
look/images/icons/i1.gif كود الترحيل بالمصفوفات
وجزيت خيراً أخي الحبيب إسلام ومشكور على مرورك العطر






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تعديل علي كود vba لتقسيم ملف وورد الي عدة ملفات emad eldwady
3 27 ali mohamed ali
طلب كود لاستدعاء بيانات من ورقة اخرى moonlight
1 24 moonlight
طلب مساعدة في تصحيح كود ارسال ورقة من ملف عن طريق الايمايل زياد عبد الجليل
4 73 زياد عبد الجليل
اصلاح وتفعيل كود به معادلة هانى على
12 90 YasserKhalil
ما لهذه الصور لا تريد الترحيل _عطب في كود حيرني hellong
5 52 YasserKhalil

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


 







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



الساعة الآن 02:49 صباحا

أعلن هنا
أعلن هنا
أعلن هنا