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

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


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


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

Preview




طلب تحويل الكود من الحلقه التكراريه 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
المشاركات : 176
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 4
يتابعونه : 3
قوة السمعة : 222
الاعجاب : 1
 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 مرات التحميل :(8)
الحجم :(1404.314) KB




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

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

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

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




09-10-2019 11:11 صباحا
مشاهدة مشاركة منفردة [2]
EM_ACC
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 176
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 4
يتابعونه : 3
قوة السمعة : 222
الاعجاب : 1
 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

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



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

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

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






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

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


 








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

الساعة الآن 05:07 صباحا

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