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

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


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



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





2-طلب تحويل الكود من الحلقه التكراريه for الى array

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



09-10-2019 06:11 مساء
EM_ACC
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 153
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 4
يتابعونه : 3
قوة السمعة : 196
الاعجاب : 41
 offline 

الاخوه الافاضل
لدى كود يقوم باستخراج بيانات
بشكل راسى
عن طريق الحلقات التكراريه
اريد استبداله ب المصفوفات
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  استخراج.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(17.64) KB




توقيع :EM_ACC
إبراهيم أبوليله



09-10-2019 06:54 مساء
مشاهدة مشاركة منفردة [1]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 409
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3285
الاعجاب : 237
 offline 
look/images/icons/i1.gif 2-طلب تحويل الكود من الحلقه التكراريه for الى array
جرب هذا الماكرو   ولا لزوم لأي مصفوفة او حلقة تكرارية

Sub test()
Dim lrB%
Dim RG_B As Range

Range("G2", Range("F1").End(4)).ClearContents
lrB = Cells(Rows.Count, "B").End(3).Row
Set RG_B = Range("B3:B" & lrB).SpecialCells(2, 23)
    With RG_B
    .Copy Range("G2")
    .Offset(, -1).Copy Range("F2")
    End With
End Sub

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




09-10-2019 07:04 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 offline 
look/images/icons/i1.gif 2-طلب تحويل الكود من الحلقه التكراريه for الى array
أحسنت يا جدو .. بارك الله فيك وجزاك الله خيراً
مبدع دائماً وأبداً

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




09-10-2019 10:04 مساء
مشاهدة مشاركة منفردة [3]
سعد عابد
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 74
الجنس : ذكر
تاريخ الميلاد : 17-1-1968
يتابعهم : 4
يتابعونه : 1
قوة السمعة : 90
الاعجاب : 11
 offline 
look/images/icons/i1.gif 2-طلب تحويل الكود من الحلقه التكراريه for الى array
اخى سليم
انت مبدع فى صنع الاكواد
لكن الكود ياتى بالعمود الاول والثانى فقط
وفقكم الله

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




09-10-2019 10:08 مساء
مشاهدة مشاركة منفردة [4]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 409
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3285
الاعجاب : 237
 offline 
look/images/icons/i1.gif 2-طلب تحويل الكود من الحلقه التكراريه for الى array
المشاركة الأصلية كتبت بواسطة: سعد عابد
اخى سليم
انت مبدع فى صنع الاكواد
لكن الكود ياتى بالعمود الاول والثانى فقط
وفقكم الله

ما هو ده كان طلب السائل

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




10-10-2019 06:46 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 offline 
look/images/icons/i1.gif 2-طلب تحويل الكود من الحلقه التكراريه for الى array
لا أعتقد يا جدو إن هو دا المطلوب ..

عموماً لإثراء الموضوع بحلول أخرى إليكم الكود التالي

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





10-10-2019 10:12 صباحا
مشاهدة مشاركة منفردة [6]
EM_ACC
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 153
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 4
يتابعونه : 3
قوة السمعة : 196
الاعجاب : 41
 offline 
look/images/icons/i1.gif 2-طلب تحويل الكود من الحلقه التكراريه for الى array
المشاركة الأصلية كتبت بواسطة: salim
جرب هذا الماكرو   ولا لزوم لأي مصفوفة او حلقة تكرارية

Sub test()
Dim lrB%
Dim RG_B As Range

Range("G2", Range("F1").End(4)).ClearContents
lrB = Cells(Rows.Count, "B").End(3).Row
Set RG_B = Range("B3:B" & lrB).SpecialCells(2, 23)
    With RG_B
    .Copy Range("G2")
    .Offset(, -1).Copy Range("F2")
    End With
End Sub


الاخ سليم
الكود طبعا جميل جدا
بارك الله فيك
ومشكورا على المحاوله
لكن
ارجو مراجعة الطلب جيدا
فالكود ياتى بالعمود الاول والثانى فقط
يرجعى مراجع شكل النتائج
 فى المرفق
تقبل تحياتى

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


توقيع :EM_ACC
إبراهيم أبوليله


10-10-2019 10:42 صباحا
مشاهدة مشاركة منفردة [7]
EM_ACC
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 153
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 4
يتابعونه : 3
قوة السمعة : 196
الاعجاب : 41
 offline 
look/images/icons/i1.gif 2-طلب تحويل الكود من الحلقه التكراريه for الى array
المشاركة الأصلية كتبت بواسطة: YasserKhalil
لا أعتقد يا جدو إن هو دا المطلوب ..

عموماً لإثراء الموضوع بحلول أخرى إليكم الكود التالي

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


اخى الحبيب ياسر
ايه الكلام الكبير ده
كود جميل جدا
 ياريت تشرح الكود
للاستفاده
تقبل تحياتى

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


توقيع :EM_ACC
إبراهيم أبوليله


10-10-2019 01:35 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 offline 
look/images/icons/i1.gif 2-طلب تحويل الكود من الحلقه التكراريه for الى array
بارك الله فيك أخي العزيز إابرهيم 
حاول دراسة الأكواد بالتتبع .. لو شاهدت بعض الفيديوهات ستجدني أتعمد استخدام مفتاح F8 لمتابعة تنفيذ الكود ، وهذه من أفضل الطرق للتعلم
لديك الكود ولديك مفتاح F8 في لوحة المفاتيح .. إذاً ليس لديك عذر
وإذا تعثرت في فهم سطر معين أو جزئية معينة أخبرنا وسنحاول تيسيرها عليك إن شاء العلي القدير

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




10-10-2019 01:51 مساء
مشاهدة مشاركة منفردة [9]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 409
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3285
الاعجاب : 237
 offline 
look/images/icons/i1.gif 2-طلب تحويل الكود من الحلقه التكراريه for الى array
انا قمت بوضع الكود بناءَ على ما ورد في الملف تحت عبارة "شكل النتائج" حيث كان فقط عامودين من النتائج (اذاً ليس الذنب ذنبي)
للتصحيح   هذا الكود

Sub test_new()
Dim lrB%
Dim RG_B As Range, my_rg

Range("F2").Resize(50, 4).ClearContents
lrB = Cells(Rows.Count, "B").End(3).Row
Set RG_B = Range("B3:B" & lrB).SpecialCells(2, 23)
Set my_rg = _
Union(RG_B.Offset(, -1), RG_B, _
RG_B.Offset(, 1), RG_B.Offset(, 2))

my_rg.Copy Range("F2")
 
End Sub



 

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




10-10-2019 03:12 مساء
مشاهدة مشاركة منفردة [10]
EM_ACC
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 153
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 4
يتابعونه : 3
قوة السمعة : 196
الاعجاب : 41
 offline 
look/images/icons/i1.gif 2-طلب تحويل الكود من الحلقه التكراريه for الى array
اخى الفاضل ياسر
مشكور على الاهتمام والمساعده
  ولكنى اريد اضافة عمود استخراج اخر
كما ف المرفق
تقبل تحياتى
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  استخراج.rar   تحميل rar مرات التحميل :(7)
الحجم :(19.006) KB


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


توقيع :EM_ACC
إبراهيم أبوليله


10-10-2019 04:28 مساء
مشاهدة مشاركة منفردة [11]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 409
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3285
الاعجاب : 237
 offline 
look/images/icons/i1.gif 2-طلب تحويل الكود من الحلقه التكراريه for الى array
ممكن ان ينفع هذا الكود

Sub MY_Code()
Dim lrA%, M%: M = 2
Dim RG_B As Range, my_rg
Dim RG_C As Range
Dim RG_D As Range
Dim RB, RC, RD
Range("F2").CurrentRegion.Offset(1).Clear
lrA = Cells(Rows.Count, 1).End(3).Row
 Set RG_B = Range("B3:B" & lrA).SpecialCells(2, 23)
 Set RG_C = Range("C3:C" & lrA).SpecialCells(2, 23)
 Set RG_D = Range("D3:d" & lrA).SpecialCells(2, 23)
 RB = RG_B.Cells.Count: RC = RG_C.Cells.Count: RD = RG_D.Cells.Count
  With RG_B
   .Copy Cells(M, "G")
   .Offset(, -1).Copy Cells(M, "F")
   Cells(M, "H").Resize(RB) = "A"
  End With
   M = M + RB
  '======================
   With RG_C
   .Copy Cells(M, "G")
   .Offset(, -2).Copy Cells(M, "F")
    Cells(M, "H").Resize(RC) = "B"
  End With
   M = M + RC
   
  '====================
  With RG_D
   .Copy Cells(M, "G")
   .Offset(, -3).Copy Cells(M, "F")
    Cells(M, "H").Resize(RD) = "C"
  End With
 M = M + RD
 Range("f2").Resize(M - 2, 3).Borders.LineStyle = 1
End Sub


الملف مرفق
 
 
  Extract.rar   تحميل rar مرات التحميل :(2)
الحجم :(29.073) KB


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




10-10-2019 10:31 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 offline 
look/images/icons/i1.gif 2-طلب تحويل الكود من الحلقه التكراريه for الى array
بارك الله فيك أخي الحبيب سليم وجزيت خيراً

أخي العزيز إبراهيم
يرجى عدم تجاهل أي رد بالموضوع ..!!

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب تحويل الكود من الحلقه التكراريه for الى array EM_ACC
3 48 YasserKhalil
كيفية تحويل الكود بشكل ديناميكي؟ alzubari
2 463 alzubari

الكلمات الدلالية
2-طلب ، تحويل ، الكود ، الحلقه ، التكراريه ، array ،


 







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



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

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