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

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


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


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





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

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



30-08-2019 01:45 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8664
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25522
الاعجاب : 193
 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



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

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





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



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

30-08-2019 02:24 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8664
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25522
الاعجاب : 193
 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
المشاركات : 733
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 69
قوة السمعة : 7713
الاعجاب : 31
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق Grab Data From All Sheets In Closed Workbook
اللهم أنعم عليك برجاحة العقل
ورحمة القلب وعطاء الكريم المعطاء

3dlat.com_02_18_73d9_8f60678a63db4
 




30-08-2019 02:27 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8664
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25522
الاعجاب : 193
 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
المشاركات : 211
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
مشاركات مكتبة الميديا: 2
قوة السمعة : 511
الاعجاب : 67
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق Grab Data From All Sheets In Closed Workbook
جزاكم الله خيرا اخى الكريم




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




03-09-2019 11:49 مساء
مشاهدة مشاركة منفردة [7]
sobhi67
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-05-2019
رقم العضوية : 13123
المشاركات : 36
الجنس : ذكر
تاريخ الميلاد : 15-8-1967
قوة السمعة : 76
الاعجاب : 0
 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
 





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



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

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


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





04-09-2019 06:40 صباحا
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8664
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25522
الاعجاب : 193
 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
المشاركات : 184
الجنس : ذكر
تاريخ الميلاد : 13-4-1966
قوة السمعة : 537
الاعجاب : 2
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق Grab Data From All Sheets In Closed Workbook
أستاذي الفاضل لو كنا بصدد إنجاز تقرير ثلاثي، بحيث أن نموذج جدول التقرير الشهري هو نفس نموذج التقرير الثلاثي، و إذا أردنا جلب واستدعاء المعطيات من الجداول الشهرية وجمعها في الجدول الثلاثي ما هو التعديل الذي يجب القيام به في هذا الكود؟ مع العلم أن كل تقرير شهري في ملف مستقل عن الآخر، وهذا نظرا لحجم الجداول.
وجزاك الله عني خير الجزاء.




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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ترتيب البيانات في مصفوفة أحادية Sort Data In 1D Array Using QuickSort Procedure YasserKhalil
5 964 YasserKhalil
استدعاء بيانات الطلاب لفصل معين لمادة معينة (درس للمستوى المتقدم) YasserKhalil
19 2420 YasserKhalil
تعديل على كود الترحيل واستدعاء بيانات من شيت لاخر وعمل قائمة منسدله ابو طيبه
14 550 ابو طيبه
جلب تقرير بيانات الطلاب الذين سددوا المصروفات الدراسية أبو سجده
6 327 YasserKhalil
تعديل وتطابق اظهار البيانات بالليست بوكس كورقة الإكسيل المبتدأ
7 166 المبتدأ

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


 







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

الساعة الآن 01:18 مساء

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