نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيف تلعب صوت إذا تم استيفاء شرط في إكسيل؟

في إكسيل، يمكننا تطبيق التنسيق الشرطي لتنسيق وتسليط الضوء على الخلايا لتلبية الشرط ما تحتاج إليه، ولكن، في بعض الأحيان، قد تحتاج إلى تشغيل صوت إذا تم استيفاء شرط. على سبيل المثال، إذا كانت قيمة الخلية في أكسنومك أكبر من شنومك، أريد تشغيل صوت. إكسيل لا يدعم هذه الميزة، هذه المقالة، وسوف أعرض بعض رموز فبا لحل هذه المهمة.

تشغيل صوت صفير النظام الافتراضي على أساس قيمة الخلية مع التعليمات البرمجية فبا

تشغيل صوت مخصص استنادا إلى قيمة الخلية مع التعليمات البرمجية فبا

تشغيل صوت إذا تغيرت قيمة الخلية في عمود معين مع التعليمات البرمجية فبا


السهم الأزرق الفقاعة اليمنى تشغيل صوت صفير النظام الافتراضي على أساس قيمة الخلية مع التعليمات البرمجية فبا

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

1. اضغط باستمرار ALT + F11 مفاتيح، ثم يفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، ولصق التعليمة البرمجية التالية في وحدة نافذة او شباك.

رمز فبا: تشغيل صوت صفير النظام الافتراضي استنادا إلى قيمة الخلية:

Function BeepMe() As String
    Beep
    BeepMe = ""
End Function

3. ثم حفظ وإغلاق هذه النافذة التعليمات البرمجية، والعودة إلى ورقة العمل، وإدخال هذه الصيغة: = IF (A1> 300، BeepMe ()، "") في خلية فارغة بجانب الخلية تحتوي على القيمة التي تريد تشغيل صوت استنادا إلى، ثم اضغط أدخل مفتاح، لن يتم عرض أي شيء في الخلية الصيغة، انظر قطة:

دوك تشغيل الصوت إذا كونديتون صحيح شنومك

4. والآن، إذا كانت القيمة التي تم إدخالها في خلية أكسنومكس أكبر من شنومكس، سيتم تشغيل صوت صفارة النظام الافتراضي.


السهم الأزرق الفقاعة اليمنى تشغيل صوت مخصص استنادا إلى قيمة الخلية مع التعليمات البرمجية فبا

إذا كنت تريد أن تلعب بعض الصوت الأخرى من صوت نظام زمارة الافتراضي، وهنا أيضا رمز فبا يمكن أن تفعل لك صالح.

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

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

دوك تشغيل الصوت إذا كونديتون صحيح شنومك


السهم الأزرق الفقاعة اليمنى تشغيل صوت إذا تغيرت قيمة الخلية في عمود معين مع التعليمات البرمجية فبا

إذا كنت تريد تشغيل صوت إذا تغيرت قيمة الخلية في عمود معين، يمكنك تطبيق التعليمات البرمجية فبا التالية.

1. انقر بزر الماوس الأيمن فوق علامة التبويب ورقة التي تريد تشغيل صوت عندما تتغير القيمة في عمود، ثم اختر عرض الرمز من قائمة السياق، وفي فتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة، نسخ ولصق التعليمات البرمجية التالية في وحدة فارغة:

رمز فبا: تشغيل صوت إذا تغيرت قيمة الخلية في عمود:

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


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

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

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    a · 22 days ago
    Nice.

    Thanks
  • To post as a guest, your comment is unpublished.
    Marcelo · 1 months ago
    Hi adm. I am trying to create, via VBA, an "IF" command which would sound an specifc sentence when a pre determined condition is reached. Could you help me, please?
  • To post as a guest, your comment is unpublished.
    Marcelo · 1 months ago
    Hi adm. I am trying to create, via VBA, an "IF" command which would sound an specifc sentence when a pre determined condition is reached. Could you help me, please?
  • To post as a guest, your comment is unpublished.
    devraj · 2 months ago
    code is not working what i can do
  • To post as a guest, your comment is unpublished.
    Shehzad · 8 months ago
    Hey admin, please tell , if i want to save sound file in excel file and i will open my excel file in any computer , can i hear that sound ???
    • To post as a guest, your comment is unpublished.
      skyyang · 8 months ago
      Hello, Shehzad,
      If you apply the first and third VBA code to play a default system beep sound, the sound can be hear from any other computer. But, with the second vba code, you should set the custom sound to your need.

      Note: You should save the workbook as Excel Macro-Enabled Workbook format.
  • To post as a guest, your comment is unpublished.
    Excelakos · 2 years ago
    Hi there
    I try to use the Play a custom sound based on cell value with VBA code but i have a problem. Here is an example:
    I have a time countdown in cell A1 which means value changes per second.
    Then in cell B1 i have inserted =8/(24*60) in a 0:08:00 format
    So the if i use to trigger the sound is if B1>A1,SoundMe(),""
    But the sound will never be heard. I can hear a sound like something is looping and i guess it has something to do with the fact that the value is dynamically changing.
    Then i tried to alter the code in the part Call PlaySound("c:\windows\media\Speech On.wav", _
    0, SND_ASYNC Or SND_FILENAME)
    I changed SND_ASYNC with SND_SYNC.

    This way i managed to play the sound, but it gets repeating forever.

    Is there any solution like to trigger the sound only once meaning just the very first time the criteria is met and then stop ??
    Thank you a lot