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

وعليكم السلام ورحمة الله تعالى وبركاته جرب هدا =IFERROR(LOOKUP(2,1/((سبتمبر!$E$4:$GH$4="السعر")*INDEX(سبتمبر!$E$5:$GH$1000,MATCH(C5,سبتمبر!$C$5:$C$1000,0),0)),سبتمبر!E5:GH5),"") المشتريات.xlsx

تحياتي لك موفق دائما

تمام - تسلم

السلام عليكم ورحمة الله الشرح بالصور في الملف المرفق... تنسيق الفقرات.xlsx

وعليكم السلام ورحمة الله وبركاته لم التزم بالفورم الذي ارفقته واقدم لك فورم يؤدى نفس المهمة شاشة دخول 123.xlsm

بارك الله فيكم جميعا ولإثراء الموضوع وترتيب الكود وتنظيمه يمكننا استعمال هذه الدالة بعد التحسين تم جعل الأسماء المركبة بدلالة الكلمة الأولى في مصفوفة منفصلة عن الأسماء المركبة بدلالة الكلمة الثانية يمكن احضار الاسم الأول بتمرير رقم 1 في المعامل الثاني للدالة ويمكن احضار اسم الاب برقم 2 أو بدون المعامل الثاني Function SplitName(Name As String, Optional part As Integer = 2) As String Dim K As String, S As String, N As Integer, M As Integer, FirstName As String Dim startsNames As Variant, endsNames As Variant, sName As Variant K = Trim(Name): M = Len(K): S = " " ' مصفوفة الأسماء المركبة التي تبدأ بكلمات معينة startsNames = Array("عبد", "أبو", "ابو", "ام", "أم", "ذو", "امرؤ", "سيف", "زين", "روح", "عين") ' مصفوفة الأسماء المركبة التي تنتهي بكلمات معينة endsNames = Array("الله", "الدين", "بالله", "الزهراء", "الهدى") If InStr(1, K, S, 1) = 0 Then SplitName = Name Exit Function End If ' التحقق من الأسماء المركبة التي تبدأ بكلمات معينة For Each sName In startsNames If Left(K, Len(sName) + 1) = sName & " " Then FirstName = Left(K, InStr(Len(sName) + 2, K, S, 1) - 1) SplitName = IIf(part = 1, FirstName, Mid(K, Len(FirstName) + 1, Len(K))) Exit Function End If Next ' التحقق من الأسماء المركبة التي تنتهي بكلمات معينة For Each sName In endsNames If InStr(1, K, sName, vbTextCompare) > 0 Then FirstName = Left(K, InStr(1, K, sName, vbTextCompare) + Len(sName) - 1) SplitName = IIf(part = 1, FirstName, Mid(K, Len(FirstName) + 1, Len(K))) Exit Function End If Next ' إذا لم يكن الاسم مركبًا، عرض الاسم الأول فقط FirstName = Left(K, InStr(1, K, S, 1) - 1) SplitName = IIf(part = 1, FirstName, Mid(K, Len(FirstName) + 1, Len(K))) End Function بالتوفيق

استاذ @Moosak ❤️🌹 كملت التحديث مع اضافة ودمج مرفق استاذي @ابو جودي❤️🌹🌹 مميزات التحديث:☕ 1- واجهة Logen اختيار مقطع المفضل لديك يحفظ مع خيار التخصيص لا يمكن ضغط لا للاكلك ماوس او لفة اكليك (لا يمكن نقر على مؤشر الماوس ولا قائمة جانبية ) = فقط عرض الفيديو 💯 2-تخصيص اختيار الخلفية وخلفية سبلاش عند الاقلاع برنامج 3-تخصيص اختصار للبرنامج الى سطح المكتب وقائمة الويندوز وعند الاقلاع مع ازالة الكل 4- عمل نسخة احتياطية مبسط 5- عمل مجموعات بقائمة الرئيسية مع اضافة وتعديل والمزيد ========================== امكانية ضبط بنفس تصميم والمقايسات للواجهة Lol game 😁 يمكن تحسب مشغل غير اكسس تقدر تطور الى مشاريعك حسب رغبتكم مفتوح المصدر تحميل الملف https://www.mediafire.com/file/qdwrj97q5htvi2h/LoL_game_Work_Link_db_Ms_Access.rar/file

يااستاذ عبدالله بشير اشكرك اولا على حسن تعاونك مع جزيت الجنة انت واهلك ان شاء الله سارفق اليك الملف الصحيح وياريت تترك ماقبله من ملفات هذا الملف عند ادخال بيانات فى الئامة المنسدلة فى صف d,e,h فى اكثر من صف وقفل الشيت وفتحه يعطينى هذه الرسالة سادخل البيانات وسارفعه اليك وعندما تقوم انت بفتحه ستظهر لك الرسالة وشكرا اسم املف الذى ارفقته اليك مستخلص شامل مستخلص_شامل.xlsm

أهلا حنان.. ☺️ لا أكتمكِ سراً.. بعد أن ضمّنت ميكروسوفت أكسس بعنصر التحكم <Edge Browser Control> أنفقت وقتاً كبيراً في استكشافه! ولم أخرج من ذلك بشيء يمكن أن يكون صالحاً للنشر! لكن إذا كان هناك سؤال في جزئيةٍ محددة، سوف أجيبكِ على قدر ما وصلت إليه إن شاء الله، ولكن في مشاركةٍ مستقلة!