وضع منبه صوتي في ملف اكسل

[israabbasi]

أخوتي الاعزاء:

السلام عليكم ورحمة الله وبركاته..

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

مع جزيل الشكر

ملاحظة: حاولت ارفاق الملف ولكن لم يحمل.

[الـعيدروس]

السلام عليكم

اضغط الملف عن طريق برامج الضغط " Winrara" أو "WinZib"

ثم أرفقه

[الـعيدروس]

السلام عليكم

جرب هذا الكود

سجلت ملف صوتي وتم إستخدامه في الملف

هذا الكود في مودويل

Public Declare Function Aud_Ali Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

وهذا الكود في حدث "Thisworkbook"

Private Const Sr_Ali As String = "as.wav"

Private Sub Workbook_Open()

Dim S As Worksheet

Dim R As Range

Set S = Sheets("Sheet1")

Path_A = ThisWorkbook.Path & ThisWorkbook.Application.PathSeparator & Sr_Ali

For Each R In S.Range("D5:D20")

If R <= [B1] And Not IsEmpty(R) Then

Aud_Ali Path_A, 0&

MsgBox "العقد التالي إنتهى " & ": " & "[" & R.Offset(0, -2).Text & "]" & " بتاريخ :" & R.Text & " تاريخ اليوم :" & WorksheetFunction.Text([B1], "YYYY,MM,DD"), vbExclamation, "تنبية !!!"

End If

Next

End Sub

على أن يكون الملف الصوتي مرفق في نفس فولدر ملف الاكسل

أتمنى أن أكون افدتك

وأي تعديلات او اضافات انا موجود

D_Ali.rar

[ابو تميم]

ما شاء الله أستاذ ابو نصار

كود جميل من أنامل ذهبية

أدام الله عليك الصحة والعافية

[الـعيدروس]

السلام عليكم

الاخ الحبيب أبو تميم

اشكرك على هذا المرور العطر والكلمات الطيبه

تقبل تحياتي وشكري

[israabbasi]

السلام عليكم ورحمة الله

أخي الفاضل استاذ عباد، جزاكم الله الف خير واشكركم جدا على المساعدة كثر الله من امثالك يارب.