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

[اشرف النعاس]

السلام عليكم 
 

اريد كود حساب عدد الخلايا الغير فارغة في VBA و ايضا اريد كود حساب عدد الخلايا التي تحتوي على نص معين فعلى سبيل المتال "نعم"

[جعفر الطريبق]

Function CountNonEmpty(ByVal Rng As Range) As Long
    CountNonEmpty = WorksheetFunction.CountA(Rng)
End Function

Function CountIf(ByVal Rng As Range, ByVal Val As Variant) As Long
    CountIf = WorksheetFunction.CountIf(Rng, Val)
End Function

Sub Test()
    MsgBox CountNonEmpty(Range("A1:H20"))
    MsgBox CountIf(Range("A1:H20"), "نعم")
End Sub

 

[عبد العزيز البسكري]

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

بارك الله فيك أستاذ جعفر الطريبق ..عمل رائع .. جزاك الله خيرًا و زادها بميزان حسناتك .. هل من الممكن جعل طريقة حساب الكلمات اختيارية .. مثلا أريد أن أحسب عدد كلمات " نعم " بهذا النطاق .. أو أختار كلمة أخرى بنفس النطاق مثلا " لا " .. بارك الله فيك مسبّقًا

[جعفر الطريبق]

نعم كل ما تحتاج هو تبديل "نعم" ب "لا"   و هكدا  ....

Sub Test()
    MsgBox CountIf(Range("A1:H20"), "نعم")
	MsgBox CountIf(Range("A1:H20"), "لا")
End Sub

 

تم تعديل سبتمبر 7, 2015 بواسطه جعفر الطريبق

[عبد العزيز البسكري]

بارك الله فيك على التّوضيح .. جزاك الله خيرًا و زادك من علمه و فضله

 

تم تعديل سبتمبر 7, 2015 بواسطه عبد العزيز البسكري

[اشرف النعاس]

شكرا اخي جعفر و لكن اريد قيمة العدد لا تكون في msgbox اريدها ان تكون في textbox و ايضا اريد ان اكتب اسم الشيت الذي اخد منه العدد 
و شكرا 

[اشرف النعاس]

السلام عليكم اريد فقط ان احدد اسم الشيت الذي يتم فيه الحساب ؟

[اشرف النعاس]

هل من رد

[جعفر الطريبق]

لتحديد اسم الصفحة التي يتم فيها الحساب اسبق الرينج  باسم الشيت كالتالي

Sheet1.Range("A1:H20")

Function CountNonEmpty(ByVal Rng As Range) As Long
    CountNonEmpty = WorksheetFunction.CountA(Rng)
End Function

Function CountIf(ByVal Rng As Range, ByVal Val As Variant) As Long
    CountIf = WorksheetFunction.CountIf(Rng, Val)
End Function

Sub Test()
    MsgBox CountNonEmpty(Sheet1.Range("A1:H20"))
    MsgBox CountIf(Sheet1.Range("A1:H20"),"نعم")
End Sub

 

تم تعديل سبتمبر 9, 2015 بواسطه جعفر الطريبق

[اشرف النعاس]

بارك الله فيك اخي جعفر