megonil قام بنشر يونيو 1, 2011 قام بنشر يونيو 1, 2011 السلام عليكم ورحمه الله وبركاته ارجو من خبراء المنتدى مساعدتى اريد كود أو معادله تقوم بفتح ملف فلاش موجود بالفولدر الذى به ملف الإكسل عند تحقيق شرط معين فى خليه محدده ومرفق ملف فلاش للمساعده وانا فى إنتظار خبراتكم وشكرآ open flash.rar
عادل حنفي قام بنشر يونيو 1, 2011 قام بنشر يونيو 1, 2011 السلام عليكم اخي megonil اعذرني فليس محمل علي جهازي اكسل 2007 لذا قمت بعمل المطلوب علي 2003 ارجو التجربة و اخباري بالنتيجة تحياتي flash.rar
megonil قام بنشر يونيو 1, 2011 الكاتب قام بنشر يونيو 1, 2011 (معدل) السلام عليكم أشكرك بشده على هذا المجهود انا فعلآ هستفيد بيها لأنهاهتخلينى ابدع فى المجال ده بس الفكره اللى انا عايزها إنها تفتح خارج ملف الأكسل يعنى مثلآ لما يتحقق النتيجه 20 كما فعلت حضرتك فى المثال يتم فتح الملف خارج الإكسل كأنى بفتحه عادى open وبشكرك مره أخرى على النتيجه اللى حضرتك وصلتلها لأنها هتفدنى فى موضوع أخر واسف على الإطاله وتعبك معايا بس اتمنى حضرتك توصل للفكره اللى انا عايزها لأنى محتجها بشده وشكرآ مره أخرى تم تعديل يونيو 1, 2011 بواسطه megonil
عادل حنفي قام بنشر يونيو 2, 2011 قام بنشر يونيو 2, 2011 السلام عليكم اخي الله يوفقك هذا الكود يقوم بفتح ملف الفلاش الموجود في فس فولدر ملف الكسل عن طريق الانترنت اكسبلورر X = "C:\Program Files\Internet Explorer\iexplore.exe" y = ThisWorkbook.Path & "\flash.swf" Shell X & " " & y, vbNormalFocus جرب و اخبرني النتيجة تحياتي
عادل حنفي قام بنشر يونيو 2, 2011 قام بنشر يونيو 2, 2011 اما اذا كنت تقصد ان يكون تشغيل الملف عن طريق مشغل الفلاش قم بتحميل المشغل من علي الرابط التالي swiffplayer و عند الانتهاء من عمل الداونلود له قم بتسطيبه علي جهازك و لا تغير في اسمه او مكان تحميله وفك ضغط الفولدر المرفق في درايف ال c مثلا وقم بفتح ملف الاكسل و عندما تكون الخلية E4 =20 سيتم فتح ملف الفلاش عن طريق المشغل المحمل جرب و ان شاء الله يكون هذا ما تريده تحياتي flash.rar
megonil قام بنشر يونيو 2, 2011 الكاتب قام بنشر يونيو 2, 2011 (معدل) اشكرك بشده أستاذ عادل حضرتك نفذت الفكره ذى مانا كنت محتاجلها بالظبط الف شكر على فكره الفكره ده هضفها لبرنامج عامله من 6 سنين وبطور فيه كل سنه من تصميم ومعلومات اكتسبتها من المنتدى العظيم ده ومن اصدقاء ليه فى العمل وبإذن الله هضيف اسم حضرتك للمشاركين فى العمل بالمعلومه اللى حضرتك ضفتهالى والف شكر على مجهودك هبعتلك بإذن الله نسخه من البرنامج لما يكتمل والف شكر مره أخرى واكيد هيكون اول طرح هيكون فى منتدانا العظيم أوفيسنا ذى ما بعمل كل سنه بإذن الله أخوك محى الدين عنتر تم تعديل يونيو 2, 2011 بواسطه megonil
محمد يحياوي قام بنشر يونيو 2, 2011 قام بنشر يونيو 2, 2011 الاستاذ aah_aah2008 عمل ممتاز بارك الله فيك اخونا megonil اشكرك على الفكرة جزاك الله خيرا
عادل حنفي قام بنشر يونيو 2, 2011 قام بنشر يونيو 2, 2011 السلام عليكم اخي محى الدين بالتوفيق ان شاء الله و في انتظار الملف بعد اكماله اخي yahiaoui اشكرك اخي علي مروك و كلماتك تحياتي
ريان أحمد قام بنشر يونيو 3, 2011 قام بنشر يونيو 3, 2011 روعة فكرة جميلة جدا باركالله فيكم وإلى الأمام
megonil قام بنشر يونيو 4, 2011 الكاتب قام بنشر يونيو 4, 2011 السلام عليكم ورحمه الله وبركاته أ/عادل انا عارف انا متعبك معايا بس معلش استحملنى شويه طبعآ تنفيذ حضرتك للفكره ناجح جدآ وانا جربته فى اكتر من موضوع وناجح بس هو نجح لما انا اقول الخليه مثلآ A1 +A2 والشرط المتحقق يكون مثلآ فى الخليه A3 ونقوم بإدخال الأرقام فيتحقق الشرط وتظهر الفلاشه بنجاح ولكن إذا كان الشرط يتحقق تلقائى بدون ادخال أى بيانات لا تظهر الفلاشه رغم تحقق الشرط إلا اذا قمت بحركه غريبه اضغط F2 ثم أضغط على زر Anter وبعد هذه الحركه يتم فتح الفلاش واكيد جدوى الفكره عدم التدخل باى زر اخر فارجو معالجه ذالك فى المثال المرفق واسف على الإطاله والإزعاج اخوك محى الدين عنتر open flash.rar
عبدالله المجرب قام بنشر يونيو 4, 2011 قام بنشر يونيو 4, 2011 اخي محي الدين بعد اذن الفاضل عادل حنفي ملف الفلاش سيعمل اذا كان الشرط متحقق في الحالات التالية عند فتح الملف وعند الانتقال الى صفحة اخرى والعودة الى نفس الصفحة التي بها العمل ( للعلم يجب فك الملف ووضعه في القرص C) ان شاء الله يكون هذا ما قصدته وكل الشكر للاستاذ عادل حنفي على ابداعة الجميل ابواحمد flash.rar
megonil قام بنشر يونيو 4, 2011 الكاتب قام بنشر يونيو 4, 2011 اخى العزيز عبد الله اشكرك على مساعدتى بالفعل اعرف ما قصدته سيادتك بس انا محتاج تشتغل بدون فتح صفحه اخرى والعوده مره أخرى لنفس الصفحه واشكرك على مساعدتى
ياسر الحافظ قام بنشر يونيو 4, 2011 قام بنشر يونيو 4, 2011 شكرا للجميع والله اعمال متميزة وجديدة ( بالنسبة لي ) وفقكم الله ياسر الحافظ
Nino قام بنشر يونيو 4, 2011 قام بنشر يونيو 4, 2011 تم تعديل الكود وبهذا سوف يتم فتح ملف الفلاش حين يتحقق الشرط دون التنقل بين الصفحات واتمنى ان يفى هذا الغرض Private Sub Worksheet_Calculate() If Range("E4") = 1 Then X = ThisWorkbook.Path & "\flash player.exe" y = ThisWorkbook.Path & "\flash.swf" Shell X & " " & y, vbNormalFocus End If End Sub flash.rar
megonil قام بنشر يونيو 4, 2011 الكاتب قام بنشر يونيو 4, 2011 السلام عليكم ورحمه الله وبركاته اصدقائى فى المنتدى العزيز على قلبى اشكركم لتعاونكم معى وعلى وصولى للشاطئ الذى كنت ابحث عنه اشكر كل من ساعدنى فى تحويل هذه الفكره الى واقع ملموس اشكر أ/عادل حنفى أ/عبدالله أ/نادر سميح ولكم جزيل الشكر أخوكم محى الدين عنتر
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.