أبوعيد

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

هل تريد حذف القائمة المنسدلة نهائيا ؟ ثم تكتب اي اسم مثلا (أسامه) فيبحث عن كل اسم فيه (اسامه) سواء في أوله أو أوسطه أو آخره أم تريد اختيار اسم من القائمة : مثلا (اسامه عبد العزيز صديق حامد) ثم البحث في الأسماء عن كل اسم فيه : (اسامة) سواء في أوله أو أوسطه أو آخره (عبد العزيز ) سواء في أوله أو أوسطه أو آخره (صديق) سواء في أوله أو أوسطه أو آخره (حامد) سواء في أوله أو أوسطه أو آخره تقبل تحياتي

وعليكم السلام ورحمة الله أنا معلم وتحولت إلى إداري على الحاسوب فكنت أعاني من هذا الأمر مهمتي هي العمل على الحاسوب وكل ما يلزم من أعمال المدرسة ومن ضمنها ادخال الدرجات للطلاب المعلم يسلمني الكشوفات وأنا بدوري أدخل الدرجات إلى النظام في البداية كنت متحمسا لهذا الشيء بسبب أن النظام كله هو من تصميمي ولكن ! مع مرور الوقت وجدت أن عملية الأدخال للدرجات فيها شيء من الصعوبة بسبب الأخطاء التي قد أرتكبها أنا من غير قصد مني ثم تظهر في نتيجة الطالب ويتم مراجعتي بعد ذلك لتعديلها فتداركت الموضوع حتى لا تتكرر الأخطاء في المرات القادمة وقمت بتطوير عملية الأدخال بعد المرحلةالاولى التقليدية كما يأتي : المرحلة الأولى : الطريقة التقليدية : كيبورد والضغط على الأزرار * في هذه المرحلة أي خطأ أنا أتحمله وبعدها فكرت التطوير وتقليل الاعتماد على الكيبورد وتقليل الضغط على الأزرار عندما أدخل الرقم 13 مثلا أحتاج للضغط على 3 أزرار : 1 و 3 و ENTER حتى يتنقل المؤشر للخلية التالية المرحلة الثانية : قمت بتصميم برنامج على الاكسل (لا أستخدم الكيبورد إطلاقا) يقوم بإظهار لوحة الدرجات على الشاشة وعن طريق الفارة (الماوس) أختار و أضغط على الدرجة المطلوبة فقط فيقوم البرنامج بادخال الدرجة للخلية وينزل المؤشر للأسفل تمهيدا لإدخال الدرجة الأخرى إذا 3 ضغطات في المرحلة الأولى = ضغطة واحدة من الماوس في المرحلة الثانية * وهذا أنجاز لكن في هذه المرحلة أيضا أنا أتحمل أي خطأ في الأدخال استمرت المرحلة الثانية عدة سنوات وطورت الفكرة إلى المرحلة الثالثة والنهائية وهي التي أعمل بها الآن المرحلة الثالثة : عملت كشوفات اكسل لكل صف ونزلتها في قروب واتساب الخاص بالمدرسة الذي يجمع كل المعلمين فكل معلم يحمل الكشف الخاص بصفه ومادته فقط ثم يعبي الدرجات ويرسل الكشوفات لي بالواتساب وأنا أقوم (عن طريق البرمجة وليس نسخ ولصق ) بإدراجها في النظام * وهنا أنهيت مسؤولتي وأصبح كل معلم هو المسؤول عن اخطائه إذا كان هناك طريقة أسهل من هذه فأرجو من الأخوة القراء أتحافنا بها فالجميع يريد الوصول لهدف واحد وهو تبسيط العمل تقبل تحياتي .

بحسب الصورة والذي فهمته منها أنه يجب أن يكون عندك 4 قواطر 1 بترول 2 بترول 1 ديزل 2 ديزل ويجب أن يكون القراءة الحالية لأي يوم تساوي السابقة لليوم الذي بعده لا يكون هناك فرق في العدادات والصورة تظهر مشكلة فرق في القاطرة 2 بترول دعني أشرح لك ( وأنت بالتأكيد فاهم شغلك تمام ولكن لازم نفهم نحن شغلك علشان نساعدك في حل المشكلة حسب الصورة تابع معي سلوك القاطرة (مثلا) 1 بترول في يوم 1/10/2025 السابق 500 والحالي 1500 القاطرة قبل تحركها كانت 500 وبعد ما وصلت 1500 (تمام) في يوم 4/10/2025 السابق 1500 والحالي 2800 ( تمام) القاطرة قبل تحركها كانت 1500 وبعد ما وصلت 2800 (تمام) لا حظ الأن أن الرقم 1500 كان الحالي في 1/10 وأصبح السابق في 4/10 والى الآن كل شيء معقول , ولكن ولكن ! =========== عند تطبيق نفس المنطق السابق على القاطرة 2 بترول يظهر خطأ في يوم 1/10/2025 السابق 250 والحالي 2500 القاطرة قبل تحركها كانت 250 وبعد ما وصلت 2500(تمام) في يوم 4/10/2025 السابق 2800 والحالي 5600( خطأ ) القاطرة قبل تحركها كانت 2800 وبعد ما وصلت 5600 (خطأ ) لا حظ الأن أن الرقم 2500 كان الحالي في 1/10 ولم يصبح السابق في 4/10 بل أصبح 2800 وهذا يدل على وجود فارق 300 (هنا المشكلة) تقبل تحياتي

تفضل اختر ما يناسبك دمج مبلغ1.xlsx

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

الأفضل إرفاق النسخة الأخيرة من البرنامج التي تم العمل عليها

لا يوجد تحويل هجري دقيق 100% داخل الإكسل أفضل حل عملي: إضافة/طرح يوم باستخدام معادلة الطريقة : إذا كان لديك تاريخ ميلادي في الخلية A1 والتحويل الهجري يكون بأضافة أو أنقاص يوم ويتم مثلًا في B1: اكتب في B1 إحدى هذه المعادلتين : =TEXT(A1-1,"[$-ar-SA]dd mmmm yyyy") =TEXT(A1+1,"[$-ar-SA]dd mmmm yyyy") mmmm لإظهار الشهر بالحروف mm لإظهار الشهر بالرقم

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

وعليكم السلام وأنا أيضا حصل لي هذا الشيء

الحل في شيت جديد تفضل 333.xlsx

وعليكم السلام أخي لا يمكن تلبية طلبك بهذا الشكل أرسل ملف اكسل فيه الشرح بالتفصيل تقبل تحياتي

جرب هذا الحل تسجيل الطرمبات2.xlsx

الأن بحسب الصورة التي أرسلتها تبين أن الخلل في : الديزل وفي القاطرة 1 فقط في خانة السابق الأن المعادلة تظهر الرقم 7789 ما هو الرقم اصحيح الذي تريده أن يظهر ؟ الرجاء كتابة النتائج المتوقعة التي تريدها ان تظهر في النتيجة

وعليكم السلام ورحمة الله وبركاته تفضل جرب هذا الحل تسجيل الطرمبات1.xlsx

الطريقة الصحيحة (تغيير اتجاه الورقة بالكامل) افتح ملفك في WPS Spreadsheet 2020 من الشريط العلوي اختر: Page Layout (تخطيط الصفحة) اضغط على: Sheet Right-to-Left أو Right to Left ألغِ التحديد عنها ➜ ستصبح الورقة من اليسار إلى اليمين

للأسف: Fuzzy Lookup ليست إضافة رسمية من Microsoft ولا تتوافق مع إصدارات Office 2021/2024 الحديثة. هناك عدة دوال قد تغنيك عن الأضافة ارسل ملف اكسل فيه مثال لما تريد أنجازه لربما الخبراء يجدون لك حلا سهلا وبسيطا

تفضل جرب مثال1.xlsx

السلام عليكم ورحمة الله وبركاته أنت تريد إجمالي الكشوفات طيب الناتج أين سيظهر ؟ في سطر "إجمالي الكشف رقم 1 " أم "إجمالي الكشف رقم 2 " أم الخ الخ ملاحظة : اللون الأسود حول الكشوفات يزيد من حجم الملف الرجاء حذف اللون نهائيا وجعل ما حول الكشوفات بلا لون حتى يكون حجمه معقولا

وعليكم السلام ورحمة الله وبركاته تم تصحيح المعادلة في العمود Y قم بحذف المعادلات في X واستبدالها بـ Y ntega_elec_new1.xlsb

وهذا مثال عملي لست فيو1.xlsb

اللست فيو ميزاتها أفضل من اللست بوكس

ماشاء الله اللهم بارك 1 - لاحظت أن كل آيات (بسم الله الرحمن الرحيم) يوجد بعدها مسافة واحدة يعني بعد آخر حرف (وهو الميم) يوجد مسافة (طبعا هي غير مرئية) بينما في بقية الآيات لا توجد هذه المسافة كذلك في كثير من الآيات هكذا ولا أدري هل لهذا سبب في خاصية البحث أم لا 2 - كل الآيات مشكلولة إلا البسملة غير مشكولة لا زال البحث مستمرا وأي ملاحظات سأرسلها هنا بإذن الله

أن شاء الله ولكن لابد أن ترفق ملف اكسل توضيحي ثم تشرح المطلوب

إذا تطابق اللون والوصف والمقاس سيتم ألغاء الإضافة Private Sub CommandButton1_Click() Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Dim WS As Worksheet, rng As Range Dim lastRow As Long Set WS = Sheet1 If Me.TextBox4 = "" Then: Exit Sub '======= lastRow = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row For i = 2 To lastRow ' äÈÏà ãä ÇáÕÝ 2 assuming ÇáÕÝ ÇáÃæá ÚäÇæíä If WS.Cells(i, 2).Value = Me.TextBox1.Value _ And WS.Cells(i, 3).Value = Me.TextBox7.Value _ And WS.Cells(i, 4).Value = Me.TextBox2.Value _ Then MsgBox "ÇáÈíÇäÇÊ ÇáÊí ÊÍÇæá ÃÖÇÝÊåÇ ãæÌæÏÉ ãä ÞÈá", vbOKOnly, "ÈíÇäÇÊ ãßÑÑÉ" Exit Sub End If Next i '======= Set rng = WS.Range("a2100").End(xlUp).Offset(1, 0) rng.Offset(0, 0).Value = Me.TextBox4.Value rng.Offset(0, 1).Value = Me.TextBox1.Value rng.Offset(0, 3).Value = Me.TextBox2.Value rng.Offset(0, 5).Value = Me.TextBox3.Value rng.Offset(0, 6).Value = Me.TextBox5.Value rng.Offset(0, 7).Value = Me.TextBox6.Value rng.Offset(0, 2).Value = Me.TextBox7.Value For i = 1 To 7 Controls("textbox" & i).Text = Empty Next i Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub