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

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


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



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





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

الاخوه الافاضل لدى هذا الكود Sub LOOP_FOR_NEXT1() Dim i As Long Dim T As Single T = Timer For i = 2 To 300000 If ..



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

الاخوه الافاضل
لدى هذا الكود
 
Sub LOOP_FOR_NEXT1()
Dim i As Long
Dim T As Single
T = Timer
 
For i = 2 To 300000
If Cells(i, 3) = "A" Then
Cells(i, 5) = 1
End If
Next
MsgBox Timer - T
End Sub

واريد ان استبدله
بالمصفوفات
فعملته بالشكل ده
Sub LOOP_FOR_ARRAY1()
Dim arr(1 To 300000, 1 To 3)
Dim i As Long
Dim T As Single
T = Timer
For i = 2 To UBound(arr, 1)
If Cells(i, 3) = "A" Then
Cells(i, 5) = 1
'Else
'Cells(i + 1, 5) = 2
End If
Next
 'Range("B2").Resize(UBound(arr, 1)) = arr
MsgBox Timer - T
 
End Sub

ولكن لقيته بياخد نفس الوقت

فمكن طريقة تحويل الكود ليعمل بالمصفوفات
تحياتى
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  Book1.rar   تحميل rar مرات التحميل :(7)
الحجم :(1404.314) KB


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


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



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

أنت لم تخزن النطاق في مصفوفة لذا الكود يستغرق وقتاً طويلاً

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

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




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

Range("A1").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr

الى

Range("E1").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr

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

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


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


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

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

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





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

الكلمات الدلالية
تحويل ، الكود ، الحلقه ، التكراريه ، array ،


 







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



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

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