Note: The other languages of the website are Google-translated. Back to English

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


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (27)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أحاول استخدام تشغيل صوت مخصص بناءً على قيمة الخلية برمز VBA ولكن لدي مشكلة. فيما يلي مثال: لدي عد تنازلي للوقت في الخلية A1 مما يعني أن القيمة تتغير في الثانية. ثم في الخلية B1 ، قمت بإدخال = 8 / (24 * 60) بتنسيق 0:08:00 لذا إذا كنت تستخدم لتشغيل الصوت هو إذا كان B1> A1 ، SoundMe () ، "" ولكن الصوت لن يكون أبدًا سمع. يمكنني سماع صوت كأن شيئًا ما يتكرر وأعتقد أن له علاقة بحقيقة أن القيمة تتغير ديناميكيًا. ثم حاولت تغيير الكود في الجزء Call PlaySound ("c: \ windows \ media \ Speech On.wav" ، _ 0 ، SND_ASYNC أو SND_FILENAME) لقد غيرت SND_ASYNC باستخدام SND_SYNC. بهذه الطريقة تمكنت من تشغيل الصوت ، لكنه يتكرر إلى الأبد. هل هناك أي حل مثل تشغيل الصوت مرة واحدة فقط يعني في المرة الأولى التي يتم فيها استيفاء المعايير ثم التوقف ؟؟ شكرا جزيلا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا أحب مقالتك شكرا لمشاركة المقال.


تم تصغير هذا التعليق بواسطة المشرف على الموقع
مقالة جيدة يمكنك الاستماع إلى الموسيقى في https://bruitagesgratuits.com
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا المشرف ، من فضلك أخبر ، إذا كنت أرغب في حفظ ملف الصوت في ملف Excel وسأفتح ملف Excel الخاص بي في أي جهاز كمبيوتر ، هل يمكنني سماع هذا الصوت ؟؟؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا شهزاد
إذا قمت بتطبيق رمز VBA الأول والثالث لتشغيل صوت تنبيه النظام الافتراضي ، فيمكن سماع الصوت من أي كمبيوتر آخر. ولكن ، باستخدام كود vba الثاني ، يجب عليك ضبط الصوت المخصص حسب حاجتك.

ملاحظة: يجب عليك حفظ المصنف بتنسيق Excel Macro-Enabled Workbook.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
= إذا كان B1 <> A1 ، SoundMe () ، "" 希望 可以 幫 到 你
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الكود لا يعمل ما يمكنني فعله
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ايد. أحاول إنشاء ، عبر VBA ، أمر "IF" والذي قد يبدو جملة محددة عند الوصول إلى شرط محدد مسبقًا. هل يمكن ان تساعدني من فضلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ايد. أحاول إنشاء ، عبر VBA ، أمر "IF" والذي قد يبدو جملة محددة عند الوصول إلى شرط محدد مسبقًا. هل يمكن ان تساعدني من فضلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد قمت للتو بتنزيل ملف صوتي chakushinon123
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لطيفة.

شكر
تم تصغير هذا التعليق بواسطة المشرف على الموقع
صيغة Quando colo essa recebo um erro، como se estivesse faltando valor entra as aspas = IF (A1> 300، BeepMe ()، "")
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كان ذلك جميلًا وتم تعليمه جيدًا. استمتعت به كثيرا. شكرا جزيلا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لمزيد من الأصوات الشيقة ، يمكنك زيارةhttps://tonosdellamadacanciones.com/</a>؛ لتنزيل أحدث وأروع الأصوات على علامات التبويب الشهيرة من البلدان حول العالم.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Аниматоры в Белгороде благодарят вас! Спасибо. ы на детских праздниках постоянно используем музыку. لقد قمت بعمل ما تريده الآن!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا

هل يوجد اي حل يريد تفعيل الصوت مره واحده فقط يعني استيفاء المعايير الاولي ثم توقف ؟؟

اشكرك شكرا جزيلا
يمكنك معرفة الصوت هنا:https://sonneriepro.com/samsung/</a>;
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك! ы на детских праздниках используем разную музыку - https://surprise-show.com 
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا رجل أعمال ، واستخدام Excel مألوف للغاية. عادةً ما أقوم بحفظ أسماء المسارات في execl بحيث يكون العثور عليها أسهل من حفظها في الملفات. رائع ، الموسيقى التي أستخدمها للعمل تأتي من ZigTone.com ، يمكنك الذهاب إلى هناك ودراستها ، ربما يكون ذلك مفيدًا لك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
جراتسي مولت. كيفية استخدام طريقة الاستخدام العملي في هذه الحالة. aiuto بريزيوسو
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ليس فقط الصور أو الملفات. في بعض الأحيان يمكنك إدراج ملف موسيقى في EX على https://klingeltonkostenlos.de/klingeltone-filmmusik-gratis/. هذا شيء مثير للاهتمام ، أليس كذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عمل جيد! شكرًا جزيلاً على الرمز ، كان كل ما احتاجه
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Bonjour ، Le code ne fonctionne pas ،
Le code suivant est en rouge: Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
الاسم المستعار "PlaySoundA" (ByVal lpszName كسلسلة ، _
ByVal hModule As LongPtr ، ByVal dwFlags طويلة) مثل Boolean
Pour le code ci-dessous، j'ai un fichier mp3.Call PlaySound ("c: \ windows \ media \ Speech On.wav"، _
0 ، SND_ASYNC أو SND_FILENAME)
Faut il laisser \ Speech On.WavJ'ai essayé avec mp3 mais ça ne fonctionne pas.
بوفيز فو معدير؟


تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنني إدخال صوت mp3 بفترات ساعة واحدة؟

اشكرك شكرا جزيلا
يمكنك تعلم chakushinon123
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا على المقال الذي شاركته ، لقد كان مفيدًا جدًا. تحقق من المزيد من الخطوط المجانية على الإنترنت مجانًا تمامًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا على المقال الذي شاركته ، لقد كان مفيدا جدا بالنسبة لي !!! شكرا جزيلا لك
يمكنك معرفة الصوت هنا:https://sonneriesvip.com/</a>;
تم تصغير هذا التعليق بواسطة المشرف على الموقع
موقع جيد انا احب هذا الموقع
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مقالتك جيدة جدًا وأحبها كثيرًا ، أحدث الكتب المسموعة لعام 2022 على موقع horbuchkostenlos.de
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL