إكسل vba/ الدرس 331/ كود حصري. تنبيهات و رسائل صوتية في حالة تحقيق شرط معين أو عند القيام بأي إجراء
فائدة استخدام الرسائل الصوتية في الإكسل
الرسائل الصوتية هي أداة قوية لتوصيل المعلومات في Excel. يمكن استخدامها لنقل
المعلومات المهمة بسرعة وسهولة إلى المستخدمين، مثل الإرشادات أو التحذيرات أو
التذكير. يمكن أيضًا استخدام الرسائل الصوتية لتقديم ملاحظات حول إجراءات المستخدم،
مثلا عندما يقوم المستخدم
بإدخال قيمة غير صحيحة في خلية.
تعد الرسائل الصوتية مفيدة بشكل خاص للمستخدمين الذين قد لا يكونون
على دراية بواجهة Excel
أو الذين قد يجدون صعوبة في فهم التعليمات المكتوبة. من خلال توفير إرشادات صوتية،
يمكن للمستخدمين فهم ما يحتاجون إليه بسرعة وكيفية القيام به. بالإضافة إلى ذلك،
يمكن أن تساعد الرسائل الصوتية في تقليل مقدار الوقت الذي يقضيه في تدريب
المستخدمين الجدد من خلال تزويدهم بتعليمات واضحة وموجزة.
يمكن أيضًا استخدام الرسائل الصوتية لتقديم ملاحظات حول إجراءات
المستخدم. على سبيل المثال، إذا قام المستخدم بإدخال قيمة غير صحيحة في خلية،
فيمكن تشغيل رسالة صوتية تخبر المستخدم بخطئه وتزوده بالقيمة الصحيحة. يساعد هذا
النوع من الملاحظات على ضمان قيام المستخدمين بإدخال البيانات بشكل صحيح ويقلل من
مخاطر حدوث أخطاء في العمليات الحسابية أو الصيغ.
يمكن أيضًا استخدام الرسائل الصوتية لتذكير المستخدمين بالمواعيد
النهائية القادمة أو المهام التي يجب إكمالها. هذا مفيد بشكل خاص للمهام التي
تتطلب تحديثات أو تغييرات متكررة، مثل أنشطة الميزانية أو التنبؤ. من خلال توفير تذكيرا
صوتيا، من المرجح أن يتذكر المستخدمون مهامهم ويكملوها في الوقت المناسب.
أخيرًا، يمكن أن تساعد الرسائل الصوتية في تحسين تجربة المستخدم بشكل
عام من خلال جعل استخدام برنامج Excel
أكثر سهولة ومتعة. من خلال توفير إرشادات صوتية واضحة وملاحظات حول إجراءات المستخدم،
من المرجح أن يشعر المستخدمون بالراحة عند استخدام Excel ويصبحون أكثر إنتاجية في عملهم.
بشكل عام، تعد الرسائل الصوتية أداة فعالة لتوصيل المعلومات في Excel ويمكن أن تساعد في تحسين
تجربة المستخدم الإجمالية بجعلها أسهل وأكثر متعة في الاستخدام.
********************************************************
كود استخدام الرسائل الصوتية
Sub PlaySound()
On Error Resume Next
Dim rng As Range, cell As Range
Set rng = Selection
For Each cell In rng
If cell.Value = "Yes" Then
Application.Speech.Speak "Ok"
ElseIf cell.Value = "No" Then
Application.Speech.Speak "bad"
ElseIf cell.Value = "ممتاز" Then
Application.Speech.Speak "mumtaz"
ElseIf cell.Value = "جيد جدا" Then
Application.Speech.Speak "jayid jidana"
End If
Next cell
End Sub
