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



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





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

المطلوب التعديل على الكود الترحيل الموجود بالمرفق بحيث يتم لصق البيانات المرحلة بداية من الخلية (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 مرات التحميل :(11)
الحجم :(148.77) KB







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


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


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


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
المشاركات : 4651
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13377
الاعجاب : 4950
 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
المشاركات : 4651
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13377
الاعجاب : 4950
 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
المشاركات : 1157
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 55
قوة السمعة : 6902
الاعجاب : 1949
 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
المشاركات : 4651
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13377
الاعجاب : 4950
 offline 
look/images/icons/i1.gif كود الترحيل بالمصفوفات
وجزيت خيراً أخي الحبيب إسلام ومشكور على مرورك العطر






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كود استيراد بيانات من ملف اكسيل مغلق حتى وان كان محمى الصقر
34 3656 محمدعبدالسلام
حل ظهور رسالة خطأ فى الكود مهند محسن
3 25 ابونور
برنامج حساب العمر مع السورس كود VB.net Yasser Elaraby
21 1818 محمد حسن المحمد
مشكلة في كود التنفيد المبتدأ
9 73 رمضان بكري
تعديل كود دخول المستخدم yehya mahmoud
6 74 yehya mahmoud

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


 







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



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

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