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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


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



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





جلب بيانات من جميع أوراق مصنف مغلق Grab Data From All Sheets In Closed Workbook

السلام عليكم ورحمة الله وبركاته أقدم لكم كود يقوم بجلب واستدعاء بيانات من جميع أوراق العمل في مصنف مغلق. بفرض أن لديك ..



30-08-2019 01:45 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20923
الاعجاب : 1485
 offline 

السلام عليكم ورحمة الله وبركاته

أقدم لكم كود يقوم بجلب واستدعاء بيانات من جميع أوراق العمل في مصنف مغلق.

بفرض أن لديك مجموعة مصنفات مغلقة وتمت تسميتها بالسنوات أي مصنف باسم 2013 ومصنف باسم 2014 وهكذا ..

وفي كل مصنف من هذه المصنفات يوجد عدد 12 ورقة عمل بشهور السنة (يناير - فبراير - مارس - وهكذا ...)
وفي كل ورقة عمل يوجد خلايا محددة تريد جلبها للمصنف الحالي في ورقة العمل Sheet1
dhLmZ_001

والمطلوب جلب بيانات هذه الخلايا الثلاثة الموجودة في كل ورقة عمل في المصنف المغلق إلى ورقة العمل Sheet1 بهذا الشكل
D6AfY_002

وذلك بالاعتماد على قيمة الخلية B3 التي تحتوي على اسم المصنف المغلق المراد جلب البيانات منه

كل ما عليك فعله هو أن تقوم بكتابة أو ختيار اسم المصنف من الخلية B3 ثم النقر على زر الأمر RUN (مع العلم أنه يمكن تفعيل الكود بمجرد التغير في قيمة الخلية) ، فيقوم الكود بفحص مسار المصنف للتأكد من وجود المصنف من عدمه ، فإذا لم يكن المصنف موجود يتم إظهار رسالة تفيد بذلك ، أما إذا كان المصنف موجود فيتم فتح المصنف المغلق ويتم عمل حلقة تكرارية لكل أوراق العمل لتخزين قيم الخلايا المطلوب استدعائها ثم يغلق المصنف وأخيراً توضع قيم المصفوفة في النطاق B6:M8

إليكم الكود المستخدم لتنفيذ المهمة ، ويوضع الكود في موديول عادي
Sub Grab_Data_From_Closed_Workbook()
    Dim strFileName     As String
    Dim arr             As Variant
    Dim temp            As Variant
    Dim sh              As Worksheet
    Dim counter         As Integer
    Dim i               As Integer

    strFileName = ThisWorkbook.Path & "" & Sheet1.Range("B3").Value & ".xls"

    Application.ScreenUpdating = False
        Sheets("Sheet1").Range("B6:M8").ClearContents
        
        If Len(Dir(strFileName)) > 0 Then
            Workbooks.OpenText Filename:=strFileName
    
            ReDim temp(1 To 12, 1 To 3)
    
            For Each sh In ActiveWorkbook.Worksheets
                With sh
                    counter = counter + 1
                    arr = Array(.Range("C6").Value, .Range("E6").Value, .Range("G6").Value)
                    i = i + 1
                    For counter = 1 To 3
                        temp(i, counter) = arr(counter - 1)
                    Next counter
                End With
            Next sh
            
            ActiveWorkbook.Close False
            
            Sheets("Sheet1").Range("B6").Resize(UBound(temp, 2), UBound(temp, 1)).Value = Application.Transpose(temp)
        Else
            MsgBox strFileName & " Can't Be Found!", vbExclamation, "File Not Found"
        End If
    Application.ScreenUpdating = True
End Sub



لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

إعداد وتقديم / ياسر خليل أبو البراء
 
 


أثارت هذه المشاركة إعجاب: ali mohamed ali، محمد الدسوقى، hassona229، محمد حسن المحمد، محمد أبو عبدو، صلاح الصغير، كريم نظيم، حسن علي،





30-08-2019 02:05 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1212
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 52
قوة السمعة : 5719
الاعجاب : 716
 Online 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق Grab Data From All Sheets In Closed Workbook
الله عليك استاذ ياسر موضوعات مهمة جدا جزاك الله كل خير

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


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


30-08-2019 02:24 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20923
الاعجاب : 1485
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق Grab Data From All Sheets In Closed Workbook
وجزيت خيراً بمثل ما دعوت لي أخي الحبيب علي





30-08-2019 02:25 مساء
مشاهدة مشاركة منفردة [3]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 639
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 55
يتابعهم : 9
يتابعونه : 534
قوة السمعة : 6873
الاعجاب : 246
 Online 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق Grab Data From All Sheets In Closed Workbook
اللهم أنعم عليك برجاحة العقل
ورحمة القلب وعطاء الكريم المعطاء

3dlat.com_02_18_73d9_8f60678a63db4
 

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




30-08-2019 02:27 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20923
الاعجاب : 1485
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق Grab Data From All Sheets In Closed Workbook
تسلم أخي الغالي محمد الدسوقي ومشكور على دعائك الطيب ومرورك المشرف

أثارت هذه المشاركة إعجاب: محمد الدسوقى،




03-09-2019 08:50 مساء
مشاهدة مشاركة منفردة [5]
hassona229
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 69
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 112
الاعجاب : 45
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق Grab Data From All Sheets In Closed Workbook
جزاكم الله خيرا اخى الكريم

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




03-09-2019 09:17 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20923
الاعجاب : 1485
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق Grab Data From All Sheets In Closed Workbook
وجزيت خيراً أخي العزيز حسونة ومشكور على مرورك العطر

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




03-09-2019 11:49 مساء
مشاهدة مشاركة منفردة [7]
sobhi67
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-05-2019
رقم العضوية : 13123
المشاركات : 28
الجنس : ذكر
تاريخ الميلاد : 15-8-1967
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 56
الاعجاب : 23
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق Grab Data From All Sheets In Closed Workbook
MjA2ODkzMQ7676%D8%AC%D8%B2%D8%A7%D9%83%20%D8%A7%D9%84%D9%84%D9%87%20%D8%AE%D9%8A%D8%B1%D8%A7%D8%A7%D8%A7
 
  جزاك الله خيرااا.jpg   تحميل jpg جزاك الله خيرااا.jpg مرات التحميل :(0)
الحجم :(10.745) KB
 


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




04-09-2019 06:09 صباحا
مشاهدة مشاركة منفردة [8]
محمد حسن المحمد
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 598
الجنس : ذكر
تاريخ الميلاد : 14-5-1965
الدعوات : 1
يتابعهم : 63
يتابعونه : 29
قوة السمعة : 3134
الاعجاب : 220
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق Grab Data From All Sheets In Closed Workbook
10635-10
2015_1418710703_134

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


توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء



04-09-2019 06:35 صباحا
مشاهدة مشاركة منفردة [9]
محمد أبو عبدو
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 247
المشاركات : 166
الجنس : ذكر
تاريخ الميلاد : 13-4-1966
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 489
الاعجاب : 40
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق Grab Data From All Sheets In Closed Workbook
بارك الله فيك أستاذي الفاضل وجزاك الله خير الجزاء.


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




04-09-2019 06:40 صباحا
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20923
الاعجاب : 1485
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق Grab Data From All Sheets In Closed Workbook
وجزيت خيراً أخي الكريم صبحي
سلمت من كل سوء وحفظك الله أخي الحبيب أبو يوسف
بارك الله فيك أخي العزيز محمد أبو عبدو

تقبلوا تحياتي

أثارت هذه المشاركة إعجاب: محمد حسن المحمد، محمد أبو عبدو،




04-09-2019 02:33 مساء
مشاهدة مشاركة منفردة [11]
محمد أبو عبدو
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 247
المشاركات : 166
الجنس : ذكر
تاريخ الميلاد : 13-4-1966
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 489
الاعجاب : 40
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق Grab Data From All Sheets In Closed Workbook
أستاذي الفاضل لو كنا بصدد إنجاز تقرير ثلاثي، بحيث أن نموذج جدول التقرير الشهري هو نفس نموذج التقرير الثلاثي، و إذا أردنا جلب واستدعاء المعطيات من الجداول الشهرية وجمعها في الجدول الثلاثي ما هو التعديل الذي يجب القيام به في هذا الكود؟ مع العلم أن كل تقرير شهري في ملف مستقل عن الآخر، وهذا نظرا لحجم الجداول.
وجزاك الله عني خير الجزاء.

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




04-09-2019 02:57 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20923
الاعجاب : 1485
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق Grab Data From All Sheets In Closed Workbook
بارك الله فيك أخي الكريم محمد
صراحة لا أحبذ التعامل مع الكلام النظري .. قم بطرح موضوع جديد وارفق نماذج من ملفاتك ولكن احرص أن تكون صغيرة الحجم لكي يسهل تجربة الأكواد ، وضع شكل النتائج المتوقعة
وعموماً لو درست الكود ستعرف كيفية فتح الملفات المغلقة والتعامل معها بشكل مباشر بعد فتحها ... هذه هي الفكرة العامة

أثارت هذه المشاركة إعجاب: محمد أبو عبدو،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب الوصول الى اسرع طريقه لاستخراج البيانات EM_ACC
1 19 EM_ACC
فورم ادراج بيانات وصور مجدى يونس
3 35 مجدى يونس
ترحيل بيانات من ورقة عمل لورقة عمل أخرى (سلسلة تعليمية) Transfer Data From Worksheet To Another YasserKhalil
39 1634 YasserKhalil
تعبئة الكومبوبكس ببيانات فريدة (غير مكررة) Fill ComboBox With Unique Items YasserKhalil
16 505 YasserKhalil
اريد برنامج قابل للتعديل يعتبر مثل قاعدة البيانات للموظفين لدي في الشركة عبد الله السعيد
6 80 ابراهيم الحداد

الكلمات الدلالية
Workbook ، Closed ، Sheets ، From ، Data ، Grab ، مغلق ، مصنف ، أوراق ، جميع ، بيانات ،


 







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



الساعة الآن 09:49 مساء

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