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

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


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





كود حساب عدد الخلايا غير الفارغة بعد الفلترة

السلام عليكم ورحمة الله وبركاته عندي جدول متكون من اربع اعمدة A, B, C, D كلها فيها بيانات نصية اريد حساب عدد الخلايا غي ..



07-06-2020 02:15 صباحا
noureddine70
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2019
رقم العضوية : 11894
المشاركات : 73
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 6-12-1970
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 103
 offline 

السلام عليكم ورحمة الله وبركاته
عندي جدول متكون من اربع اعمدة A, B, C, D كلها فيها بيانات نصية 
اريد حساب عدد الخلايا غير الفارغة في العامود B وهذا بعد عملية فلترة في العمود D بكريتيريا معينة و يضع النتيجة في اخر صف من العمود B
و جزاكم الله خيرا smile

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

Option Explicit

Sub filter()
    Dim sht As Worksheet
    Dim rng As Range
    Dim x%, y%
    Set sht = Sheets("Sheet1") 'Change as Needed
With sht
    Set rng = .Range("A1").CurrentRegion
   If .AutoFilterMode Then rng.AutoFilter
    rng.AutoFilter Field:=4, Criteria1:=">50" 'Change as Needed
    x = .AutoFilter.Range.Columns(2).SpecialCells(12).Count
    y = .AutoFilter.Range.Columns(2).SpecialCells(4).Count
    MsgBox x - y
End With
End Sub


07-06-2020 07:53 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif كود حساب عدد الخلايا غير الفارغة بعد الفلترة
بارك الله فيك أخي العزيز سليم
أخي الكريم نور الدين يرجى إرفاق ملف في الموضوع لتمام الاستفادة.

07-06-2020 12:02 مساء
مشاهدة مشاركة منفردة [3]
noureddine70
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2019
رقم العضوية : 11894
المشاركات : 73
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 6-12-1970
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 103
 offline 
look/images/icons/upload/awt9.gif كود حساب عدد الخلايا غير الفارغة بعد الفلترة
بارك الله فيكم و جزاكم الله خيرا 
و الله اني لاعلم انكم تتعبون حتى تعطونا الحلول على طبق من ذهب فأنا ان لم اسجل اعجابي فهذا من جهلي لانني اول مرة اتعامل مع منتدى بالرغم من مشاركتي القليلة ما زلت لحد الان اتعلم منكم فارجو منكم السماح و من قال جزاكم الله خيرا فقد اجزل في الشكر فأنا كل من قدم لي خدمة حتى بكلمة فاني اقدم له الشكر بعد قراءة رده  ولكن سأضع أعجابي ان شاء الله 
ان الكود الذي وضعه الأخ سليم حدث لي مشكلة في السطر 
y = .AutoFilter.Range.Columns(2).SpecialCells(4).Count
و عليه اجدد طلبي بوضع ملف مع هذا الرد و الذي اريده ان يكون مجموع عدد الخلايا الفارغة في ثاني سطر فارغ في العامود B و في هذا الملف في الخلية B13
حتى افهم الكود جيدا و اعرف كيف اتعامل معه اريد اسنفسار عن معنى (SpecialCells(4 والرقم 4
و بارك الله فيكم و جزاكم الله خيرا
 
 
  Cellule non vide.xlsm   تحميل xlsm مرات التحميل :(2)
الحجم :(15.579) KB


07-06-2020 01:53 مساء
مشاهدة مشاركة منفردة [4]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif كود حساب عدد الخلايا غير الفارغة بعد الفلترة
تحدث هذه المشكلة اذا كان لا يوجد خلايا فارغة في العامود الثاتي (يعد الفلترة)
لتلافي ذلك هذا الكود

Option Explicit

Sub filter()
    Dim sht As Worksheet
    Dim rng As Range
    Dim x%, lr%, i%
    Set sht = Sheets(1) 'Change as Needed
With sht
    Set rng = .Range("A1").CurrentRegion
     rng.Columns(1).Interior.ColorIndex = xlNone
   If .AutoFilterMode Then rng.AutoFilter
    rng.AutoFilter Field:=4, Criteria1:="Non" 'Change as Needed
    lr = Cells(Rows.Count, 1).End(3).Row
    For i = 2 To lr
        If .Cells(i, 1).EntireRow.Hidden = False _
         And .Cells(i, 2) = vbNullString Then
        x = x + 1
        .Cells(i, 2).Interior.ColorIndex = 35
        End If
    Next i
    MsgBox x
End With
End Sub


 
 
 
  Cellules non vide.xlsm   تحميل xlsm مرات التحميل :(2)
الحجم :(27.653) KB


07-06-2020 08:02 مساء
مشاهدة مشاركة منفردة [5]
noureddine70
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2019
رقم العضوية : 11894
المشاركات : 73
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 6-12-1970
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 103
 offline 
look/images/icons/i1.gif كود حساب عدد الخلايا غير الفارغة بعد الفلترة
بارك الله فيكم و جزاكم الله خيرا 
كما اود ان اعلمكم اني قمت بتغيير في الكود السابق هذا السطر  y = .AutoFilter.Range.Columns(2).SpecialCells(4).Count
بهذا السطر  y = .AutoFilter.Range.Columns(2).SpecialCells(11).Count
اي غيرت الرقم 4 برقم 11 و قد حلت المشكلة
جزيل الشكر لكم و جعلها الله في ميزات حسناتكم

07-06-2020 09:11 مساء
مشاهدة مشاركة منفردة [6]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif كود حساب عدد الخلايا غير الفارغة بعد الفلترة
لا أظن انك تحصل على النتيجة الصحيحة اذا كانت هناك خلايا فارغة في صفوف من غير  Creteria
مثلاً قم بتفريغ خلية او 2 من صف OUI  وخلية أو 2 من صف NON و جرب  التصفية على OUI 
ونفذ الكود 
 




الكلمات الدلالية
حساب ، الخلايا ، الفارغة ،


 










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

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