طلب تعديل في كود تشغيل قائمة ملفات صوتية في الاكسل

[Ahmed Mohamed Eg]

طلب تعديل في كود تشغيل قائمة ملفات صوتية في الاكسل

الزملاء والأساتذة الكرام ... السلام عليكم ورحمة الله وبركاته , أرجو المساعدة في تعديل هذا الكود

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

طلب تعديل في كود تشغيل قائمة ملفات صوتية في الاكسل.rar

[أ / محمد صالح]

بإذن الله يكون هذا هو المطلوب

تفضل 

test1.xlsm

[Ahmed Mohamed Eg]

الأستاذ الفاضل / محمد صلاح 

تحية طيبة وبعد 

ارفقت لحضرتك الملف مرة أخرى به الكود البرمجي الذي أرسلته لي (جزاك الله خيرا) مضاف إليه ما اريد أن اصل إليه بصورة مصغرة ومختصرة 

وهي تشغيل قائمة الملفات الصوتية وألبوم صور معا في اليوزر فورم

هل ممكن أن اجعل الكود يعمل سيليكت متتالي اوتوماتيك فى الليست بوكس بعد انتهاء سماع الملف الصوتي

وفقكم الله تعالى بكل ما يفيد أعضاء المنتدى 

تشغيل قائمة ملفات صوتية وألبوم صور في اليوزر فورم.rar

[أ / محمد صالح]

للأسف لم أجد  شيئا يخص عند انتهاء تشغيل الملف يقوم بعمل كذا

فقمت بإعادة هيكلة الكود من جديد

إن شاء الله يكون المطلوب

لا تنس ان تشاركنا هذا الإبداع عند اكتماله

وفقنا الله جميعا لكل ما يحبه ويرضاه 

test.rar

[Ahmed Mohamed Eg]

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

الأستاذ الفاضل / محمد صلاح 

تسلم ايد حضرتك على ابداع هذا الكود - جزاك الله خيرا 

واجهتني مشكلة صغيرة حاولت كثيرا ايجاد حل لها بنفسي حتى لا أثقل على حضرتك - لكن للأسف لم أستطع

وهي باختصار ان الكود بيعتمد أن تكون أسماء الملفات في تسلسل منتظم 

أتمنى أن يكون هناك حل بحيث لو وضعت مجموعة ملفات مسماه بأرقام معينة في القائمة

مثلا آيات معينة فى موضوعات معينة -  يقوم اليوزر فورم بتشغيلها 

ممكن تجربة عرض آيات (1 - 5 - 7) من سورة الفاتحة فقط 

أتمنى أن يكتمل الموضوع - وأن يكون مفيدا للجميع - وان لا أكون أثقلت على حضرتك 

شكرا جزيلا 

 

 

 

 

[أ / محمد صالح]

مقترح جميل وللوصول إلى هذا يلزمنا:

* تعديل سطر رابط الملف في الكود إلى

wmp.Url = ThisWorkbook.Path & "\" & "mp3" & "\" & ListBox1.Value & ".mp3"

للاحظ أنه يقرأ قيمة العنصر المجدد وليس فهرسه

* وكذلك يلزمنا تغيير خاصية rowsource الخاصة بالقائمة إلى

=INDIRECT("a1:a"&COUNTA(A:A))

وتعني تحديد الخلايا المكتوب فيها فقط في العمود a

ويمكنك كتابة أسماء الملفات بصورة نصية أيضا مثل سورة كذا

[Ahmed Mohamed Eg]

شكرا جزيلا - أ / محمد صلاح - جزاك الله خيرا على اكتمال الموضوع 

أهدي لحضرتك لينك أول فيديو من الفيديوهات التي سوف يكون لك دائما الفضل فيها

https://youtu.be/tmQ8Mkn6K7E

[أ / محمد صالح]

شكرا لكلماتك الطيبة

خالص دعواتي بالتوفيق

أخوك

محمد صالــــــح