كيف تلعب صوتًا إذا تم استيفاء شرط في Excel؟
في Excel ، يمكننا تطبيق التنسيق الشرطي لتنسيق الخلايا وتمييزها لتلبي الشرط الذي تريده ، ولكن ، في بعض الأحيان ، قد ترغب في تشغيل صوت إذا تم استيفاء شرط. على سبيل المثال ، إذا كانت قيمة الخلية في A1 أكبر من 300 ، فأنا أريد تشغيل صوت. لا يدعم Excel هذه الميزة ، هذه المقالة ، سأقدم بعض أكواد VBA لحل هذه المهمة.
قم بتشغيل صوت تنبيه النظام الافتراضي بناءً على قيمة الخلية مع رمز VBA
قم بتشغيل صوت مخصص بناءً على قيمة الخلية برمز VBA
قم بتشغيل صوت إذا تغيرت قيمة الخلية في عمود معين برمز VBA
قم بتشغيل صوت تنبيه النظام الافتراضي بناءً على قيمة الخلية مع رمز VBA
فيما يلي رمز مفيد يمكنك تشغيل صوت تنبيه النظام الافتراضي عند استيفاء شرط معين ، يرجى القيام بذلك على النحو التالي:
1. اضغط باستمرار ALT + F11 مفاتيح ، ثم يفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود VBA: قم بتشغيل صوت تنبيه النظام الافتراضي بناءً على قيمة الخلية:
Function BeepMe() As String
Beep
BeepMe = ""
End Function
3. ثم احفظ وأغلق نافذة الكود ، ارجع إلى ورقة العمل ، وأدخل هذه الصيغة: = IF (A1> 300، BeepMe ()، "") في خلية فارغة بجانب الخلية تحتوي على القيمة التي تريد تشغيل صوت بناءً عليها ، ثم اضغط أدخل مفتاح ، لن يتم عرض أي شيء في خلية الصيغة ، انظر لقطة الشاشة:
4. والآن ، إذا كانت القيمة المدخلة في الخلية A1 أكبر من 300 ، فسيتم تشغيل صوت تنبيه للنظام افتراضيًا.
قم بتشغيل صوت مخصص بناءً على قيمة الخلية برمز VBA
إذا كنت ترغب في تشغيل صوت آخر غير صوت صفير النظام الافتراضي ، هنا أيضًا يمكن أن يقدم لك رمز VBA خدمة.
1. اضغط باستمرار على ALT + F11 مفاتيح ، ثم يفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا: قم بتشغيل صوت معين بناءً على قيمة الخلية:
#If Win64 Then
Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean
#Else
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Boolean
#End If
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Function SoundMe() As String
'Updateby Extendoffice 20161223
Call PlaySound("c:\windows\media\Speech On.wav", _
0, SND_ASYNC Or SND_FILENAME)
SoundMe = ""
End Function
3. ثم احفظ وأغلق نافذة الكود هذه ، وارجع إلى ورقة العمل ، وأدخل هذه الصيغة: = IF (A1> 300، SoundMe ()، "")في خلية فارغة بجانب الخلية تحتوي على القيمة التي تريد تشغيل صوت بناءً عليها ، ثم اضغط أدخل مفتاح ، لن يتم عرض أي شيء في خلية الصيغة ، انظر لقطة الشاشة:
4. من الآن فصاعدًا ، إذا تم إدخال قيمة أكبر من 300 في الخلية A1 ، فسيتم تشغيل صوت معين مرة واحدة.
ملاحظة: في الكود أعلاه ، يمكنك تغيير ملف الصوت wav حسب حاجتك من ج: \ نوافذ \ وسائط \ مسار الملف. انظر لقطة الشاشة:
قم بتشغيل صوت إذا تغيرت قيمة الخلية في عمود معين برمز VBA
إذا كنت تريد تشغيل صوت إذا تغيرت قيمة الخلية في عمود معين ، فيمكنك تطبيق التعليمات البرمجية لـ VBA التالية.
1. انقر بزر الماوس الأيمن على علامة تبويب الورقة التي تريد تشغيل صوت عندما تتغير القيمة في عمود ، ثم اختر عرض الرمز من قائمة السياق ، وفتح Microsoft Visual Basic للتطبيقات نافذة ، انسخ والصق الكود التالي في الوحدة النمطية الفارغة:
كود فبا: قم بتشغيل صوت إذا تغيرت قيمة الخلية في عمود:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20161223
Dim xCell As Range
On Error Resume Next
If Target.Columns.Count = 1 Then
If Intersect(Target, Columns(3)) Is Nothing Then
Exit Sub
Else
For Each xCell In Columns(3)
On Error Resume Next
If (xCell.Value = Target.Value) And (xCell.Value <> "") Then
Beep
Exit For
End If
Next
End If
End If
End Sub
ملاحظات: في الكود أعلاه ، الرقم 3 في السيناريو أعمدة (3) هو رقم العمود الذي تريد تشغيل الصوت عند تغير القيمة في هذا العمود.
2. ثم احفظ وأغلق نافذة التعليمات البرمجية هذه ، الآن ، إذا تغيرت قيمة الخلية في العمود الثالث ، فسيتم تشغيل صوت تنبيه النظام الافتراضي.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!