احمد بدره

يبدو أنك دخلت منتدى خطأ فهذا منتدى الإكسيل وليس الأكسس من فضلك اذهب لمنتدى الأكسس حتى يتم حل مشكلتك

عليك السلام ورحمة الله وبركاته أولاً يجب إرفاق ملف عمل وتوضح المطلوب فيه لكي يستطيع أحد الأعضاء مساعدتك ثانيًا يمكن عمل ذلك مثال ملف به مثال وهو مرتبط بالخلية A1 فيمكنك تغير الارتباط إلى الخلية التي تريدها لأني لاحظ ارتباط الكموبوكس بالخلية B7 التي هي من ضمن النطاق مثال.xlsm

بعد إذن أستاذنا الجليل مجدي يونس الشرط الأول =IF(SUM(Y4:Z4)<33600;E4) اما الشرط الثاني المطلوب غير واضح المبلغين اللذان تريد طرح الفرق بينهم لم تذكرهم ممكن تكون المعادلة على حسب فهمي =IF(SUM(Y4:Z4)<33600;E4;E4-G4)

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

لكي يتم إدراج ورقة العمل وتعمل جيدً بدون أي مشاكل يجب بالإضافة للخطوات السابق ذكرها من قبل يتفضل مشكلتين وحلولهما سهل المشكلتين بحث الاسم و بحث رقم الجلوس والحلول كما بالصورة تم التعديل الرابط https://mab.to/bQbPUgyJ8

يجب أن يكون مستوى الأمان منخفض في الإكسيل لكي يعمل الملف انظر إلى الصورة يجب أن تكون مثل هذه الإعدادات ( هاتان الصورتان من خيارات ولابد بعد الضبط تضغط موافق بالنسبة لبرنامج فك الضغط إليك رابط فيديو به طريقة التحميل وهذا رابط التحميل http://soft-prooo.blogspot.com/2018/09/winrar-crack-560-beta-5-incl-patch2.html

تسلم الأنامل بارك الله فيك

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

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

جرب هذا التعديل ComboBox With Drop List_new.xlsm

جرب هذا التعديل __للبحث عن شركات العمرة 2019 للتعديل اضافة ارقام التواصل.xlsm

عليك السلام ورحمة الله وبركاته جرب هذا التعديل close.xlsm

ممكن تجربة التعديل على الكود الأخير الذي وضعه أستاذنا الفاضل سليم ComboBox With Drop List_new.xlsm

يجب إرفاق ملف للعمل عليه وتوضيح المطلوب في التكست بوكس بمعنى هل تريد إجبارة على إدخال أرقام فقط أو نصوص فقط حتى يتسثنى لأحد الأعضاء بالعمل عليه

دائمًا مبدع أستاذنا الفاضل / سليم ونحن نتعلم منك الكثير بارك الله فيك ولي سؤال ماذا لو تم تعديل الكود بإضافة Range("b10") = "" في بداية الكود ليتم مسح الخلية b10 قبل البدء بالعمل فيكون الكود Option Explicit Private Sub ComboBox1_Change() fill_val_list End Sub '=============================================== Sub fill_val_list() Range("b10") = "" Dim my_rg As Range Dim i% Dim st$: st = Sheets("Drop List").[b8] Dim arr Sheets("Drop List").Range("b10").Validation.Delete On Error GoTo No_Items Set my_rg = ActiveWorkbook.Names(st).RefersToRange ReDim arr(1 To my_rg.Cells.Count) With Sheets("Drop List").Range("b10").Validation For i = 1 To my_rg.Cells.Count arr(i) = my_rg.Cells(i) Next .Add 3, , , Join(arr, ",") End With Exit Sub No_Items: ' MsgBox "Wrong range", 64 End Sub '======================================

ممكن يكون الرابط يفيدك

عليك السلام ورحمة الله وبركاته أولاً كان يجب عليك قبل طرح أي موضوع البحث في المنتدى ثانيًا يجب عند طرح موضوع إرفاق ملف ويكون به النتيجة المتوقعة المطلوبة حتى يقوم الأستاذة الأفاضل بالعمل عليها تفضلي هذا الرابط ربما يفيدك

بارك الله فيك أستاذ مصطفى تسلم الأنامل

إليك الملف غير مضغوط دوائر الشهادات1.xls

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

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

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

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

لا شكر على واجب فكلنا نتعلم فالمنتدى في المقام الأول تعليمي بالنسبة للأخطاء التي كانت لديك أن في معادلات vlookup مدي نهاية أقل من المدي الذي تعمل فكانت المعالات كمثال =IFERROR(VLOOKUP($D$3;Sheet1!$B$4:$AE$157;2;FALSE);"") فقمت بتعديلها إلى =IFERROR(VLOOKUP($D$3;Sheet1!$B$4:$AE$1003;2;FALSE);"") هذه المعادلة كانت بجانب خلية البحث فجلت النهاية 1003 إذا أردت زيادتها يمكنك تغيير الرقم ويجب التكملة على نفس النفس في الخلايا المجاورة إلى الخلية AH3 لكي يعطي الرسم البياني الرسوم

تم التعديل excel analys.xlsx