إضافة دالة

[mohsen mohamed]

الأساتذة الكرام:

كيف يتم إضافة دالة ifs إلى الإكسل 2016 

ولسادتكم جزيل الشكر

[أ / محمد صالح]

يمكنك استعمال هذه الدالة المعرفة

Public Function MasIfs(ParamArray args() As Variant) As Variant
Dim i As Integer
Do Until CBool(args(i)) Or (i >= UBound(args))
    i = i + 2
Loop
If i < UBound(args) Then MasIfs = args(i + 1)
End Function

بالتوفيق 

[mohsen mohamed]

جزال الله خيرا أستاذ محمد صالح ولكن كيف أستخدم الكود أو اضافته 

وشكرا جزيلا لحضرتك

[أ / محمد صالح]

لإضافة دالة معرفة udf 

نفتح نافذة محرر vba بالضغط alt+f11

من قائمة insert نختار module 

نلصق هذا الكود 

واستخدامها في اكسل مثل استخدام ifs ولكن نكتب masifs

بالتوفيق