momen268268

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

بعد التحية السلام عليكم ورحمة الله وبركاته قد تقدمت من فترة لهذا الصرح العظيم بسؤال وقد قام احد القائمين على هذا الموقع الاكثر من رائع بالرد الوافي والشافي لسؤالي ولكن اردت بعض التحديث على هذه المعادلة المعادلة المستخدمة حالياً =IFERROR(LOOKUP(1,0/MATCH("*"&Sheet2!$A$1:$A$45&"*",OFFSET(C69,,,COUNTIF(F:F,F69)),0),Sheet2!$B$1:$B$45),"") التحديث المطلوب على المعادلة هو جعل المعادلة تبحث في اكثر من عمود وحاولت اضافة اعمدة للمعادلة ولكن الموضوع لم يضبط معي سوف ارفق المثال مره اخرى المثال الاصلي TEST والمثال المطلوب التعديل عليه TEST2 وجزاكم الله خير الجزاء TEST.xls TEST2.xls

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

السادة/ تحية طيبة وبعد كنت قد بحثت عن موضوع هام وبعد ما توصلت الى صيغة المعادلة وقمت ببناءئها وجدت أن الاكسل لا يقبل المعادلات الطويلة واظهر لي رساله ان المعادلة طويله the specified formula cannot be entered because it uses more levels of nesting than are allowed in the current file format تم ارفاق نسخه من الملف المعادلة الطويله فى شيت 3 ما في شيت 1 معادلة مختصرة على 7 معادلات فقط وانا انوي ان تكون المعادلة بها مئات من الكلمات التي يتم البحث عنها ولكن كل ما المعادلة تكون اطول من 7 معادلات تخرج لي رساله ان المعادلة طويله فكره المعادلة انها تبحث عن كلمه داخل العنوان لتعطي المقابل لها من المنطقة التي بقى العنوان وهي طريقة من طرق معالجة البيانات New Microsoft Excel 97-2003 Worksheet - Copy.xls

الاخ العزيز الغالي @خالد سيسكو بعد التحية أشكرك على مجهودك الأكثر من رائع وأرجوا من الله أن يجعل هذا المجهود في ميزان حسناتك

الاخ العزيز الغالي @خالد سيسكو بعد التحية أشكرك على مجهودك الأكثر من رائع وأرجوا من الله أن يجعل هذا المجهود في ميزان حسناتك عندي سؤال آسف لو كنت هطول عليك عندما اضع اي فايل لا يعمل عندي إللا إذا غيرت اسمه إلى ringin وبالتالي يعمل معي اي فايل موسيقى اخرى لا يعمل السؤال الآن هل بإمكاني ان اضع اكثر من فايل فى قاعدة بيانات واحده ولكن باساء اخرى لان كل حدث سوف يصدر صوت معين في صدد المشروع الذي اقوم ببناءه ولكم مني جزيل الشكر والعرفان على مجهوداتكم الرائعة

اين اهل الخبرة؟

السلام عليكم ورحمة الله وبركاته اعزائي مشرفين ومشتركين هذا الصرح الاكثر من رائع والذي استفدت منه كثيرا جعله الله في ميزان حسناتكم جميع الميديولات لا تعمل في الاكسس عندي لاضافة ملف صوتي للاكسس ليعمل عند فتح فورم او تشغيل زر او اي حدث من احداث الاكسس برجاء الافاده لا هذه الطريقة Option Compare Database Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" _ (ByVal filename As String, ByVal snd_async As Long) As Long Function PlaySound(sWavFile As String) ' Purpose: Plays a sound. ' Argument: the full path and file name. If apisndPlaySound(sWavFile, 1) = 0 Then MsgBox "The Sound Did Not Play!" End If End Function ولا هذه الطريقة Option Compare Database Const snd_async = (1) Const SND_NODEFAULT = (2) Declare Function sndplaysound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Public Sub API_PlaySound(pWavFile As String) Dim LResult As Long 'Make a Windows API call to play a wav file LResult = sndplaysound(pWavFile, SND_NODEFAULT + snd_async) End Sub وشكرا حضور .mdb

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

مفيش حل لمشكلتي؟؟؟

مفيش حل لمشكلتي؟؟؟

مفيش حل لمشكلتي؟؟؟

مفيش حل لمشكلتي؟؟؟

مفيش حل لمشكلتي؟؟؟

بارك الله فيك اخي @Shivan Rekany جعله الله في ميزان حسناتك