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

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


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



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





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

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



30-08-2019 01:45 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8096
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 427
قوة السمعة : 23528
الاعجاب : 2360
 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
المشاركات : 1383
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 57
قوة السمعة : 6278
الاعجاب : 939
 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
المشاركات : 8096
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 427
قوة السمعة : 23528
الاعجاب : 2360
 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
المشاركات : 682
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 62
يتابعهم : 9
يتابعونه : 578
قوة السمعة : 7252
الاعجاب : 351
 offline 
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
المشاركات : 8096
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 427
قوة السمعة : 23528
الاعجاب : 2360
 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
المشاركات : 114
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 244
الاعجاب : 99
 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
المشاركات : 8096
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 427
قوة السمعة : 23528
الاعجاب : 2360
 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
المشاركات : 32
الجنس : ذكر
تاريخ الميلاد : 15-8-1967
يتابعهم : 11
يتابعونه : 0
قوة السمعة : 66
الاعجاب : 28
 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
المشاركات : 608
الجنس : ذكر
تاريخ الميلاد : 14-5-1965
الدعوات : 1
يتابعهم : 63
يتابعونه : 29
قوة السمعة : 3194
الاعجاب : 239
 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
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 13-4-1966
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 529
الاعجاب : 60
 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
المشاركات : 8096
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 427
قوة السمعة : 23528
الاعجاب : 2360
 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
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 13-4-1966
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 529
الاعجاب : 60
 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
المشاركات : 8096
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 427
قوة السمعة : 23528
الاعجاب : 2360
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق Grab Data From All Sheets In Closed Workbook
بارك الله فيك أخي الكريم محمد
صراحة لا أحبذ التعامل مع الكلام النظري .. قم بطرح موضوع جديد وارفق نماذج من ملفاتك ولكن احرص أن تكون صغيرة الحجم لكي يسهل تجربة الأكواد ، وضع شكل النتائج المتوقعة
وعموماً لو درست الكود ستعرف كيفية فتح الملفات المغلقة والتعامل معها بشكل مباشر بعد فتحها ... هذه هي الفكرة العامة

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
اضافة تعليق او اعتمادات اسفل كل صفحة بها بيانات ashraf_hertlion
7 98 ali mohamed ali
ترحيل البيانات من ملف اكسل الى ملف اخر ياحبيبي يامحمد
0 38 ياحبيبي يامحمد
فورم جاهز لاضافة البيانات والبحث بثلاث طرق مجدى يونس
2 67 مجدى يونس
جلب البيانات الانتخابية للعامل بالرقم القومي باستخدام VBA sameh_lotfy
12 137 sameh_lotfy
السلام عليكم محتاج كود أخفى التكست بوكس فى حالة لو لا تحمل بيانات وإظهار ها فى حالة وجود بيانات بدا emadfawzi
1 36 emadfawzi

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


 







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



الساعة الآن 11:12 مساء

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