دالة معرفة ( إلغاء الفراغات فى القائمة )

[جمال عبد السميع]

عذرا أساتذتى ( أساتذة الأكواد ) كما يقولوون الحاجة أم الإختراع

هذه دالة معرفة لإلغاء الفراغات من أى قائمة وخاصا قوائم الفلترة التى قد تترك بعض الفراغات بعد عملية الفلترة ففكرت فى هذه الدالة لحاجة نظرا البعض لها راجيا من الله أن تكون عونا لإخوتى رواد هذا الصرح العظيم

مقارنة بين عمودين بالمعادلات.rar

تم تعديل يناير 27, 2013 بواسطه mahmoud-lee

[حمادة عمر]

السلام عليكم

الاستاذ القدير / mahmoud-lee

 

مازلت عن رأيي في انك بلا شك ((( عميــــــــــــد المعــــــــــــادلات )))

كنت اقول انك عميد استخدام معادلات الاكسيل

 

ولكن الآن انت تقوم باختراع دوال في الاكسيل

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

 

ولكن لي طلب غلم استطع تنفيذ المعادلة في عمل قائمة منسدلة فهل لها طريقة معينة

 

جزاك الله خيرا

[جمال عبد السميع]

أخى العزيز ( حمادة ) ماذا تقصد بأستخدامها فى قائمة منسدلة إذا كنت تقصد القائمة بعد إلغاء الفراغات نعم تنفع كقائمة عادية أم ماذا تقصد

[حمادة عمر]

السلام عليكم

الاستاذ القدير / mahmoud-lee

 

اريد استخدام الدالة المعرفة NoBlanks  في شرط القائمة المنسدلة

اي تكون المعادلة في شرط القائمة المنسدلة مباشرة كالتالي :

 

=NoBlanks(H2:H29)

جزاك الله خيرا استاذي الكريم

[جمال عبد السميع]

لاأعتقد أخى ( حمادة ) ولكن ممكن الأستفادة من القائمة المتولدة عنها

[حمادة عمر]

السلام عليكم

الاستاذ القدير / mahmoud-lee

 

((عميد ومخترع المعادلات ))

 

اختراع بالفعل جميل جدا

راااائع استاذنا بلا شك

كان هذا اقتراح ليس الا ويمكننا بالفعل استخدام القائمة المتولدة عن الدالة

لتكون قائمة بدون فراغات

 

جزاك الله خيرا استاذنا الكريم

[Mohamedd Ahmed]

انا لا اجد المعادله في الاكسل

[جمال عبد السميع]

أخى الحبيب

الدالة المعرفة ليست من ضمن دوال الأوفيس ، ولكنها عبارة عن كود برمجى بتم وضعة داخل ( module ) يتم الوصول له عن طريق الضغط على " alt+f11 "

تقبل تحياتى

[Mohamedd Ahmed]

متشكر جدا لرد حضرتك طب فين الكود عشان اضيفه

[Mohamedd Ahmed]

شكرا يا استاذ / جمال ـ تم اخذ الكود من الملف المرفق خاصتك

[جمال عبد السميع]

الكود أخى الحبيب يتم الوصول إلية كما سبق الإيضاح

بعد فتح الملف يتم الضغط على المفتاحين " ALT+F11 " ، ستجد كلمة " MODULE1 " سيتم الضغط عليها ستجد الكود البرمجى فى الجهة المقابلة يتم تظليلة بالكامل

وبنفس الخطوات فى ملفك سيتم الضغط على  " ALT+F11 " سيفتح لك صفحة الأكواد من قائمة  " INSERT " ستظهر قائمة إختر منها " MODULE " إلصق بها الكود الذى سبق نسخة من ملفى  ثم طبق المعادلة

{=NoBlanks(A1:A100)}

على أى مدى تجد به فراغات وتريد إلغائها

مع ملاحظة أنه لابد من الضغط على "CTRL+SHIFT+ENTER " لتكوين هذان القوسان فى بداية ونهاية المعادلة لأنها معادلة صفيف " { } " حتى تحقق المعادلة المطلوب بشكل سليم

أرجو أن يكون الشرح به الأفادة لحضرتك

تقبل تحياتى

[كامل محمد شعبان]

جزاكم الله خيرا على هذا الموضوع الجيد