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

أخي الكريم تفضل هذا النمط إن شاء الله يتضمن الاحتمالات الممكنة pattern = "(?:" & bookName & "\s*[|_/\\ -]*\s*[\s*|'\(\[\{""]*" & bookNum & "[\s*|'\)\]\ -}""]*)" يتم استبداله هنا بانتظار تجربتك للعديد من الاحتمالات وإذا قمت بتنشيط هذا الجزء من نفس الكود فيمكنك اختبار الدالة هكذا وستطبع النتيجة Sub testIsBookExist() Dim inputText As String Dim bookName As String Dim bookNum As String bookName = "المطالب" bookNum = "3298" inputText = DLookup("[NASS]", "TAB", "[MNO]=33976") inputText = Replace(inputText, "(", "|(") inputText = Replace(inputText, ")", " )''") If isBookInText(inputText, bookName, bookNum) Then Debug.Print "YES" Else Debug.Print "NO" End If End Sub أرجو من الله التوفيق والسداد

وعليكم السلام ورحمة الله تعالى وبركاته اظن ان الصيغة الصحيحة للسؤال هي حساب عدد الاختلافات جرب وضع احدى المعادلات التالية في الخلية E2 =SUM(IFERROR(1/COUNTIFS($D$5:$D$200;$D$5:$D$200;$F$5:$F$200;D2);0)) OR =IFERROR(SUM(IF(D2=$F$5:$F$200;1/(COUNTIFS($F$5:$F$200;D2;$D$5:$D$200;$D$5:$D$200));0));"") التكرار2.xlsx

مساكم الله بالخير والنور والسرور فيما يخص التطبيق 1- يبحث بإسم الكتاب من مربع النص والرقم من الجدول 2 - يبحث بإسم الكتاب فقط بدون الرقم هي فقط تجربة للأنتقال غلي المرحلة التي تليها فالتفكير كنت بفكر بصوت عالي 😄 وبعدين فكرت ان احنا ممكن نعمل نمط يتتبع اسماء الاكتب وأرقمها فممكن مثلاً في الجدول TAB نضيف عمود نستخرج في من النص الكتب الموجودة فيه بس ده هيحتاج اننا يكون معانا كل اسماء الكتب وكل الطرق اللي ممكن تورد بيها *معلومة عند إنشاء دالة تتبع النمط بـ Regex يمكن وضع أكثر من نمط كبدائل ان لم يجد هذا النمط يبحث عن أخر عموماً ده لو هيساعد معاك ممكن نشتغل عليها بس حاول توفرلي الانماط عشان ابداء اشتغل علي الدالة وأختبرها إن شاء الله وبعد كدا نشوف هنشغلها ازاي مع أسماء الكتب صورة من التطبيق الثاني : 😁 شكراً علي التوضيح ده علي الاقل في كولكشين الاستبعاد ممكن بدل ما نكتب 3 بدائل نكتب عساكر او البيهقي ده لو متاح انا بحاول اوصل الفكرة بعض الأسئلة 1- هل في قائمة بجميع الكتب وبدائلها 2- هل يوجد قائمة بأسماء الكتب وأرقامها 3- هل العمود MNOX ده موجود وانت بتحاول تصححه 4- متي سننتقل للبحث بأرقام الصفحات والاحتمالات الاخري ؟ ملحوظة : الان جميع الاكواد التي تعمل تعمد بشكل أساسي في التحقق من MNO أولاً فاذا كان موجود تنتقل اللي السجل التالي فقط إذا كان فارغاً تعمل وهذا توفيراً للوقت وخاصةً عن البحث باسم بديل فحتي لا يبدأ من جديد مع كامل القائمة يذهب فقط إلي الخانات الفارغة علي أي حال كل هذا يمكن تعديله فقد كنت حريصاً علي أنت تصل الي ما تريده وتطمئن إلي ان والحمد لله الأمر ممكن تحقيقه بفضل الله اذا كنت بحاجه إلي تعديل أي شئ فلا تتردد بالتوفيق

السلام عليكم ازاي اجبر المستخدم علي عدم ترك حقلين الاسم والتليفون فقط دون تسجيل وذلك عند اضافة سجل جديد بالنموذج mm.mdb

اعملى بقه افضل اجابه 😍

mm.mdb

أسهل طريقة في الجدول ضع الخيار مطلوب / نعم

If IsNull(Me.اسم الحقل) Then MsgBox "يجب كتابة الاسم" Cancel = True End If

**معادلة Excel لحساب النسبة المئوية للراتب بناءً على الوظيفة والاسم:** =IF(وظيفة=اسم_الوظيفة,نسبة_الوظيفة,IF(وظيفة=اسم_الوظيفة,نسبة_الوظيفة,IF(وظيفة=اسم_الوظيفة,نسبة_الوظيفة,IF(وظيفة=اسم_الوظيفة,نسبة_الوظيفة,0)))) **حيث:** * **وظيفة: هو اسم الوظيفة التي تريد حساب النسبة المئوية للراتب لها. * **اسم_الوظيفة:** هو اسم الوظيفة المحددة في خلية أخرى. * **نسبة_الوظيفة:** هي النسبة المئوية للراتب للوظيفة المحددة. **مثال:** إذا كان اسم المهندس في الخلية A1 واسم التصميم في الخلية B1، فيمكنك استخدام المعادلة التالية لحساب النسبة المئوية للراتب للمهندس: =IF(وظيفة=A1,0.8,IF(وظيفة=A1,0.5,IF(وظيفة=A1,0.45,IF(وظيفة=A1,0.3,0)))) باستبدال "وظيفة" بـ "A1" (اسم المهندس)، ستحصل على النتيجة التالية: =IF(A1="مهندس تصميم",0.8,IF(A1="مهندس أخصائي",0.5,IF(A1="أخصائي مشرف",0.45,IF(A1="أخصائي محاسب",0.3,0)))) **ملاحظة:** * يمكنك تعديل النسب المئوية في المعادلة لتتناسب مع هيكل الرواتب في مؤسستك. * يمكنك أيضًا إضافة وظائف أخرى إلى المعادلة حسب الحاجة.

**معادلة Excel لحساب النسبة المئوية للراتب بناءً على الوظيفة: =IF(وظيفة="مهندس تصميم",0.8,IF(وظيفة="مهندس أخصائي",0.5,IF(وظيفة="أخصائي مشرف",0.45,IF(وظيفة="أخصائي محاسب",0.3,0)))) **حيث:** * **وظيفة:** هو اسم الوظيفة التي تريد حساب النسبة المئوية للراتب لها. * **0.8:** هي النسبة المئوية للراتب لمهندس التصميم (80%). * **0.5:** هي النسبة المئوية للراتب لمهندس الأخصائي (50%). * **0.45:** هي النسبة المئوية للراتب لأخصائي المشرف (45%). * **0.3:** هي النسبة المئوية للراتب لأخصائي المحاسب (30%). **مثال:** إذا كان لديك مهندس تصميم اسمه أحمد، فيمكنك استخدام المعادلة التالية لحساب النسبة المئوية للراتب له: =IF(وظيفة="مهندس تصميم",0.8,IF(وظيفة="مهندس أخصائي",0.5,IF(وظيفة="أخصائي مشرف",0.45,IF(وظيفة="أخصائي محاسب",0.3,0)))) باستبدال "وظيفة" بـ "مهندس تصميم"، ستحصل على النتيجة التالية: =IF("مهندس تصميم",0.8,IF("مهندس أخصائي",0.5,IF("أخصائي مشرف",0.45,IF("أخصائي محاسب",0.3,0)))) =0.8 وهذا يعني أن أحمد، بصفته مهندس تصميم، يحصل على 80% من الراتب الأساسي. **ملاحظة:** * يمكنك تعديل النسب المئوية في المعادلة لتتناسب مع هيكل الرواتب في مؤسستك. * يمكنك أيضًا إضافة وظائف أخرى إلى المعادلة حسب الحاجة.

وعليكم السلام ورحمة الله وبركاته **دالة إظهار عدد مرات تكرار كلمة "الأول" أو "الثاني" مع شرط احتساب القيمة المكررة في العمود D مرة واحدة والقيمة الفريدة مرة واحدة:** =IFERROR(IF(COUNTIF($D$2:$D$100, D2)=1, 1, COUNTIF($D$2:$D$100, D2)-1), IF(D2="الأول" OR D2="الثاني", 1, 0)) **شرح الدالة:** * **IFERROR:** تتعامل هذه الدالة مع أي أخطاء قد تحدث في الدالة الداخلية. * **IF:** تتحقق هذه الدالة من شرطين: * **الشرط الأول:** إذا كانت القيمة في العمود D فريدة (أي لا تتكرر في العمود D)، فإنها ترجع 1. * **الشرط الثاني:** إذا كانت القيمة في العمود D مكررة، فإنها ترجع عدد مرات تكرارها ناقص 1. * **COUNTIF:** تحسب هذه الدالة عدد مرات تكرار قيمة معينة في نطاق محدد. * **D2:** يشير هذا إلى القيمة في الخلية D2، والتي سيتم التحقق من تكرارها. * **$D$2:$D$100:** يشير هذا إلى النطاق الذي سيتم البحث فيه عن القيم المكررة. * **OR:** تتحقق هذه الدالة من الشرطين "D2="الأول"" و"D2="الثاني"". * **1:** إذا تم استيفاء أي من الشرطين، فإن الدالة ترجع 1. * **0:** إذا لم يتم استيفاء أي من الشرطين، فإن الدالة ترجع 0.

سؤال بسيط ولكن الاجابة ليست بتلك السهولة في البداية لا اخفي اعجابي بطريقة الاستاذ @M.Abd Allah في كتابة الكود على الرغم من وجود الثغرات واعتقد ان وجوده مكسب كبير للموقع الاجابة نعم ممكن معالجة ثغرة الحقن وسبق ان تمت مناقشة الامر مع الاخ جعفر وقد قدم وقتها حل حاز على رضى السائل !! وهذا المهم في النهاية ولكن اخونا شايب يعتقد ان الموقع يحتوي على امثلة متميزة يمكن ان تكون اكثر امان الشايب

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

السلام عليكم ورحمة الله وبركاته أخي الكريم @nssj تم بحمد الله العمل علي التعديلات المطلوب الملف بالمرفقات كما تم التعديل علي بعض الأكواد سأحاول تغطية التعديلات وإن كان هناك أي استفسار أو طلب أخر فلا تتردد بانتظار التجربة والإفادة 1- فيما يخص التعديل الأول فما أردته هو ان يتم كل شي فالبحث كما هو ولكن فقط أردت تثبيت اسم الكتاب وعليه تم التعديل في الكود نفسه ليتضمن هذا الاحتمال دون أن يتأثر القديم فكانت التعديلات هي إضافة (Optional constName As Boolean = False) حتي يتم التمييز إذا كان اسم الكتاب ثابت ام متغير وبشكل افتراضي هي False فالاختيار الأساسي هو ان الاسم متغير يعتمد علي خانة اسم الكتاب بالجدول وهذا ما تم تعديله علي الكود If constName = False Then BookName = Nz(Trim(.Fields(bookNameCol)), "") Else BookName = Trim(bookNameCol) End If كما يجب التنبيه ان هذا الكود يعتمد بشكل أساسي علي الجدول TAB ومحتوياته بما فيها wipedNass تم التعديل علي (createBooksCollection) تم إضافة تحقق إذا كان العمود الثاني موجود لإضافة ما فيه وللعلم فالمطلوب لعمل هذا الكولكشين هو جزء يميز اسم الكتاب مثال اذا كان الكتاب الاسم الأول معجم ابن عساكر والثاني ابن عساكر في معجمه فيكفي ان يكون الاسم ابن عساكر في البحث او الاستبعاد ----------------------------------------------------- فيما يخص الطلب الثاني فقد تم عمل المطلوب بهذه الطريقة Public Function isBookInText(ByVal fullText As String, _ ByVal BookName As String, _ Optional ByVal bookNum As String = "") As Boolean On Error GoTo ErrorHandler Dim regex As Object Dim matches As Object Dim match As Object Dim pattern As String Set regex = CreateObject("VBScript.RegExp") If bookNum = "" Then pattern = "(?:" & BookName & "\s*-?\s*\(\d+(?:[/\\,\-_]\d+)*\))" Else pattern = "(?:" & BookName & "\s*-?\s*\(" & bookNum & "\))" End If With regex .Global = False .MultiLine = True .IgnoreCase = False .pattern = pattern End With Set matches = regex.Execute(fullText) If Not matches Is Nothing And matches.count > 0 Then ' Debug.Print "Book(s) found in text:" ' For Each match In matches ' Debug.Print " - " & match.Value ' Next isBookInText = True Else isBookInText = False End If CleanAndExit: If Not regex Is Nothing Then Set regex = Nothing If Not matches Is Nothing Then Set matches = Nothing Exit Function ErrorHandler: Debug.Print "Error: " & Err.Description isBookInText = False Resume CleanAndExit End Function فهذه الدالة يمكن استخدامها للبحث عن الكتاب برقم او بدون رقم وهي تبحث داخل النص وفق هذه الشروط اسم الكتاب يتبعه أي عدد من المسافات - او بدون ثم أي عدد من المسافات ثم ( ثم رقم مع فواصل او بدون ثم ) إذا تم تحديد نص للرقم اسم الكتاب يتبعه أي عدد من المسافات - او بدون ثم أي عدد من المسافات ثم ( النص المحدد ) هذا السطر من الكود (.Global = False) اذا كنت تريد للبحث ان يتوقف بعد اول نتيجة تم عمل هذه الدالة لتعود بـ True or False ولكن يمكن التعديل عليها لتعود بكامل النص مثلاً او تعود بالكتب الموجودة داخل النص التي ينطبق عليها الشروط السابقة تم تطبيق فكرة هذا التعديل للبحث برقم او بدون رقم في الملف المرفق تم إضافة كود لعمل تحديث للفورم قبل التنفيذ حتي يتأثر بالمتغيرات علي مربع النص بالتوفيق Smart_Search_Nssj_V6.zip

وعليكم السلام ورحمه الله وبركاته اتفضل انا معملتش حاجه غير تعديل في تصميم التقرير ليعرض كل الشهادات مسريله كما طلبت اتمني يكون ده طلبك وسواء فتحت التقرير لوحده أو من خلال form1 mas_s1 - edit.rar

حساب السن أول 10.xlsx

استاذ @2saad أنا كنت بدأت العمل بمرفق واذا حبيت التطبيق على مرفقك . مافي مانع لكن مو واضح طلبك .راجع مرفقى ووافني بالرد . DDCertificate.rar

وعليكم السلام ورحمة الله وبركاته تفضل لعله المطلوب نقل المبلغ.xlsx

وجدت هذا العمل الرائع في الانترنت منذ فترة وقدمه صاحبه مجاناً يرجو الدعاء لوالديه رحمهما الله تعالى :: بيانات صاحب العمل :: عبداللطيف طراقجي 2013و لغاية عام 2000 من عام ً مدرس تكنولوجيا المعلومات سابقا حاصل على شهادات في إدارة قواعد البيانات من شركة مايكروسوفت MCDBA SQLserver (Microsoft Certified Database Administrator) MOUS Access (Microsoft Office User Specialist) صفحته الشخصية My Certifications http://www.pinterest.com/abdotarakji/mycertifications هنا رابط التنزيل ولا تنسوني ووالديه وجميع المسلمين من دعائكم ،،،