انتقل إلى المحتوى الرئيسي

كيف تلعب صوتًا إذا تم استيفاء شرط في 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 ()، "") في خلية فارغة بجانب الخلية تحتوي على القيمة التي تريد تشغيل صوت بناءً عليها ، ثم اضغط أدخل مفتاح ، لن يتم عرض أي شيء في خلية الصيغة ، انظر لقطة الشاشة:

doc تشغيل الصوت إذا كان الشرط صحيحًا 1

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 ()، "")في خلية فارغة بجانب الخلية تحتوي على القيمة التي تريد تشغيل صوت بناءً عليها ، ثم اضغط أدخل مفتاح ، لن يتم عرض أي شيء في خلية الصيغة ، انظر لقطة الشاشة:

doc تشغيل الصوت إذا كان الشرط صحيحًا 2

4. من الآن فصاعدًا ، إذا تم إدخال قيمة أكبر من 300 في الخلية A1 ، فسيتم تشغيل صوت معين مرة واحدة.

ملاحظة: في الكود أعلاه ، يمكنك تغيير ملف الصوت wav حسب حاجتك من ج: \ نوافذ \ وسائط \ مسار الملف. انظر لقطة الشاشة:

doc تشغيل الصوت إذا كان الشرط صحيحًا 3


السهم الأزرق الحق فقاعة قم بتشغيل صوت إذا تغيرت قيمة الخلية في عمود معين برمز 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

doc تشغيل الصوت إذا كان الشرط صحيحًا 4

ملاحظات: في الكود أعلاه ، الرقم 3 في السيناريو أعمدة (3) هو رقم العمود الذي تريد تشغيل الصوت عند تغير القيمة في هذا العمود.

2. ثم احفظ وأغلق نافذة التعليمات البرمجية هذه ، الآن ، إذا تغيرت قيمة الخلية في العمود الثالث ، فسيتم تشغيل صوت تنبيه النظام الافتراضي.

أفضل أدوات إنتاجية المكتب

الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

علامة تبويب kte 201905


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (28)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have a school project. excel user form using for search a record using barcode.. Problem is that.. i want when trig a barcode specific text box value after update with a sound file each recorded ... means a student name appear in the background. for call on closing time.. pls guide...urgent
This comment was minimized by the moderator on the site
Your article is so good I like it very much, the latest audiobooks 2022 at horbuchkostenlos.de
This comment was minimized by the moderator on the site
Good site I love this website
This comment was minimized by the moderator on the site
Thanks for the article you shared, it was very helpful for me!!!Thank you very much
You can learn the sound here: <a href="https://sonneriesvip.com/">https://sonneriesvip.com/</a>;
This comment was minimized by the moderator on the site
Thanks for the article you shared, it was very helpful. Check out some more <a href="https://yofonts.com/">font free online</a> completely free.
This comment was minimized by the moderator on the site
Bonjour,Le code ne fonctionne pas,
Le code suivant est en rouge:Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean
Pour le code ci-dessous, j'ai un fichier mp3.Call PlaySound("c:\windows\media\Speech On.wav", _
0, SND_ASYNC Or SND_FILENAME)
Faut il laisser \Speech On.WavJ'ai essayé avec mp3 mais ça ne fonctionne pas.
Pouvez vous m'aider ?MerciCordialementRobert


This comment was minimized by the moderator on the site
Can i insert a mp3 sound with durations 1 hour?

Thank you very much
You can learn the chakushinon123
This comment was minimized by the moderator on the site
Nice Work! Thank you so much for the code, it was all that I needed
This comment was minimized by the moderator on the site
Not just photos or files. Sometimes you can insert a music file into the EX at https://klingeltonkostenlos.de/klingeltone-filmmusik-gratis/. This is an interesting thing, isn't it?
This comment was minimized by the moderator on the site
Grazie molte. ho utilizzato in modo proficuo tutti i tuoi esempi che sono stati chiari e illuminanti. aiuto prezioso
This comment was minimized by the moderator on the site
I am a business person, using Excel is too familiar. I usually save the names of tracks in execl so that it is simpler to find them than to save them in files. Great.The music I use for business comes from ZigTone.com.You can go there and study them, maybe it's good for you.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations