Автоматический запуск файла в Excel по условию

[pashulka]

Код: Выделить всё

Private Sub Worksheet_Calculate()

End Sub

[Sokl]

ПАШУЛЬКА дело говорит, только не договаривает...

Код: Выделить всё

Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" _
                Alias "PlaySoundA" ( _
                ByVal lpszName As String, _
                ByVal hModule As Long, _
                ByVal dwFlags As Long) As Long

Private Sub Play()
       PlaySound "c:\temp\chimes.wav", 0&, &H1
End Sub

Private Sub Worksheet_Calculate()
        If [A1].Value > [B1].Value Then Play
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If (Target = [A1]) Then
        If [A1].Value > [B1].Value Then Play
    End If
End Sub

http://sosokl.narod.ru/NePutayChelovekoff.xls

[Avsha]

Как вариант... не ругайте, если не подходит по условиям задачи...
-------------------------------------------------
1. Можно писать значения в .txt
2. bat-файлом сравнивать (вроде это можно реализовать на командах Пуск\Выполнить\cmd >help) и запускать .wav
а bat-файл пусть запускает как задачу по времени Планировщик задач Windows (1 раз в минуту, например)

[breeze]

Всем огромное спасибо!!!!
Всё работает!
Будут вопросы-сразу к вам)...