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

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


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





كتابة المعادلات بطريقة vba Application

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


موضوع مغلق


09-05-2021 12:43 مساء
احمد شريف
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-10-2019
رقم العضوية : 15301
المشاركات : 85
الجنس : ذكر
تاريخ الميلاد : 5-2-1973
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 105
 offline 

السلام عليكم الاستاذة الأفاضل كل عام وحضراتكم بخير
لدى ملف نجحت فى كتابة بعض معادلاتة بصيغة Application والاخر بالطريقة المعتادة لكن اريد التعلم كيفية كتابته ب Application بحيث تظهر القيم وليس الصيغ
 
1- IF(AND(ISNUMBER(I7),ISNUMBER(K7)),G7,"")
2- IF(AND(ISNUMBER(I7),ISNUMBER(K7),I7>K7),G7,"")
3- SUMPRODUCT(($BN$7:$BN$23=CA9)*($BP$7:$BP$23))+SUMPRODUCT(($BQ$7:$BQ$23=CA9)*($BO$7:$BO$23))
4- IF(D7="","",TEXT(D7,"dddd"))
لقد حاولت عدة مرات كثيرة جدا فى كتابة هذه المعادلات على طريقة application لكنى لم انجح
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  zamleag.xlsm   تحميل xlsm مرات التحميل :(9)
الحجم :(53.664) KB



أفضل إجابة مقدمة من salim وهي:
من اجل الـــ SUMPRODUCT هذا الكود

Option Explicit

Sub From_SUMPRODUCT_To_Vba()
Dim My_formula$, i As Byte, arr()

My_formula = "=SUMPRODUCT(($BN$7:$BN$23=My_Cel)*($BP$7:$BP$23))+"
My_formula = My_formula & "(($BQ$7:$BQ$23=My_Cel)*($BO$7:$BO$23))"
arr = Array("CA9", "CA13", "CA17")
  
  For i = LBound(arr) To UBound(arr)
      With Sheets("Sheet1").Range("CC9").Offset(4 * i)
        .Formula = _
          Replace(My_formula, "My_Cel", arr(i))
       .Value = .Value
      End With
  Next i

End Sub
عرض الإجابة




09-05-2021 01:53 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif كتابة المعادلات بطريقة vba Application
البداية فقط لاول نطاقين  من  AE7 الى  AE25
ثم تتابع الى باقي النطاقات كل نطاق حسب المعادلة المناسبة

Sub From_Tornula_To_Vba()
Const Ro = 23
With Sheets("Sheet1")
    .Range("AE7:AE" & Ro).Formula = _
    "=IF(AND(ISNUMBER(I7),ISNUMBER(K7)),G7,"""")"
    .Range("AF7:AF" & Ro).Formula = _
    "=IF(AND(ISNUMBER(I7),ISNUMBER(K7)),M7,"""")"
    .Range("AE7:AF" & Ro).Value = _
    .Range("AE7:AF" & Ro).Value
End With
 ''''''وهكذا الى نهاية النطاق
End Sub


09-05-2021 05:51 مساء
مشاهدة مشاركة منفردة [2]
احمد شريف
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-10-2019
رقم العضوية : 15301
المشاركات : 85
الجنس : ذكر
تاريخ الميلاد : 5-2-1973
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 105
 offline 
look/images/icons/i1.gif كتابة المعادلات بطريقة vba Application
استاذ سليم .. كل سنة وحضرتك بخير اشكرك حضرتك جدا على هذه الاجابة الوافية والرائعة  لقد كانت لى بمثابة عقدة مستعصية جزاك الله كل خير ارجو من سيادتك ان تساعدنى فى الجزء الخاص المتعلق ب
SUMPRODUCT(($BN$7:$BN$23=CA9)*($BP$7:$BP$23))+SUMPRODUCT(($BQ$7:$BQ$23=CA9)*($BO$7:$BO$23))
حيث لم يتبقى لى سوى هذا الجزء وشكرا لحضرتك مرة اخرى
 
SUMPRODUCT(($BN$7:$BN$23=CA9)*($BP$7:$BP$23))+SUMPRODUCT(($BQ$7:$BQ$23=CA9)*($BO$7:$BO$23))
 

10-05-2021 06:43 صباحا
مشاهدة مشاركة منفردة [3]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif كتابة المعادلات بطريقة vba Application
من اجل الـــ SUMPRODUCT هذا الكود

Option Explicit

Sub From_SUMPRODUCT_To_Vba()
Dim My_formula$, i As Byte, arr()

My_formula = "=SUMPRODUCT(($BN$7:$BN$23=My_Cel)*($BP$7:$BP$23))+"
My_formula = My_formula & "(($BQ$7:$BQ$23=My_Cel)*($BO$7:$BO$23))"
arr = Array("CA9", "CA13", "CA17")
  
  For i = LBound(arr) To UBound(arr)
      With Sheets("Sheet1").Range("CC9").Offset(4 * i)
        .Formula = _
          Replace(My_formula, "My_Cel", arr(i))
       .Value = .Value
      End With
  Next i

End Sub



الكلمات الدلالية
كتابة ، المعادلات ، بطريقة ، Application ،


 










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

الساعة الآن 02:28 صباحا