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

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


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


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





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

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



20-01-2018 09:22 صباحا
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 778
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
قوة السمعة : 929
الاعجاب : 0
 offline 
ممكن فيديو او مقالة نصية تشرح ترحيل البيانات من صفحة الى صفحة اخرى عن طريق المصفوفات واكون شاكر لكم




20-01-2018 09:33 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1765
الجنس : ذكر
الدعوات : 19
قوة السمعة : 18570
الاعجاب : 74
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif شرح كود ترحيل البيانات بالمصفوفات



توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله


20-01-2018 09:37 صباحا
مشاهدة مشاركة منفردة [2]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 778
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
قوة السمعة : 929
الاعجاب : 0
 offline 
look/images/icons/i1.gif شرح كود ترحيل البيانات بالمصفوفات
انا شفت هاد الفيديو بس ما وصلي الفكرة بشكل سهل 




27-01-2018 05:17 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8649
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25478
الاعجاب : 177
 offline 
look/images/icons/i1.gif شرح كود ترحيل البيانات بالمصفوفات
ارفق ملف مبسط وإن شاء الله نحاول نعمل لك الكود ونشرحه لك .. وحاول تسمع الفيديو أكتر من مرة وطبق الفيديو عشان تثبت المعلومة بالنسبة لك ، ولو الفيديو فيه حاجة مش واضحة يا ريت تسأل فيها ..
تقبل تحياتي




27-01-2018 08:47 مساء
مشاهدة مشاركة منفردة [4]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 778
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
قوة السمعة : 929
الاعجاب : 0
 offline 
look/images/icons/i1.gif شرح كود ترحيل البيانات بالمصفوفات
الله يسعدك استاذ ياسر انتا شخص داعم من الطراز الرفيع 




27-01-2018 09:55 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8649
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25478
الاعجاب : 177
 offline 
look/images/icons/i1.gif شرح كود ترحيل البيانات بالمصفوفات
بارك الله فيك أخي العزيز خالد .. وفي انتظار ملفك الذي تريد العمل عليه وأفضل ملف مبسط لتفهم كيفية عمل الأكواد بشكل أيسر 




27-01-2018 10:23 مساء
مشاهدة مشاركة منفردة [6]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 778
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
قوة السمعة : 929
الاعجاب : 0
 offline 
look/images/icons/i1.gif شرح كود ترحيل البيانات بالمصفوفات
ان شاء الله غدا سوف ارفع الملف




27-01-2018 10:34 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8649
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25478
الاعجاب : 177
 offline 
look/images/icons/i1.gif شرح كود ترحيل البيانات بالمصفوفات
وإن شاء الله إذا لم أسافر في الغد سأحاول تقديم المساعدة بقدر الإمكان
تقبل تحياتي




28-01-2018 08:22 صباحا
مشاهدة مشاركة منفردة [8]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 778
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
قوة السمعة : 929
الاعجاب : 0
 offline 
look/images/icons/i1.gif شرح كود ترحيل البيانات بالمصفوفات
انتا ما بتقصر 
بالسلامة يا رب واتمنى انها تكون رحلة سعيدة ومريحة لك




28-01-2018 12:57 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8649
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25478
الاعجاب : 177
 offline 
look/images/icons/i1.gif شرح كود ترحيل البيانات بالمصفوفات
تم تأجيل السفر للغد إن شاء الله ..إذا أمكنك يمكن أن ترفق الملف اليوم ، والله المستعان




28-01-2018 07:45 مساء
مشاهدة مشاركة منفردة [10]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 778
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
قوة السمعة : 929
الاعجاب : 0
 offline 
look/images/icons/i1.gif شرح كود ترحيل البيانات بالمصفوفات
 
 
  ترحيل بالمصفوفات.rar   تحميل rar مرات التحميل :(15)
الحجم :(7.659) KB





28-01-2018 11:03 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8649
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25478
الاعجاب : 177
 offline 
look/images/icons/i1.gif شرح كود ترحيل البيانات بالمصفوفات
السلام عليكم
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Transfer_To_Other_Sheets_By_Date_Sheet_Name_Using_Arrays()
    Dim ws          As Worksheet
    Dim sh          As Worksheet
    Dim a           As Variant
    Dim b           As Variant
    Dim n           As Variant
    Dim y           As Variant
    Dim i           As Long
    Dim j           As Long
    Dim m           As Long
    Dim k           As Long

    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets("Sheet1")
        a = ws.Range("A1").CurrentRegion.Value
        ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2))
    
        For Each sh In ThisWorkbook.Worksheets
            k = 0
            If sh.Name <> ws.Name Then
                m = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1
                n = Val(Split(sh.Name, "-")(0))
                y = Val(Split(sh.Name, "-")(1))
                
                For i = 2 To UBound(a, 1)
                    If IsDate(a(i, 1)) Then
                        If Month(a(i, 1)) = n And Year(a(i, 1)) = y Then
                            k = k + 1
                            For j = LBound(a, 2) To UBound(a, 2)
                                b(k, j) = a(i, j)
                            Next j
                        End If
                    End If
                Next i
    
                If k > 1 Then sh.Range("A" & m).Resize(k, UBound(b, 2)).Value = b
            End If
        Next sh
    Application.ScreenUpdating = True

    MsgBox "Done...", 64
End Sub






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تعديل على كود الترحيل واستدعاء بيانات من شيت لاخر وعمل قائمة منسدله ابو طيبه
14 507 ابو طيبه
المطلوب ترحيل من شيت الى اخر بموجب قيمة خلية رمزي المسقف
4 129 YasserKhalil
الترحيل وفقا لتاريخ اليوم أبو سجده
7 211 YasserKhalil
مساعدة في تعديل كود ترحيل بيانات moazshawar
1 70 moazshawar
تنبيه عند المسح بأنه لم يتم الترحيل الساحر NeT
1 70 الساحر NeT

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


 







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

الساعة الآن 12:15 صباحا

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