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

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

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




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





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

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



06-08-2018 11:33 مساء
ayman_2000
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 04-09-2017
رقم العضوية : 337
المشاركات : 41
الجنس : ذكر
تاريخ الميلاد : 14-5-1963
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 80
الاعجاب : 15
 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
المشاركات : 643
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 28
قوة السمعة : 3186
الاعجاب : 1022
 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
المشاركات : 41
الجنس : ذكر
تاريخ الميلاد : 14-5-1963
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 80
الاعجاب : 15
 offline 
look/images/icons/i1.gif كود الترحيل بالمصفوفات
اشكرك اخى على على اهتمامك 
ولكن التعديل الذى اضفته على الكود  يقوم بازاحة الصفوف الى اسفل مما ادى الى الاخلال بالتنسيق
المطلوب التعديل على الكود بحيث يتم الترحيل البيانات وترك صف خالى مع عدم الاخلال بتنسيق الصفوف
تقبل تحياتي





07-08-2018 08:01 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5039
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14698
الاعجاب : 5483
 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
المشاركات : 41
الجنس : ذكر
تاريخ الميلاد : 14-5-1963
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 80
الاعجاب : 15
 offline 
look/images/icons/i1.gif كود الترحيل بالمصفوفات
اشكرك استاذى الجليل / ياسر خليل 
استاذ الترحيل بالمصفوفات ، نفعنا الله بعلمك وحفظك من كل سوء
كود رائع  واهو المطلوب  والحمد لله
اكرر شكرى وتقديرى لشخصك الكريم

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




07-08-2018 03:41 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5039
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14698
الاعجاب : 5483
 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
المشاركات : 1286
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 3
يتابعهم : 3
يتابعونه : 63
قوة السمعة : 7778
الاعجاب : 2215
 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
المشاركات : 5039
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14698
الاعجاب : 5483
 offline 
look/images/icons/i1.gif كود الترحيل بالمصفوفات
وجزيت خيراً أخي الحبيب إسلام ومشكور على مرورك العطر






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ضبط وتعديل كود البحث فى الكمبوبوكس وكود التعديل هانى على
1 20 هانى على
تعديل على كود جلب البيانات بحيث يستثني الذي لم يكتمل ابوعلي الحبيب
1 14 ابوعلي الحبيب
كتابة كود ayoub2007
4 74 ayoub2007
حصري : لعمل كود التفعيل على برامج الاكسل Spreadsheet Tools LockXLS 2018 6.1.7 بكار للأبد
11 654 عبدالله الصاري
مائة كود VBA جاهز بشكل احترافي بكار للأبد
21 780 Khairi

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


 







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



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

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