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

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




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





تخزين بيانات اكثر من صفحة في مصفوفة VBA

السلام عليكم ورحمة الله الاخوة الافاضل في هذا الصرح الجميل بكل ما تحمل الكلمة من معنى, لدي ملف اكسيل فيه اكثر من 2 ..



31-10-2018 04:37 مساء
حسين مامون
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 30
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
يتابعهم : 5
يتابعونه : 1
قوة السمعة : 37
الاعجاب : 12
 offline 

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


 

الاخوة الافاضل في هذا الصرح الجميل بكل ما تحمل الكلمة من معنى,


 

لدي ملف اكسيل فيه اكثر من 250 صفحة كل صفحة تحمل اسم وبيانات لمنخرط واحد , باستثناء "الرئيسية"


 

وضعت 4 صفحات للتجربة,


 

المطلوب هنا مديول تخزين بيانات الصفحات في مصفوفة


 

المدى (a6:e"&lr"wink_3


 

باستثناء "الرئيسية"


 

اريد تعلم كيفية تخزين بيانات اكثر من صفحة في مصفوفة جزاكم الله خيرا,


 
 
  مصفوفة.rar   تحميل rar مرات التحميل :(9)
الحجم :(12.881) KB







31-10-2018 09:24 مساء
مشاهدة مشاركة منفردة [1]
أحمد يوسف
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-03-2018
رقم العضوية : 4669
المشاركات : 288
الجنس : ذكر
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 370
الاعجاب : 155
 offline 
look/images/icons/i1.gif تخزين بيانات اكثر من صفحة في مصفوفة VBA
وعليكم السلام استاذ حسين انا لا استطيع فهم طلبك بعد اذنك لو سمحت ممكن توضيح بإستفاضة:
هل تقصد ترحيل من الصفحة الرئيسية الى الصفحات الأخرى ؟
ام تقصد ترحيل كل البيانات من جميع الصفحات الى الصفحة الرئيسية ؟
بارك الله فيك

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




31-10-2018 10:16 مساء
مشاهدة مشاركة منفردة [2]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 214
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
يتابعهم : 13
يتابعونه : 8
قوة السمعة : 2236
الاعجاب : 477
 offline 
look/images/icons/i1.gif تخزين بيانات اكثر من صفحة في مصفوفة VBA
هذا مثال عما تريد
الكود

Option Explicit
Sub sheets_to_array()
Dim s%, i%, k%, arr()
Dim sh As Worksheet
Dim My_sheet As Worksheet
Set My_sheet = Sheets("Sheet1")
 For Each sh In Worksheets
   s = s + Application.CountA(sh.Range("a:a"))
  Next
  ReDim arr(1 To s)
  k = 1
 For Each sh In Worksheets
          i = 1
        Do Until sh.Range("a" & i) = vbNullString
          arr(k) = sh.Range("a" & i)
          i = i + 1
          k = k + 1
       Loop
 Next
  My_sheet.Range("c1").Resize(s) = Application.Transpose(arr)
End Sub

الملف مرفق

 
 
 
  Working_with_Array.rar   تحميل rar مرات التحميل :(13)
الحجم :(13.473) KB


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




31-10-2018 10:24 مساء
مشاهدة مشاركة منفردة [3]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 616
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 28
قوة السمعة : 2966
الاعجاب : 952
 offline 
look/images/icons/i1.gif تخزين بيانات اكثر من صفحة في مصفوفة VBA
جزاك الله كل خير عمل رائع بارك الله فيك

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


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


01-11-2018 11:20 صباحا
مشاهدة مشاركة منفردة [4]
حسين مامون
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 30
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
يتابعهم : 5
يتابعونه : 1
قوة السمعة : 37
الاعجاب : 12
 offline 
look/images/icons/i1.gif تخزين بيانات اكثر من صفحة في مصفوفة VBA
استاد احمد يوسف 
شكرا على مرورك
المطلوب اخي هو تخزين بيانات جميع الصفحات في مصفوفة المدى ("a6:e"&lr) ثم ترحيلها الى "الرئيسية"

تحياتي





01-11-2018 11:26 صباحا
مشاهدة مشاركة منفردة [5]
حسين مامون
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 30
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
يتابعهم : 5
يتابعونه : 1
قوة السمعة : 37
الاعجاب : 12
 offline 
look/images/icons/i1.gif تخزين بيانات اكثر من صفحة في مصفوفة VBA
استاد salim 
الف شكر 
عمل رائع ولكن حاولت جاهدا تطبيقه على الملف الذي وضعته في مشاركتي  ولا يعمل معي علما ان المدى المطلوب عندي هو ("a6:e"&lr)
تحياتي





02-11-2018 10:11 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4860
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 324
قوة السمعة : 13970
الاعجاب : 5194
 offline 
look/images/icons/i1.gif تخزين بيانات اكثر من صفحة في مصفوفة VBA
هذا الكود عندي وأعتقد أنه قد ينفعك في الموضوع حيث يقوم بتخزين البيانات في أوراق العمل في مصفوفة واحدة
Sub Test()
    Dim ws          As Worksheet
    Dim temp        As Variant
    Dim arr         As Variant
    Dim f           As Boolean

    For Each ws In ThisWorkbook.Worksheets(Array("Sheet1", "Sheet2"))
        temp = ws.Range("A2:C" & ws.Cells(Rows.Count, 1).End(xlUp).Row).Value
        If f Then
            arr = ArrayJoin(arr, temp)
        Else
            arr = temp
            f = True
        End If
    Next ws

    Sheets("Sheet1").Range("H1").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
End Sub

Function ArrayJoin(ByVal a, ByVal b)
    Dim i           As Long
    Dim ii          As Long
    Dim ub          As Long

    ub = UBound(a, 1)
    a = Application.Transpose(a)
    ReDim Preserve a(1 To UBound(a, 1), 1 To ub + UBound(b, 1))
    a = Application.Transpose(a)

    For i = LBound(b, 1) To UBound(b, 1)
        For ii = 1 To UBound(b, 2)
            a(ub + i, ii) = b(i, ii)
        Next ii
    Next i

    ArrayJoin = a
End Function

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




03-11-2018 02:27 مساء
مشاهدة مشاركة منفردة [7]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 616
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 28
قوة السمعة : 2966
الاعجاب : 952
 offline 
look/images/icons/i1.gif تخزين بيانات اكثر من صفحة في مصفوفة VBA
أحسنت استاذ ياسر كود ممتاز وأعتقد ان هذا هو المطلوب للأستاذ حسين
بارك الله فيك استاذ ياسر وجزاك الله كل خير وجعله الله فى ميزان حسناتك
وحاول استاذنا الكريم متتأخرش علينا كتير بتوحشنا اوى جعلك الله زخرا لنا دائما وبارك الله فى رزقك

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


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


03-11-2018 03:39 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4860
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 324
قوة السمعة : 13970
الاعجاب : 5194
 offline 
look/images/icons/i1.gif تخزين بيانات اكثر من صفحة في مصفوفة VBA
بارك الله فيك أخي العزيز علي ومشكور على كلماتك الطيبة .. غيابي بيكون غصب عني .. أنت تعرف الظروف والعمل والوقت ، وفقني الله وإياك لكل خير

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

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




04-11-2018 11:55 صباحا
مشاهدة مشاركة منفردة [9]
حسين مامون
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 30
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
يتابعهم : 5
يتابعونه : 1
قوة السمعة : 37
الاعجاب : 12
 offline 
look/images/icons/i1.gif تخزين بيانات اكثر من صفحة في مصفوفة VBA
السلام عليكم ورحمة الله
استاد خليل ابوالبراء
ما شاء الله 
هذا ما اريد بالضبط  عمل ممتاز الف الف شكر 
حفظك الله اخي وجزاك الله خيرا 
بس لو سمحت اريد ان اعرف بعد تنفيذ الكود مادا عن الداكرة  هل يحتفظ بها الجهاز ام يمسحها  ان كان يحتفظ بها هل يوجد كود حدف هذا الاخير بعد التنفيذ؟
تحياتي

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




06-11-2018 09:25 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4860
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 324
قوة السمعة : 13970
الاعجاب : 5194
 offline 
look/images/icons/i1.gif تخزين بيانات اكثر من صفحة في مصفوفة VBA
بارك الله فيك أخي الكريم حسين
بعد تنفيذ الكود يتم تحرير الذاكرة من المتغيرات وما تم تخزينه فيها .. إلا إذا كان التعامل مع كائنات برمجية فيمكن التخلص منها بوضع قيمة Nothing لها ...

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




13-11-2018 05:41 مساء
مشاهدة مشاركة منفردة [11]
حسين مامون
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 30
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
يتابعهم : 5
يتابعونه : 1
قوة السمعة : 37
الاعجاب : 12
 offline 
look/images/icons/i1.gif تخزين بيانات اكثر من صفحة في مصفوفة VBA
الف الف شكر لك استاد ياسر
تحياتي

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى emad ghazi
13 302 عمرو على عبدالمنعم
طلب تعديل بيانات في ورقة عمل معينة مختارة من بين اكثر من ورقة عمل باسنخدام كمبوبوك jamal89
2 125 YasserKhalil
جلب بيانات الموظف مع كافة المراحل التي مر بها وكذلك الاختصار بطبع اكثر من فاتورة ام عبدالرحمن
17 444 YasserKhalil
أستدعاء بيانات طبقا لاكثر من فلتر Excelawy
4 383 Excelawy
نقل البيانات من الرئيسية مع إدراج عدد محدد من الصفوف فى نقاط محددة لاكثر من ورقة سعيد بيرم ابوعبدالرحمن
10 411 YasserKhalil

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


 







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



الساعة الآن 06:33 مساء

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