اذهب الي المحتوي
أوفيسنا

التعديل على ملف صوتي داخل خليه ملف اكسل


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

السلام عليكم

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

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

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

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

 

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

وعليكم السلام أخي الكريم

لم أفهم المطلوب بشكل واضح

قم بأخذ نسخة من ملفك واحذف منها كل الصفوف ما عدا 10 صفوف كمثال .. لتتضح صورة المطلوب بشكل أفضل

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

10 دقائق مضت, ياسر خليل أبو البراء said:

وعليكم السلام أخي الكريم

لم أفهم المطلوب بشكل واضح

قم بأخذ نسخة من ملفك واحذف منها كل الصفوف ما عدا 10 صفوف كمثال .. لتتضح صورة المطلوب بشكل أفضل

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

 

المطلوب يا استاذي   كيف استطيع التصرف بالملف يعني اغير اماكن الاوامر مثل هناك خليه مكتوب فيها " الخلاص " وهي c2   اريد اغيرها مثلا الى c3

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

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

لا يمكنني التخمين في الموضوع بدون الإطلاع على الملف المرفق ..أعتذر وأترك غيري للمشاركة في الموضوع 

يمكن رفع الملف على موقع رفع خارجي ثم تضع الرابط هنا ..

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

في 10/17/2016 at 17:13, ياسر خليل أبو البراء said:

لا يمكنني التخمين في الموضوع بدون الإطلاع على الملف المرفق ..أعتذر وأترك غيري للمشاركة في الموضوع 

يمكن رفع الملف على موقع رفع خارجي ثم تضع الرابط هنا ..

السلام عليكم  هذا رابط الملف يا استاذي

http://up.top4top.net/downloadf-291sx5l1-rar.html

صوت مع الاكسل http://up.top4top.net/downloadf-291sx5l1-rar.html

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

ادخل لمحرر الأكواد عن طريق Alt + F11 ، ثم عدل السطر التالي الذي يحتوي الخلية الهدف

WAVFile = ThisWorkbook.Path & "\" & Range("c2") & ".wav"

 

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

إليك الملف المعدل بعد إضافة تعديلات بسيطة على الدالة المعرفة لتتمكن من تشغيل أي ملف صوتي في نفس مسار المصنف الحالي .. حيث ستكتب المعادلة بالشكل التالي :

اسم الدالة المعرفة يليها قوس مفتوح ولها 3 بارامترات الأول الخلية المطلوب اختبار الشرط بها ، والثاني الشرط المطلوب والذي في حالة تحققه يتم تشغيل الملف الصوتي ، والثالث هو اسم الملف الصوتي المطلوب تشغيله في حالة تحقق الشرط

لتجربة الملف قم بإدخال قيمة أكبر من 1000 في الخلايا A5 أو N7 >>>إذا أردت إيقاف الملف الصوتي قم بتغيير القيمة إلى قيمة أقل من 1000

Play Sounds In VBA Using UDF Hanafy Officena

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

شكر خاص الى استاذى ياسر خليل أبو البراء على مجهوده الرائع

فـ أنت منارة لنا 

أنار الله طريقك فى الدارين 

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

بارك الله فيك أخي الكريم أحمد حليم ومشكور على مرورك العطر ودعائك الطيب .. ولك بمثله إن شاء الله

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

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

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



سجل دخولك الان
×
×
  • اضف...

Important Information