عبدالله بشير عبدالله

السلام عليكم ورخمة الله وبركانه " 🌟 نأمل في المرات القادمة إرفاق الملف بدون كلمة مرور للصفخات ومحرر الاكواد لتتمكن مشاركته بشكل أوسع من قبل الزملاء. شكراً لتفهمك! 🤝" المشكلة في ملفك في استدعاء رقم التسجيل صفحة قوائم التلاميذ - تم عملها بكود تلقائي وان اردت معادلة استخذم المعادلة التالية وهي نفس المعادلة تطبق على كل الشيتات والتغيير الوحيد فيها يتم في خلية اختيار القسم او الفوج =IFERROR(INDEX(Data!B:B;AGGREGATE(15;6;ROW(Data!$Z$4:$Z$1000)/(Data!$Z$4:$Z$1000=$C$6);ROW(A1)));"") الملف التقرير اليومي لمستشار التربية - ثانوي - 12.5.0.xlsm

السلام عليكم استبدل هذا Private Sub UserForm_Initialize() Call showinlistbox End Sub بهذا Private Sub UserForm_Initialize() TextBox25 = Val(Sheets("table").Cells(Rows.Count, 1).End(xlUp).Value) Call showinlistbox End Sub TextBox25 = Val(Sheets("table").Cells(Rows.Count, 1).End(xlUp).Value)

وعليكم السلام ورحمة الله وبركاته دالة COUNTA (لا تعمل مع التصفية) دالة SUBTOTAL وهي في حالتين =SUBTOTAL(3, A1:A10) تقوم بعدّ كل القيم غير الفارغة في A1:A10 حتى المخفية. اي لا تعمل مع التصفية =SUBTOTAL(103, A1:A10) تقوم بعدّ القيم غير الفارغة فقط في الصفوف الظاهرة بعد التصفية أو الإخفاء اي تعمل مع التصفية الرقم 103: يمثل (عدّ القيم غير الفارغة) مع تجاهل الصفوف المخفية يدويًا أو بواسطة التصفية. اليك طلبك 05- محرك بحث يعمل على تصفية البيانات حسب كل خلية على حدى 23-10-2025.xlsm

وعليكم السلام ورحمة الله وبركاته استخدام [C3] أو [D3] يعني أنك تعتمد على قيمة الخلية في الورقة، وليس على قيمة الـ TextBox نفسه. فإذا كانت الخلية فارغة أو بها قيمة غير متوقعة، فإن التصفية قد تفشل أو تُغلق القائمة تمامًا. جرب التعديل التالي 03- محرك بحث يعمل على تصفية البيانات حسب كل خلية على حدى.xlsm

سبب هذه الأخطاء هو أن برنامج Excel 2007 لم يتمكن من العثور على عنصر تحكم ListViewData (أو ListViewControl) لأنه لم يتم تثبيته أو تفعيله بشكل صحيح على جهازك. ساعطيك خطوات ربما تحل المشكلة من محرر الاكواد -TOOLS)ادوات) -References... (المراجع...). القائمة التي تظهر، ابحث عن المكتبة المسؤولة عن ListView، والتي عادةً ما تكون إحدى هذه الخيارات: Microsoft Windows Common Controls 6.0 (SP6) Microsoft ListView Control, Version 6.0 (SP6) Microsoft Common Controls ضع علامة صح بجوار المكتبة التي تحمل اسم Microsoft ListView Control أو Microsoft Windows Common Controls. اضغط OK (موافق). إذا لم تجد المكتبة، فهذا يعني أنها غير مسجلة على جهازك قم بتحميل اصدار 2016 او 2019 للخروج من هذه الاشكاليات او يمكنك العمل على اول ملف باللستبوكس ووجود البيانات يمين او يسار لا يعنى شيئا ما دام طلبك الرئيسى وهو الفلترة يعمل بكفاءة او ربما الزملاء الافاضل لديهم ما يقدمونه لملفك

لدي العناوين ثابتة ومن اليمين الى اليسار لاحظ ظهور اخر صف والعناوين موجودة الصورة المرفقة منكم ليست من نفس الملف الاخير المعدل

الليست بوكس خسب علمى خاصية الثتبيت غير موجوده على كل حال تم استبدال LISTBOX ب ListView به خاصية الثتتبيت وهذا اقصى ما لدي استطيع عمله لهذا الملف ListView موجودة في اكسل 2007 اتمنى عدم حدوث مشاكل مع الاصدار 2007 2فلتر (1).xlsm

وعليكم السلام ورحمة الله وبركاتة اعلم ان الكود المقصود به العمود الاول لكن ما المفصود ثتبيت

جزاك الله خيرا أسعدني و أثلج صدري دعاؤك لي هذا الصباح ما أجمل صباحي وقد بدأته بدعائك الطيب! حماك الله وأفاض عليك بالخير والسعادة والبركة

وعليكم السلام ورحمة الله وبركاتة تقصد يحول اسم الشيت الى رقم اعتقد ان عدد حروف اسم الشيت يجب ان لا تتجاوز 31 حرف من ضمنها الفراغات الواضخة والمخفية بين الكلمات وهذا من ثوابت الاكسل يوجد حلان الحل الأول، والذي ربما لا تفضله كما ذكرت، هو الاختصار الرقمي. على سبيل المثال، استبدال 'أربعة وعشرون' بالرقم '24' ليصبح الوصف: 'مكيف سبليت جنرال 24 وحدة'. "الحل الثاني: على الرغم من أن أسماء بعض الأصناف تفي بمتطلبات الحد الأقصى لعدد الأحرف، إلا أن رفض النظام لها يحدث غالبًا بسبب وجود مسافات زائدة (ظاهرة أو مخفية). لاحظنا في ملفك وجود مسافات متكررة، مثل الفراغين بين 'سبليت جنرال'. لذلك، من الضروري تضمين دالة في الكود لمعالجة النص وإزالة جميع الفراغات الزائدة قبل حفظ البيانات." تفضل الملف، آمل أن يلبي هذا متطلباتك الاصناف1.xlsm لك وافر التقدير والاحترام

السلام عليكم قم بانشاء مجلد في اي مكان بالجهاز لحفظ الملفات اليك التعديل الشرقية1 (1).xlsm

السلام عليكم المشكلة أن الكود يستخدم عامل البحث النصي (*) مع عمود يحتوي على أرقام - عامل * مخصص للنصوص وليس للأرقام اليك كود يتخقق من الحالة اولا 02- محرك بحث يعمل على تصفية البيانات حسب كل خلية على حدى.xlsm

وعليكم السلام ورحمة الله وبركاته تم وضع معادلات في العمود G وكذلك العمود J نموذج.xlsx

او جرب هذا الملف ربما يتوافق مع 2007 ليس لدي الاصدار لاجرب 3فلتر.xlsm3فلتر.xlsm

وعليكم السلام ورحمة الله وبركاتة تعني أن هناك مرجع (Reference) مفقود في مكتبة VBA، وخسب الصورة Excel 2007 عند استخدام بعض الدوال مثل Trim أو الكائن Scripting.Dictionary جرب الحل التالي افتح محرر الأكواد من القائمة العلوية اختر: Tools → References ابحث عن أي سطر مكتوب بجانبه: MISSING: أزل علامة الصح من المربع الموجود أمام هذا المرجع. اضغط OK وأغلق النافذة. جرّب تشغيل الكود من جديد واعلمنى بالنتائج

وعليكم السلام ورحمة الله وبركاته جرب التعديل التالي الشرقية1.xlsm

وعليكم السلام ورحمة الله وبركاته اذا اردت الاسنغناء عن الكمبوبكس ويتم الاختيار المتعدد بواسطة لستبوكس 2فلتر.xlsm

وعليكم السلام ورحمة الله وبركاته حسب علمي الـ ComboBox في UserForm داخل Excel VBA لا يدعم الاختيار المتعدد (Multiple Selection) بشكل مباشر. أي أنه لا يمكنك اختيار أكثر من عنصر في نفس الوقت والاصدارات الحديثة من اكسل 2021 -365 لا اعلم هل تدعم ام لا - اتعامل مع اصدار 2016 ربما الزملاء والاعضاء الافاضل لديهم ما يقدمونه لطلبك والله اعلم

اخي الفاضل يوجد اكواد في ورقة العمل عددها 3 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Private Sub ShowListBoxForm(TargetCell As Range) Private Sub HideListBoxForm() ويوجد في الفورم 4 اكواد Private Sub UserForm_Initialize() Private Sub ListBox1_Click() Private Sub UserForm_Deactivate() Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) ارجو تحديد الكود المطلوب شرحة او النقاط الغامضة بالاكواد

وعليكم السلام ورحمة الله وبركاته قمت ياستبدال اللستبوكس بالورقة باخر في يوزرفورم فكرة العمل انقر على الخلية المراد وضع الوظيفة بها في العمود B يظهر الفورم قم بالاختيار ويختفى الفورم عند النقر في اي خلية اخرى لك وافر الاحترام والتقدير LISTBOX1.xlsm

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

"بارك الله في وقتك وعلمك، وجعله في ميزان حسناتك." ملاحظة حول البحث عدد المرات وردت كلمة وساوضح بامثلة مثال1 البحث غن كلمة بسم البحث يحصي كلمة بِسَمْعِهِمْ -فَتَبَسَّمَ مثال2 البخث غن كلمة انس البحث يحصي كلمة فَانسلَخَ وهذا حسب وجهة تظري يحتاح الى تعديل طريقة البحث "وهذا العمل أكبر من أن تُحصره أي ملاحظة شكلية." لك تقديري واحترامي

وعليكم السلام ورحمة الله وبركانه بعد اذن استاذنا الفاضل عبدللرحيم الاستاذ مستر أيسم ان اردت الحل بالمعادلات فالاستاذ عبدالرحيم حله وافي وكافي اذا اردت الامر بالكود بحيت يجلب المواد والفصول تلقائيا زادات ام تقصت فاليك الملف جمع بشرطين.xlsb

وعليكم السلام ورحمة الله وبركاته تم تعديل تعبئة الكموبكس بالعناصر منعا للتكرار وكلما اضفت لونا او مفاسا او صنفا جديد سيتم اظافته للقائمة تلقائيا جرب واعلمني بالنتائج 1فلتر.xlsm

وعليكم السلام ورحمة الله وبركاته الشرط '01'!O$7:O$1020="محول إلى" مكرر مرتين الشرط الاول اتركه كما هو ومحول الى الثانية غيرها الى محولة إلى =IFERROR(INDEX('01'!C$7:C$1020; SMALL(IF(('01'!O$7:O$1020="محول إلى")+('01'!O$7:O$1020="محولة إلى"); ROW('01'!O$7:O$1020)-ROW('01'!O$7)+1); ROWS($A$1:A1))); "") ويمكن تحسين المعادلة الى =IFERROR(INDEX('01'!C$7:C$1020; SMALL(IF(('01'!O$7:O$1020={"محول إلى","محولة إلى"}); ROW('01'!O$7:O$1020)-ROW('01'!O$7)+1); ROWS($A$1:A1))); "") اذا كان اصدار الاكسل 2021 او 365 استخدم المعادلة التالية =FILTER('01'!C$7:C$1020; ('01'!O$7:O$1020="محول إلى") + ('01'!O$7:O$1020="محولة إلى"); "") ان لم تؤدى المعادلة طلبك ارفق ملف به بعض البيانات