نجوم المشاركات

أخي الكريم نور وحيد إليك الملف التالي إثراءً للحل Multi Data Validation List YasserKhalil.rar أخي الحبيب ياسر العربي حلك رائع جداً ..إضافة بسيطة لحلك هو إمكانية جعل القوائم كلها مطاطية أي غير ثابتة إليك حل المتميز ياسر العربي بإضافة بسيطة وهي جعل القوائم ديناميكية Multi Data Validation List Araby.rar

نرحب يالأخوة حسام (الصقر) و ياسر العربي و ابراهبم ابو ليلة في فريق الموقع و نهنئ أنفسنا بانضمامكم لفريق الموقع و جزاكم الله خيرا على جهودكم في نشر العلم و افادة الأعضاء

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

من منا من لم تحدث له هذه المشكلة وهي تعليق قاعد البيانات في الذاكرة فلا تفتح ولا تقفل مما يضطر البعض إلى إعادة تشغيل الجهاز إليكم هذه الطريقة البسيطة لتجاوز هذه المشكلة 1- اضغط على ctrl+Alt+Delet فيظهر أمامك إطار إدارة المهام افتح على تبويب التطبيقات كما في الصورة اليمنى ثم أشر عل قاعدة بياناتك فستلاحظ أن زر إنها المهمة أصبح فعالا فانقر عليه لإنهاء تشغيل القاعدة . 2- إذا لم تجد قاعدة بياناتك في هذا التبويب فافتح تبويب العمليات كما في الصورة اليسرى ولاحظ الاسم الذي تم التأشير عليه فهذا الاسم خاص بقواعد بيانات أكسس أشر عليه ثم اضغط انهاء العملية في الأسفل . مسألة صغيرة أرجو أن يكون نفعها أكبر ،،،

السلام عليكم اليكم طريقتي بدون عنصر الصورة ، وانما وضعت الصورة على الزر مباشرة 1. عملت صورة مائلة الى السواد لكل الازرار ، حيث سنستفيد منها عند الضغط على الزر حتى تعطينا الشعور بضغطة الزر وكتبت الكلمة التي يجب ان تكون على الزر ، حيث ان اعدادات الزر يأخذ احدهما: الكلمة/النص او الصورة ، ولا يأخذهما معا: . 2. هذه اعدادات الزر ، وسنجعل الصورة على خاصية Picture للزر: . وهذا كود ثلاثة احداث تقوم بالعمل: Option Compare Database Dim image_Path As String Private Sub cmd1001_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.cmd1001.Picture = image_Path & "\01-1.bmp" End Sub Private Sub cmd1001_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.cmd1001.Picture = image_Path & "\01.bmp" End Sub Private Sub Form_Load() On Error GoTo err_Form_Load image_Path = Application.CurrentProject.Path & "\icons" Me.cmd1001.Picture = image_Path & "\01.bmp" Me.cmd2005.Picture = image_Path & "\02.bmp" Me.cmd3008.Picture = image_Path & "\03.bmp" Exit Sub err_Form_Load: If Err.Number = 2220 Then Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . والنتيجة: . جعفر 235.Desktop.zip

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

تفضل اخى لعله المطلوب والشكر موصول لاستاذنا الغالي ياسر ابو البراء لفكه حماية الملف وتعديله ولكنك لم تلاحظ تعديله الا عندما اوضحت لك الفكرة وقمت ببعض التعديلات البسيطة CERTIFICAT.rar

ربما كان المطلوب Aziz2 salim.rar

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

السلام عليكم أخي الحبيب أبو البراء لاحظت أن الميديا فاير أسهل وأبسط في تنزيل الملفات الحمد لله وجزاكم الله خيراً البرنامج قيد التنزيل ...أرجو أن يتم ذلك قبل انقطاع الكهرباء..

الف مبروك للاخوة الاعزاء .. اتمنى لهم التوفيق

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

الف الف مبروك عقبالنا لما نتظور ونصبح امثالهم

الف مبروك للاخوة الاعزاء .. اتمنى لهم التوفيق

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

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه السلام عليكم ورحمة الله وبركاته... أقول لولدي الذي يحن ويتلهف قلبي لرؤيته ولو للحظة والذي أكرمني الله بحفيدة منه حيث لم أشهد عرسه ...أسماها { إسراء} الحمد لله الذي رزقك زوجة ولوداً، وجعلك ممن تخلفه ذريته. فكم من رجل عقيم لا يولد له ولد، وكم من امرأة كذلك. فهذه نعمة عظيمة { الْمَالُ وَالْبَنُونَ زِينَةُ الْحَيَاةِ الدُّنْيَا } [الكهف:46] ولهذا فاستقبل عطية الله عز وجل بفرح وسرور وشكر وحمد، ذكراً كانت هذه العطية أم أنثى. فيكفي أنها سليمة الأعضاء، مكتملة النمو، خالية من الأمراض، فتبارك الله أحسن الخالقين الذي وهب وأعطى بمنه وفضله: {يَهَبُ لِمَنْ يَشَاءُ إِنَاثاً وَيَهَبُ لِمَن يَشَاءُ الذُّكُورَ (49) أَوْ يُزَوِّجُهُمْ ذُكْرَاناً وَإِنَاثاً وَيَجْعَلُ مَن يَشَاءُ عَقِيماً} [الشورى:50،49] وقد وُلد للنبي r أربع من البنات - رضي الله عنهن - ولما ولد لإمام أهل السنة أحمد بن حنبل رحمه الله بنت قال: {الأنبياء آباء البنات، وقد جاء في البنات ما علمت } أي من فضل تربيتهن القيام عليهن. وكُره البنات من عادات الجاهلية؛ أما في الإسلام فإنهن من الأبواب الموصلة إلى الجنة قال : r {من عال جاريتين حتى تبلغا، جاء يوم القيامة أنا وهو هكذا} { وضم أصبعيه} [رواه مسلم]. بورك لك في الموهوبة وشكرت الواهب وبلغت رشدها ورزقت برها وأرجو الله أن يجعل ذرياتكم صالحين ناصحين بارين والسلام عليكم ورحمة الله وبركاته

هههههههههه هههههههههههه عليك عسل ياأبو البراء **** مبتفرقشى معايا أنذرات خليها كرت احمر وخلص فى الدور ماهيه راحت علينا والحمد لله على الصحة تمام الله ينورعليك وعاشت ايديك والله العظيم ياأبو البراء " وجود عطل بجهازى = وجود عطل فى تركيزى " داء بعيد عنك أضف الى ذلك لا أكل ولا شرب أستحلفك بالله لاتنسانى فى موضوعى القادم وهو ذات صلة بهذا الموضوع ولكن سيتم عرضه بموضوع منفصل ولاتنسى أن تُقبل يد البراء نيابة عن عمه سعيد أسعد الله قلبك كما اسعدتنى بهذة المشاركات القيمة بقيمتكم وقامتكم العالية وافر تقديرى واحترامى وجزاكم الله خيرا

جميل جدا اخي ياسر ابو البراء فعلا حلولك سهله ووافيه جعلها الله في ميزان حسناتكم شكرا لكم

آسف لم ألاحظ الخطأ سوى الآن حضرتك لحظ السطر الأول بالكود ستجد اسم مربع النص ( نص 184) وليس a11 1- غير اسم مربعى النص الى a11 & a11Hijri كما تريدهما أولا 2- أرجع الجملة التى حذفتها من قبل - .text- كما كانت ووافنا بالنتيجة

تفضل اخي لعله المطلوب قائمة منسدلة متعددة المصادر.rar

جواب المهندس ياسر فيه الكثير من الابداع والحكمة شكرا لك وباركك الله

تفضل أستاذ وائل تم التعديل على مرفقك - بشرط أن يكون مجلد الأيكونات موجود مع البرنامج بمكان واحد حاول تغير موضع البرنامج ووافنا بالنتيجة Desktop.rar

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

وأبو الشباب بعد والنِعم ، والسبعة انعام ، وانا أشهد على هذا تم غالي والطلب رخيص بس بدل ما اخلي بياناتي في الرابط اعلاه ، والقليل اللي بعرف عنه ، انا بخلي هذه المعلومات في ملفي الشخصي: http://www.officena.net/ib/profile/142414-jjafferr/?tab=field_core_pfield_25 جعفر

السلام عليكم ألف ألف مبروك للإخوة الأفاضل : حسام " الصّقر " ياسر العربي إبراهيم أبو ليله بارك الله فيكم جميعا وجزاكم الله خيرا

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

جيت على حد كدا انا ولا الكلام في محله

الف مبروك للاخوة الأفاضل مع كل كبسة Enter أقوم بها انا او غيري على الكيبورد الى مزيد من التقدم ان شاء الله

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

لا تَعذَلِيه فَإِنَّ العَذلَ يُولِعُهُ قَد قَلتِ حَقاً وَلَكِن لَيسَ يَسمَعُهُ جاوَزتِ فِي نصحه حَداً أَضَرَّبِهِ مِن حَيثَ قَدرتِ أَنَّ النصح يَنفَعُهُ فَاستَعمِلِي الرِفق فِي تَأِنِيبِهِ بَدَلاً مِن عَذلِهِ فَهُوَ مُضنى القَلبِ مُوجعُهُ قَد كانَ مُضطَلَعاً بِالخَطبِ يَحمِلُهُ فَضُيَّقَت بِخُطُوبِ الدهرِ أَضلُعُهُ يَكفِيهِ مِن لَوعَةِ التَشتِيتِ أَنَّ لَهُ مِنَ النَوى كُلَّ يَومٍ ما يُروعُهُ ما آبَ مِن سَفَرٍ إِلّا وَأَزعَجَهُ رَأيُ إِلى سَفَرٍ بِالعَزمِ يَزمَعُهُ كَأَنَّما هُوَ فِي حِلِّ وَمُرتحلٍ مُوَكَّلٍ بِفَضاءِ اللَهِ يَذرَعُهُ إِذا الزَمانَ أَراهُ في الرَحِيلِ غِنىً وَلَو إِلى السَندّ أَضحى وَهُوَ يُزمَعُهُ تأبى المطامعُ إلا أن تُجَشّمه للرزق كداً وكم ممن يودعُهُ وَما مُجاهَدَةُ الإِنسانِ تَوصِلُهُ رزقَاً وَلادَعَةُ الإِنسانِ تَقطَعُهُ قَد وَزَّع اللَهُ بَينَ الخَلقِ رزقَهُمُ لَم يَخلُق اللَهُ مِن خَلقٍ يُضَيِّعُهُ لَكِنَّهُم كُلِّفُوا حِرصاً فلَستَ تَرى مُستَرزِقاً وَسِوى الغاياتِ تُقنُعُهُ وَالحِرصُ في الرِزقِ وَالأَرزاقِ قَد قُسِمَت بَغِيُ أَلّا إِنَّ بَغيَ المَرءِ يَصرَعُهُ وَالدهرُ يُعطِي الفَتى مِن حَيثُ يَمنَعُه إِرثاً وَيَمنَعُهُ مِن حَيثِ يُطمِعُهُ اِستَودِعُ اللَهَ فِي بَغدادَ لِي قَمَراً بِالكَرخِ مِن فَلَكِ الأَزرارَ مَطلَعُهُ وَدَّعتُهُ وَبوُدّي لَو يُوَدِّعُنِي صَفوَ الحَياةِ وَأَنّي لا أَودعُهُ وَكَم تَشبَّثَ بي يَومَ الرَحيلِ ضُحَىً وَأَدمُعِي مُستَهِلّاتٍ وَأَدمُعُهُ لا أَكُذبُ اللَهَ ثوبُ الصَبرِ مُنخَرقٌ عَنّي بِفُرقَتِهِ لَكِن أَرَقِّعُهُ إِنّي أَوَسِّعُ عُذري فِي جَنايَتِهِ بِالبينِ عِنهُ وَجُرمي لا يُوَسِّعُهُ رُزِقتُ مُلكاً فَلَم أَحسِن سِياسَتَهُ وَكُلُّ مَن لا يُسُوسُ المُلكَ يَخلَعُهُ وَمَن غَدا لابِساً ثَوبَ النَعِيم بِلا شَكرٍ عَلَيهِ فَإِنَّ اللَهَ يَنزَعُهُ اِعتَضتُ مِن وَجهِ خِلّي بَعدَ فُرقَتِهِ كَأساً أَجَرَّعُ مِنها ما أَجَرَّعُهُ كَم قائِلٍ لِي ذُقتُ البَينَ قُلتُ لَهُ الذَنبُ وَاللَهِ ذَنبي لَستُ أَدفَعُهُ أَلا أَقمتَ فَكانَ الرُشدُ أَجمَعُهُ لَو أَنَّنِي يَومَ بانَ الرُشدُ اتبَعُهُ إِنّي لَأَقطَعُ أيّامِي وَأنفقُها بِحَسرَةٍ مِنهُ فِي قَلبِي تُقَطِّعُهُ بِمَن إِذا هَجَعَ النُوّامُ بِتُّ لَهُ بِلَوعَةٍ مِنهُ لَيلى لَستُ أَهجَعُهُ لا يَطمِئنُّ لِجَنبي مَضجَعُ وَكَذا لا يَطمَئِنُّ لَهُ مُذ بِنتُ مَضجَعُهُ ما كُنتُ أَحسَبُ أَنَّ الدهرَ يَفجَعُنِي بِهِ وَلا أَنَّ بِي الأَيّامَ تَفجعُهُ حَتّى جَرى البَينُ فِيما بَينَنا بِيَدٍ عَسراءَ تَمنَعُنِي حَظّي وَتَمنَعُهُ قَد كُنتُ مِن رَيبِ دهرِي جازِعاً فَرِقاً فَلَم أَوقَّ الَّذي قَد كُنتُ أَجزَعُهُ بِاللَهِ يا مَنزِلَ العَيشِ الَّذي دَرَست آثارُهُ وَعَفَت مُذ بِنتُ أَربُعُهُ هَل الزَمانُ مَعِيدُ فِيكَ لَذَّتُنا أَم اللَيالِي الَّتي أَمضَتهُ تُرجِعُهُ فِي ذِمَّةِ اللَهِ مِن أَصبَحَت مَنزلَهُ وَجادَ غَيثٌ عَلى مَغناكَ يُمرِعُهُ مَن عِندَهُ لِي عَهدُ لا يُضيّعُهُ كَما لَهُ عَهدُ صِدقٍ لا أُضَيِّعُهُ وَمَن يُصَدِّعُ قَلبي ذِكرَهُ وَإِذا جَرى عَلى قَلبِهِ ذِكري يُصَدِّعُهُ لَأَصبِرَنَّ على دهر لا يُمَتِّعُنِي بِهِ وَلا بِيَ فِي حالٍ يُمَتِّعُهُ عِلماً بِأَنَّ اِصطِباري مُعقِبُ فَرَجاً فَأَضيَقُ الأَمرِ إِن فَكَّرتَ أَوسَعُهُ عَسى اللَيالي الَّتي أَضنَت بِفُرقَتَنا جِسمي سَتَجمَعُنِي يَوماً وَتَجمَعُهُ وَإِن تُغِلُّ أَحَدَاً مِنّا مَنيَّتَهُ فَما الَّذي بِقَضاءِ اللَهِ يَصنَعُهُ

معالجة التكرار هذه فكرة ظريفة ومادام المسألة هكذا فيمكنك اختصار الارقام الى نصف العدد او اقل اما ثبات الارقام فيمكن تطبيقها بالاستعانة باستعلام بحيث يكون هو من تجرى عليه العملية بعد وضع المعيار المناسب للتعامل مع الحقول الفارغة فقط : وهو ماتم عمله من خلال الكود ادناه انسخه والصقه بدلا من الاول : Dim db1 As DAO.Database Dim rs As DAO.Recordset Set db1 = CurrentDb Set rs = db1.OpenRecordset("SELECT table1.nox, table1.nameX, table1.id, * " & vbCrLf & _ "FROM table1 " & vbCrLf & _ "WHERE (((table1.id) Is Null))") If rs.RecordCount > 0 Then rs.MoveFirst Else Exit Sub End If Do While Not rs.EOF rs.Edit rs!id = Format(Int(Rnd * 123456789), "0000000") rs.Update rs.MoveNext Loop rs.Close: Set rs = Nothing

وعليكم السلام text2 = DateAdd("yyyy", 60, text1)

السلام عليكم انا عاجز عن الشكر للاخ khmb ولاعضاء الجروب واتمني لكم مزيد من النجاح المستمر

بارك الله فيك أخي الحبيب أبا الحسن والحسين ملف جميل جداً .. ورائع (سأحتفظ به في مكتبتي الخااااااااااصة) أخي الكريم إبراهيم السعيد يرجى تغيير اسم الظهور للغة العربية تقبلوا تحياتي

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

انا لم افهم سؤالك وان كنت تقصد shortcut فهذا بسيط خصائص النموذج -تبويب غير ذلك -اختر (لا) قائمة مختصرة

أخي الكريم رميلي تم فك حماية المصنف وعمل معادلة بسيطة جداً تعتمد على الخلية N1 في ورقة العمل (صفحة المعلومات) المسماة 333 إليك الملف المرفق عله يؤدي الغرض ..تم إخفاء العمود N في ورقة المعلومات (قائمة التلاميذ) المسماة 333 تقبل تحياتي CERTIFICAT.rar

السلام عليكم ورحمة الله مبروك للإخوة الأفاضل

إخواني وأحبابي في الله أخي الحبيب حسام عيسى أخي الغالي ياسر العربي أخي المتميز إبراهيم أبو ليلة ألف ألف مبروك بإنضمامكم لفريق الموقع ..أنتم أصلاً في الفريق (يعني مش لعيبة جدد!!) واعلموا أنها مسئولية وتكليف قبل أن تكون ترقية ووسام

السّلام عليكم و رحمة الله و بركاته ألف ألف مبروك للإخوة الأفاضل : حسام " الصّقر " ياسر العربي إبراهيم أبو ليله أسماء فعلاً تستحق التّشجيع و الرّقي و التّرقية أتمنّى مخلصا من كل قلبي لهؤلاء السّادة المزيد من النّجاحات و الترقيات في جميع الميادين و المجالات إن شاء الله يا رب فائق إحتراماتي للجميع

تفضل Database2.rar

هلا باخي ابوعبيد ان شاء الله ستحل عملت لك بعض التغييرات بحيث تعمل و الملف مشارك ...جرب الكود هذا وخبرنا كلمة السر 111 كما في الملف المرفق With ActiveWorkbook Application.DisplayAlerts = False .ExclusiveAccess Application.DisplayAlerts = True ActiveSheet.Unprotect 111 [A2] = [A1] ActiveSheet.Protect 111 Application.DisplayAlerts = False .KeepChangeHistory = True .SaveAs Filename:=ActiveWorkbook.FullName, AccessMode:=xlShared Application.DisplayAlerts = True End With تشغيل ماكرو في ملف مشارك.zip

السلام عليكم ورحمة الله وبركاته ^_^ اخواني حاولت ان اضيف عدة شروط الى الــ if ولاكن لم يقبل الاكسل ذالك لماذا هل الخللل في المعادلة وطريقتي في صياغتها ام ان الاكسل لا يدعم الامر هذا شاكر لكم وضحت لكم الجدول والمعادلة في المرفقات 999.rar

وفيك بارك نعم أخي بإمكانك تكتب الرقم في القائمة المنسدلة وتظهر المعلومات ... ومرفق مثال آخر 111.rar

شكرا وفقك الله ^_^

فعلا طريقتك هي الصحيحه ^_^ شكرا لك يا عزيزي وشكرا لتوضيحك الخطاء كذالك اشكر الاخوه الي ادلوا بدلوهم هنا واعطو كثير من الحلول ولاكن حل استاذي الفاضل هو الانسب كونه يحتمل اكثر من شرطين وبنفس الطريقة ^_^

الاخوة بالمنتدى ارجو قبول تعليقى هذا حيث ان هنالك رد وجه فيه احد الاخوة بان يراجع الفاصله حبيت اوضح لبعض الاخوة من اين اعرف هل المعادلات التى اقوم بكتابتها وينفذها جهازى تستخدم الفاصله المنقوطه ام العاديه ارجو ان اكون قد وفقت فى شرح المطلوب ام قسومى IF IF.rar

أخى الفاضل راجع الشروط مرة اخرى الشروط من 10 إلى 20 و من 30 إلى 40 من 50 إلى 60 يوجد فراغات فى الشروط

جرب هذه المعادلة: =IF(J23<=L23;"ttt";IF(J23<=L25;"yyyy";"mmm")) والحل في المرفق 999-1.rar

السلام عليكم أخي الكريم صياغتك للمعادلة غير سليمة في حالة وجود شرط مثل OR أو AND فإنك لابد أن تضع مكوناته بين قوسين ، راجع هذه المعادلة مع اعتبار الفاصلة او الفاصلة المنقوطة حسب جهازك =IF(OR(J23<L23,J23>L22),"ttt",IF(OR(J23>L25,J23<L24),"mmm",IF(OR(J23>L27,J23<L26),"yyy"))) أو =IF(OR(J23<L23;J23>L22);"ttt";IF(OR(J23>L25;J23<L24);"mmm";IF(OR(J23>L27;J23<L26);"yyy")))