احمد بدره

رائع بارك الله فيه أستاذنا الفاضل

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

كان هناك خطأ لديك في المدي المكتوب بالمعادلة في الخلية F1 وتم التصويب يرجى منك تضبيط المدى في الشكل البياني لأنني ذهاب الآن لعملى excel analys.xlsx

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

ممكن يكون قصدك هذا اشعار.xlsx

العفو فكلنا نتعلم فالمنتدى في المقام الأول تعليمي

نعم هو بالضبط

عليك السلام ورحمة الله وبركاته تم عمل المطلوب ولكن في الاعتبار أن دالة vlookup تظهر العمود الثاني وليس الأول لذلك فقد تم تبديل الأعمدة في شييت3 1.xlsx

ربما يكون المطلوب هكذا اشعار.xlsx

بعد إذن أستاذنا الجليل بن علية ممكن تجرب الكودين لإضافة الدوائر وحذفها بدلاً من الكود السابق مع ملاحظة أن كود إضافة الدوائر يقوم بحذف الدوائر السابقة قبل إضافة الدوائر الجديدة تلقائيًا فبمجرد تشغيله لا تحتاج لتشغيل كود حذف الدوائر Sub دوائر() ' رسم شكل بيضاوى Application.ScreenUpdating = False حذف_دوائر Dim c As Range Dim MyRng As Range, V As Shape Dim x As Integer, G As Integer, r As Integer, d As Integer '================================================ G = 4 r = 15 Set MyRng = Range("E16:O16,E30:O30,E44:O44") '================================================ x = ActiveWindow.Zoom ActiveWindow.Zoom = 100 For Each c In MyRng If Cells(c.Row, G) = 0 Then GoTo 1 If IsNumeric(Cells(r, c.Column)) And Not IsEmpty(Cells(r, c.Column)) And (c.Value < Cells(r, c.Column) Or c.Value = "غ") Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, c.Left + 1, c.Top + 1, c.Width - 1, c.Height - 1) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 2 V.Line.Weight = 2 d = d + 1 End If 1 Next ActiveWindow.Zoom = x Application.ScreenUpdating = True End Sub Sub حذف_دوائر() Dim shp As Shape, d As Integer For Each shp In ActiveSheet.Shapes If shp.AutoShapeType = msoShapeOval Then shp.Delete: d = d + 1 Next shp End Sub

تم عمل قائمة منسدلة ومن خلالها يمكنك كتابة الاسم فيظهر البحث من بداية الاسم يمكنك تجربة excel analys.xlsm

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

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

عليك السلام نعم يمكن عمل ذلك ولكن يجب إرفاق ملف للعمل عليه موضحًا فيه المطلوب وتحديد عمود معيار ناجح أو راسب وهذه محاولة مني للكود للسابق بعد التعديل ليتاسب مع طلب Sub Tarheel() 'السطور التالية خاصة بتعيين متغيرات لتخزين البيانات من نوع أرقام صحيحة Integer Dim i As Integer, x As Integer Dim lr As Integer, y As Integer 'السطر التالى يعمل على ايقاف اهتزاز الشاشة ( لتسريع الكود ) Application.ScreenUpdating = False 'السطر التالي للذهاب لورقة العمل المسماه الشييت Sheets("الشييت").Activate 'السطر التالى لتحديد اخر صف يحتوى على بيانات lr = [b10000].End(xlUp).Row 'السطرين التاليين لمسح بيانات صفحة ناجحون وراسبون قبل نسخ البيانات اليهما Sheets("النتيجة").Range("a9:ho1000").ClearContents 'السطر التالى يعطى قيمة للمتغيرين x و y وهى تساوى 9 ( أول صف يتم فيه لصق البيانات المنسوخة فى صفحة ( ناجحون ) وصفحة ( راسبون ) x = 9: y = 9 'السطر التالى بداية حلقة تكرارية تبدأ من الصف التاسع الى lr ( اخر صف يحتوى على بيانات ) For i = 9 To lr 'وتنتهى هذه الحلقة التكرارية بالكلمة next 'Print 'السطر التالى يختبر قيمة الخلية المحتوية على نتيجة الطالب ' If Cells(i, 3).Value = "ناجح" Or Cells(i, 3).Value = "ناجح" And Cells(i, 4) <> " " Then 'فاذا كانت تحتوى على كلمة ناجح وخلية اسم الطالب ليست فارغة يقوم بنسخ الصف بالكامل الذى توجد فيه الخلية عن طريق السطر التالى Range("a" & i).Resize(1, 223).Copy 'السطر التالى يعمل على لصق البيانات المنسوخة الى الصفحة ( ناجحون ) Sheets("النتيجة").Range("a" & x).PasteSpecial xlPasteValues 'السطر التالى يعمل على ايقاف خاصية النسخ واللصق Application.CutCopyMode = False ' الجزء الباقى من الكود تكرار الخطوات السابقة ولكن مع الراسب 'السطر التالى خاص باظهار رسالة توضح اكتمال عملية فصل الناجحون والراسبون MsgBox "تم بحمد الله فصل الناجحين والراسبين فى كشوف منفصلة", vbOKOnly, "ترحيل الناجحون والراسبون" 'السطر التالى يعيد مرة اخرى خاصية اهتزاز الشاشة Application.ScreenUpdating = True نهاية الكود End Sub وأكرر أنه لابد من إرفاق ملف به المطلوب

بارك الله فيك أستاذنا الفاضل والمبدع دائمًا نتعلم من الكثير عمل في غاية الروعة

بعد إذن أستاذنا الفاضل والمبدع الأستاذ / سليم هي نفس الدالة التي صممها وربنا يجعلها في ميزان حسناته ولكن قمت بتغيير تفقيط الأرقام لتعطى النتيجة التي تريدها أما عن الدالة عند الضغط على مفتاح Alt+F11 تجد موديول باسم Order_100 عند فتحه تجد فيه الدالة ممكن تنسخ الموديول وتضعه في ملف آخر إذا أردت أما عن كيفية استخدام الدالة فقم بإدارج دالة واختر دالة معرفة من قِبَل المستخدم واختر منها Order_100 مرفق صورة للتوضيح

رائع أستاذنا الفاضل الأستاذ / سليم أرى أن يتم استبدال العلامة "-" بفاصلة " ,"لأنه أحيانًا لو كان الغياب يومان يتحول إلى تاريخ وقم بتجربتها فكانت بلا مشاكل khairi ali.xlsm

بارك الله في أستاذنا الفاضل الأستاذ سليم وبعد إذنه تم تعيدل كود التفقيط ليلبي المطلوب order_up_to_100_Salim.xlsm

شكرًا لمجهوداتكم في هذا المنتدى ووفقكم الله

يمكن الرجوع للرابط التالي بالمنتدي

عليكم السلام ورحمة الله وبركاته هذا فيديو فيه الشرح وهذا رابط التحميل أنواع الخطوط التي تستخدم لعمل الباركود https://drive.google.com/file/d/1l_vK

بعد إذن معلمنا الأستاذ إبراهيم الحداد يجب عليك تغير نهاية أعمدة البحث حتى تعمل المعادلة جيدًا تم التعديل إلى نهاية التي وضعتها وتم إضافة شرط لو وضعت تاريخ خطأ يكون الناتج فتعدل معادلة لجلب اسم على اساس شرطين(1).xlsxارغ

عليكم السلام ورحمة الله وبركاته كيف يتم النظر إلى ملف مقفول بباسوورد ؟

بارك الله فيك أستاذنا الجليل / إبراهيم الحداد وجعله مي ميزان حساناتك وهناك سؤالين حتى يكتمل الموضوع السؤال الأول كيف نضيف امتدادات أخرى لنوع الصورة ؟ والسؤال الثاني كيف يمكن اسخدامه في أكثر من نطاق ( شهادات الطلاب ) مثلاً ؟

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