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

[دم الغزال]

السلام عليكم

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

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

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

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

 

[ياسر خليل أبو البراء]

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

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

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

[دم الغزال]

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

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

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

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

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

 

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

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

[ياسر خليل أبو البراء]

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

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

[دم الغزال]

في 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"

 

[ياسر خليل أبو البراء]

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

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

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

Play Sounds In VBA Using UDF Hanafy Officena

[احمد عبدالحليم]

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

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

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

[ياسر خليل أبو البراء]

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

[دم الغزال]

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

وبارك الله فيك

وأنار الله طريقك فى الدنياء والاخرة