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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


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



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





عد الخلايا التي تحتوي على معادلات Count Cells Containing Fromulas

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله .. في وجهة نظري أي البحث هو أمر أساسي وجوهري في عملية التعلم ، ..



30-11-2017 10:17 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 

السلام عليكم ورحمة الله وبركاته

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

موضوع البحث : كيفية عد الخلايا التي تحتوي على معادلات داخل نطاق
بفرض أن لديك النطاق A1:E10 ويحتوي على بيانات مختلفة ومعادلات .. المطلوب كم عدد الخلايا التي تحتوي على معادلات فقط؟

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






30-11-2017 07:59 مساء
مشاهدة مشاركة منفردة [1]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 707
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 8
قوة السمعة : 845
الاعجاب : 68
 Online 
look/images/icons/i1.gif عد الخلايا التي تحتوي على معادلات Count Cells Containing Fromulas
 =SUMPRODUCT(--(ISFORMULA(A1:e10))) 





30-11-2017 08:21 مساء
مشاهدة مشاركة منفردة [2]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 707
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 8
قوة السمعة : 845
الاعجاب : 68
 Online 
look/images/icons/i1.gif عد الخلايا التي تحتوي على معادلات Count Cells Containing Fromulas
Sub test()
Dim i As Range
Dim l As Integer
Set i = ActiveSheet.Range("a:a")
l = i.SpecialCells(xlCellTypeFormulas, 23).Count
  ActiveSheet.Range("d5") = l
End Sub





30-11-2017 09:21 مساء
مشاهدة مشاركة منفردة [3]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif عد الخلايا التي تحتوي على معادلات Count Cells Containing Fromulas
المشاركة الأصلية كتبت بواسطة: khaled alborene
 =SUMPRODUCT(--(ISFORMULA(A1:e10))) 


المشاركة الأصلية كتبت بواسطة: khaled alborene
Sub test()
Dim i As Range
Dim l As Integer
Set i = ActiveSheet.Range("a:a")
l = i.SpecialCells(xlCellTypeFormulas, 23).Count
  ActiveSheet.Range("d5") = l
End Sub


كل من المعادلة او الكود لم يعملوا 



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

تحياتى وتقدير للجميع  محمود ابوالدهب


30-11-2017 09:32 مساء
مشاهدة مشاركة منفردة [4]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 707
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 8
قوة السمعة : 845
الاعجاب : 68
 Online 
look/images/icons/i1.gif عد الخلايا التي تحتوي على معادلات Count Cells Containing Fromulas
غريب انا جربتهم قبل ما اضيفهم وشغالين تمام





30-11-2017 09:58 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 
look/images/icons/i1.gif عد الخلايا التي تحتوي على معادلات Count Cells Containing Fromulas
بارك الله فيك أخي العزيز خالد على مشاركاتك الفعالة والممتازة .. وكلا الحلين يعملان بشكل ممتاز
أخي العزيز محمود إليك ملف مرفق مطبق فيه كلا الحلين لمزيد من الاستفادة
 
 
  Count Formulas.rar   تحميل rar مرات التحميل :(12)
الحجم :(14.999) KB






30-11-2017 10:01 مساء
مشاهدة مشاركة منفردة [6]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 707
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 8
قوة السمعة : 845
الاعجاب : 68
 Online 
look/images/icons/i1.gif عد الخلايا التي تحتوي على معادلات Count Cells Containing Fromulas
شكرا اخي الكريم ياسر 
وهذه بحق طريقة فعالة بالتعليم 
لاني قمت بالبحث عن الكود وحصلة عليه من منتدى اجنبي وفهمت الموضوع منه





30-11-2017 10:15 مساء
مشاهدة مشاركة منفردة [7]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif عد الخلايا التي تحتوي على معادلات Count Cells Containing Fromulas
اشكرك استاذ ياسر واحب ان انوه انى بحث كثير ولكن لم اوفق للحل لانى لم ابحث الا باللغة العربية  وبالفعل لم يتحدث احد بجميع المنتدى  من قبل على تلك النقطة واشكرك لانك تريد ايصال المعلومة والبحث عنها من داخل وخارج القطر العربي 

معلومة جديده ومفيدة اشكرك 

واشكر الاستاذ خالد على التوصل للحل
 



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

تحياتى وتقدير للجميع  محمود ابوالدهب


30-11-2017 10:20 مساء
مشاهدة مشاركة منفردة [8]
ابراهيم الحداد
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 151
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 25
قوة السمعة : 1285
الاعجاب : 27
 offline 
look/images/icons/i1.gif عد الخلايا التي تحتوي على معادلات Count Cells Containing Fromulas
السلام عليكم ورحمة الله
ربما هذا الكود يؤدى الغرض
Sub CountFormulas()
Dim C As Range
Dim x As Integer
For Each C In Range("A1:E10")
If C.HasFormula Then
x = x + 1
End If
Next
MsgBox x
End Sub






01-12-2017 08:59 صباحا
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 
look/images/icons/i1.gif عد الخلايا التي تحتوي على معادلات Count Cells Containing Fromulas
بارك الله فيك أخي العزيز زيزو وجزاك الله خيراً

نريد تفاعل أكثر من بقية الأعضاء ، فالتفاعل سيثمر عن حلول مختلفة تفيد الجميع إن شاء الله





04-12-2017 08:28 صباحا
مشاهدة مشاركة منفردة [10]
karwan
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-11-2017
رقم العضوية : 1785
المشاركات : 178
الجنس : ذكر
تاريخ الميلاد : 20-8-1989
يتابعهم : 8
يتابعونه : 7
قوة السمعة : 226
الاعجاب : 15
 offline 
look/images/icons/i1.gif عد الخلايا التي تحتوي على معادلات Count Cells Containing Fromulas
thank you





04-12-2017 08:46 صباحا
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 
look/images/icons/i1.gif عد الخلايا التي تحتوي على معادلات Count Cells Containing Fromulas
بارك الله فيك أخي الكريم وننتظر منك تفاعل بالموضوع وليس مجرد رد ..أعتذر عن ذلك ولكنني أشرت لذلك في بداية الموضوع ، وسيتم حذف كل الردود الغير فعالة بما فيهم ردودي فيما بعد .. لجعل الموضوع علمي بحت ومرجع دائم إن شاء الله





04-12-2017 09:30 صباحا
مشاهدة مشاركة منفردة [12]
ahmed moh
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 223
الجنس : ذكر
يتابعهم : 6
يتابعونه : 3
قوة السمعة : 297
الاعجاب : 3
 offline 
look/images/icons/i1.gif عد الخلايا التي تحتوي على معادلات Count Cells Containing Fromulas
السلام عليكم
وجدت فى موقع على النت بعد البحث
=SUMPRODUCT(--ISFORMULA(A:A))
وهذا الكود 
Sub CountFormulas1()
    Dim Source As Range
    Dim iCount As Integer

    Set Source = ActiveSheet.Range("A:A")
    iCount = Source.SpecialCells(xlCellTypeFormulas, 23).Count
    ActiveSheet.Range("D1") = iCount
End Sub
 
وهذه الداله 
Function CountFormulas2(Source As Range)
    CountFormulas2 = Source.SpecialCells(xlCellTypeFormulas, 23).Count
End Function
 

Function CountFormulas3(Source As Range)
    Dim c As Range
    Dim iCount As Integer

    iCount = 0
    For Each c In Source
        If c.HasFormula Then iCount = iCount + 1
    Next
    CountFormulas3 = iCount
End Function
 
 
 






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
حساب عدد الخلايا التي لا تحتوي على صفر sami872
10 279 YasserKhalil
كود حذف محتويات الخلايا التي لا تحتوي على معادلات عندما يتم مسح الاسم محمد النائلي
1 405 محمد النائلي

الكلمات الدلالية
(البحث ، معادلات ، تحتوي ، الخلايا ، التي ، الأول) ،


 







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



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

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