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

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


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





هل يوجد حل لتسرع عمل هذا الكود

السلام عليكم وكل عام وحضرتكم بخير --مرفق شيك اكسل وهو كشف حساب للمورد وكان ناجح معايا باستخدام المعاددلات ولكن بسبب كثر ..



15-09-2022 12:19 مساء
محمد رجب الفارس
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 04-06-2022
رقم العضوية : 24345
المشاركات : 7
الجنس : ذكر
تاريخ الميلاد : 1-1-1986
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 10
 offline 

 السلام عليكم وكل عام وحضرتكم بخير --مرفق شيك اكسل وهو كشف حساب للمورد وكان ناجح معايا باستخدام المعاددلات ولكن بسبب كثرة عدد الموردين وكثرة البيانات لمدة تجاوزت 5 سنوات من البيانات اصبح ثقيل وضخم فى الحجم فقررت الاستغاناء عن المعادلات واستبدالها بالاكواد  وهذا هو الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim d As Variant
Dim f As Variant
Dim e As Integer
e = d + f
For d = 4 To 99
For f = 100 To 1000 Step 100
Cells(d, 1).Value = Val(Cells(d, 3).Value - Cells(d, 2).Value + Cells(d - 1, 1).Value)
Cells(d, 12).Value = Val(Cells(d, 11).Value * Cells(d, 10).Value)
Cells(d, 14).Value = Val(Cells(d, 13).Value * Cells(d, 10).Value)
Cells(d, 10).Value = Val(Cells(d, 9).Value * Cells(d, 8).Value)
Cells(d + f - 3, 1).Value = Val(Cells(d + f - 3, 3).Value - Cells(d + f - 3, 2).Value + Cells(d + f - 4, 1).Value)
Cells(d + f - 3, 12).Value = Val(Cells(d + f - 3, 11).Value * Cells(d + f - 3, 10).Value)
Cells(d + f - 3, 14).Value = Val(Cells(d + f - 3, 13).Value * Cells(d + f - 3, 10).Value)
Cells(d + f - 3, 10).Value = Val(Cells(d + f - 3, 9).Value * Cells(d + f - 3, 8).Value)
Next
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub


الكود يعمل وعطى نتائج ولكن بطيئ فهل من حل لتسريعه وشكرا
 
 
  نموذج.xlsb   تحميل xlsb مرات التحميل :(1)
الحجم :(147.939) KB


16-09-2022 10:19 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif هل يوجد حل لتسرع عمل هذا الكود
وعليكم السلام
ادرس الكود التالي وحاول الاستفادة منه 

Sub Test_UseSpeeedyCode_UDF()
    Dim r As Long
    UseSpeedyCode True
        For r = 1 To 10000
            Cells(r, 1).Value = r * 2
        Next r
    UseSpeedyCode False
End Sub

Public Function UseSpeedyCode(goFast As Boolean)
    With Application
        .ScreenUpdating = Not goFast
        .EnableEvents = Not goFast
        If goFast Then .Calculation = xlManual Else .Calculation = xlAutomatic
    End With
End Function


الدالة المعرفة ستعمل على سرعة الكود 

17-09-2022 11:18 صباحا
مشاهدة مشاركة منفردة [2]
محمد رجب الفارس
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 04-06-2022
رقم العضوية : 24345
المشاركات : 7
الجنس : ذكر
تاريخ الميلاد : 1-1-1986
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 10
 offline 
look/images/icons/i1.gif هل يوجد حل لتسرع عمل هذا الكود
شكرا       ا/ YasserKhalil لرد حضرتك 
ممكن بعد اذنك شرح للكود لانى مبتدئ فى لغة الفيجول بيسك  

17-09-2022 05:39 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif هل يوجد حل لتسرع عمل هذا الكود
الكود لا يحتاج لشرح
كل ما في الأمر أن الكود يقوم بإبطال بعض المزايا التي تساهم في تسريع الكود وفي نهاية الكود يتم إرجاع قيم هذه المزايا كما كانت قبل تنفيذ الكود مثل خاصية اهتزاز الشاشة




الكلمات الدلالية
يوجد ، لتسرع ، الكود ،


 










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

الساعة الآن 04:37 مساء