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

[talal baghdadi]

السلام عليكم 

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

تم اضافة كود من اجل تفعيل الوقت الحالي للساعة  في عامود n  يتم تفعيل الكود عند الضغط على زر تفعيل الوقت

يتم تحديد وقت العب في العامود m 

في العامود L يتم جمع وقت البداية مع وقت المراد لعبه  وعلى ذلك تم شرط اذا كان العامود N  اكبر من العامود L يتم تلوينه لمعرفة اذا تم انتهاء الوقت هنا بحاجة اضافة الصوت عندما يتحقق الشرط 

ملاحظات لطريقة عمل الملف في العامود A يتم وضع رقم الشاشة لفتح الوقت و في العامود E يتم اضافة اي رقم لغلاق الوقت في العامود G يتم تحديد نوع الجهاز من اجل احتساب الفاتورة 

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

وظهر مشكلة ثانية عند اضافة اي شاشة جديدة بيرجع يعطي تنبيه ( تم حذف الكود من الملف )talal.xlsmtalal.xlsm

 

 

 

 

[abouelhassan]

جرب

طبقاً للوصف السابق، يمكنك اتباع الخطوات التالية:

. ضع هذا الكود

Dim soundPlayed As Boolean

Sub ActivateTimer()
    soundPlayed = False
    ' Your existing code to activate the current time
End Sub

Sub CheckTime()
    Dim i As Integer
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        If Range("N" & i).Value > Range("L" & i).Value And Not soundPlayed Then
            Beep ' تشغيل الصوت هنا
            soundPlayed = True
        End If
    Next i
End Sub

Sub ResetSound()
    soundPlayed = False
End Sub

    

. قم بتعديل الكود الموجود لديك ليتناسب مع الكود المعطى. ابحث عن الجزء الذي يقوم بحساب الوقت وتحديد نهايته، واستبدله بالكود الجديد الموجود في الدالة `CheckTime`.
. قم بإضافة زر في ورقة العمل لتفعيل الوقت باستخدام الدالة `ActivateTimer`.
. قم بتعيين زر آخر لإعادة تهيئة المتغير `soundPlayed` باستخدام الدالة `ResetSound`.

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

[talal baghdadi]

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

[abouelhassan]

حدد الاوفيس المستخدم اخى