alarm in excel fie

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

اخي الكريم ما المقصود ب تنبيه

هل هو صوت او تلوين

او غير ذلك

آمل التوضيح مع وضع مثال لماتريد

جزاك الله كل خير

احمديعقوب كتب:

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

اخي الكريم ما المقصود ب تنبيه

هل هو صوت او تلوين

او غير ذلك

آمل التوضيح مع وضع مثال لماتريد

جزاك الله كل خير

الاهم هو الصوت ولامانع من التلوين

مثال:

لدي قائمة بادوية معينه او اغذيه واحد الحقول خاص بتاريخ انتهاء الصلاحيه , واذا حل تاريخ صلاحية دواء معين تظهر اشارة كتنبية

شكرا لتجاوبك

upup ( windows 7)

لقيت هذا الرابط اللي يضبط معه يقولي كيف:

http://answers.yahoo.com/question/index?qid=20100113105157AAS67U0

فيه هذا البرنامج قبل التحميل لازم تكون سيكيورتي الماكرو متوسطه( في ملف الاكسل) انا عندي وينوز 7 وتعبت ماتعودت عليه

http://www.spinnakeradd-ins.com/spinnaker_alerts.htm

حاولو تساعدوني ترا سهل ان شا الله

كود VBS:

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

Dim SndFile As String
Dim wFlags As Double
Dim result

Sub PlayIt()

SndFile = "C:\Warning.wav"
If Dir(SndFile) = "" Then
    MsgBox "Sorry no File to Play!"
    End
End If
result = sndPlaySound(SndFile, &H1)

End Sub

Sub Remainder()

For Each cell In Range("B8:B15")
    If (cell = Date) Then
        Call PlayIt
    End If
Next cell

End Sub

في المرفقات الملف مدمج به الكود المطلوب، الكود يتفرض كما ترى وجود ملف Warning.wav على القرص C:

عليك بتحديد المسار الذي سيتواجد به الملف الصوتي

وتغيير الـ Range الخاص بالتواريخ الذي سيتم التحقق منه

reminder_excel.rar

شكرا جزيلا و هذا ايضا لنفس الهدف

Sub Auto_Open()

Dim ValToFind As Long
Dim WhereToLook As Range
Dim CellToCheck As Range

On Error Resume Next

Set WhereToLook = Range("Q2:Q300")
ValToFind = Int(Now())

For Each CellToCheck In WhereToLook
    With CellToCheck
        If .Value = ValToFind Then
        .Select
        .Interior.ColorIndex = 4
        .Interior.Pattern = xlSolid
        MsgBox "At The green cell row ,the policy expired"

        End If
    End With
Next CellToCheck
  Exit Sub
End Sub

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

شكرا لك أخي Xacker

كوود رائع

وشكرا لك اخي NNoo

ماشاء الله اكواد كبيرة علينا

ممكن هذا Warning.wav لان موراضي ينفتح عندي

up up

مشكوووووووووووووور