اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ارجو مساعدتى فى فتح ملف فلاش عند تحقيق الشرط


megonil

الردود الموصى بها

السلام عليكم ورحمه الله وبركاته

ارجو من خبراء المنتدى مساعدتى

اريد كود أو معادله تقوم بفتح ملف فلاش موجود بالفولدر الذى به ملف الإكسل عند تحقيق شرط معين فى خليه محدده

ومرفق ملف فلاش للمساعده

وانا فى إنتظار خبراتكم وشكرآ

open flash.rar

رابط هذا التعليق
شارك

السلام عليكم

أشكرك بشده

على هذا المجهود

انا فعلآ هستفيد بيها لأنهاهتخلينى ابدع فى المجال ده

بس الفكره اللى انا عايزها إنها تفتح خارج ملف الأكسل

يعنى مثلآ لما يتحقق النتيجه 20 كما فعلت حضرتك فى المثال يتم فتح الملف خارج الإكسل كأنى بفتحه عادى open

وبشكرك مره أخرى على النتيجه اللى حضرتك وصلتلها لأنها هتفدنى فى موضوع أخر

واسف على الإطاله وتعبك معايا بس اتمنى حضرتك توصل للفكره اللى انا عايزها لأنى محتجها بشده

وشكرآ مره أخرى

تم تعديل بواسطه megonil
رابط هذا التعليق
شارك

السلام عليكم

اخي

الله يوفقك

هذا الكود يقوم بفتح ملف الفلاش الموجود في فس فولدر ملف الكسل عن طريق الانترنت اكسبلورر

    X = "C:\Program Files\Internet Explorer\iexplore.exe"

    y = ThisWorkbook.Path & "\flash.swf"


    Shell X & " " & y, vbNormalFocus

جرب و اخبرني النتيجة

تحياتي

رابط هذا التعليق
شارك

اما اذا كنت تقصد ان يكون تشغيل الملف عن طريق مشغل الفلاش

قم بتحميل المشغل من علي الرابط التالي

swiffplayer

و عند الانتهاء من عمل الداونلود له قم بتسطيبه علي جهازك و لا تغير في اسمه او مكان تحميله

وفك ضغط الفولدر المرفق في درايف ال c مثلا وقم بفتح ملف الاكسل و عندما تكون الخلية E4 =20

سيتم فتح ملف الفلاش عن طريق المشغل المحمل

جرب و ان شاء الله يكون هذا ما تريده

تحياتي

flash.rar

رابط هذا التعليق
شارك

اشكرك بشده أستاذ عادل

حضرتك نفذت الفكره ذى مانا كنت محتاجلها بالظبط

الف شكر

على فكره الفكره ده هضفها لبرنامج عامله من 6 سنين

وبطور فيه كل سنه من تصميم ومعلومات اكتسبتها من المنتدى العظيم ده

ومن اصدقاء ليه فى العمل وبإذن الله هضيف اسم حضرتك للمشاركين فى العمل

بالمعلومه اللى حضرتك ضفتهالى

والف شكر على مجهودك

هبعتلك بإذن الله نسخه من البرنامج لما يكتمل والف شكر مره أخرى

واكيد هيكون اول طرح هيكون فى منتدانا العظيم أوفيسنا ذى ما بعمل كل سنه بإذن الله

أخوك

محى الدين عنتر

تم تعديل بواسطه megonil
رابط هذا التعليق
شارك

السلام عليكم ورحمه الله وبركاته

أ/عادل انا عارف انا متعبك معايا بس معلش استحملنى شويه

طبعآ تنفيذ حضرتك للفكره ناجح جدآ وانا جربته فى اكتر من موضوع وناجح

بس هو نجح لما انا اقول الخليه مثلآ A1 +A2 والشرط المتحقق يكون مثلآ فى الخليه A3

ونقوم بإدخال الأرقام فيتحقق الشرط وتظهر الفلاشه بنجاح

ولكن إذا كان الشرط يتحقق تلقائى بدون ادخال أى بيانات لا تظهر الفلاشه رغم تحقق الشرط

إلا اذا قمت بحركه غريبه اضغط F2 ثم أضغط على زر Anter وبعد هذه الحركه يتم فتح الفلاش واكيد جدوى الفكره عدم التدخل باى زر اخر

فارجو معالجه ذالك فى المثال المرفق

واسف على الإطاله والإزعاج

اخوك محى الدين عنتر

open flash.rar

رابط هذا التعليق
شارك

اخي محي الدين

بعد اذن الفاضل

عادل حنفي

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

ان شاء الله يكون هذا ما قصدته

وكل الشكر للاستاذ عادل حنفي على ابداعة الجميل

ابواحمد

flash.rar

رابط هذا التعليق
شارك

تم تعديل الكود

وبهذا سوف يتم فتح ملف الفلاش حين يتحقق الشرط دون التنقل بين الصفحات

واتمنى ان يفى هذا الغرض

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

رابط هذا التعليق
شارك

السلام عليكم ورحمه الله وبركاته

اصدقائى فى المنتدى العزيز على قلبى

اشكركم لتعاونكم معى وعلى وصولى للشاطئ الذى كنت ابحث عنه

اشكر كل من ساعدنى فى تحويل هذه الفكره الى واقع ملموس

اشكر

أ/عادل حنفى أ/عبدالله أ/نادر سميح

ولكم جزيل الشكر

أخوكم محى الدين عنتر

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information