Необходимо реализовать небольшой алгоритм

[Jimmy]

Здравствуйте! Я с программированием мало знаком, помогите, пожалуйста.
Не работает функция beep.... а мне нужно как-то оповещение реализовать. Например хороший вариант запускать объект(файл mp3) который на листе. Как это сделать макросом? Это естесственно после определенного события, т. е. if - then надо как-то использовать. Подскажите, пожалуйста, как это правильно должно выглядеть..
Т. е. алгоритм таков: существует ячейка A2 с формулой типа =A1-B1
Включаю макрос и он
1. Сравнивает значение A2 с A3
2. При A2<A3 активирует файл mp3, существующий на листе.

[Jimmy]

...

[Рыбка Рио]

Код Выделить Развернуть

Sub Main
'shell("aplay -q /home/user/curve.wav") 'Linux
shell("mplay32 /play /close c:\windows\media\chimes.wav") 'Windows
End Sub
?

[Jimmy]

Код:Sub Main'shell("aplay -q /home/user/curve.wav") 'Linuxshell("mplay32 /play /close c:\windows\media\chimes.wav") 'WindowsEnd Sub?

Спасибо, работает звук! У меня windows.

sub IFFFFFFF
Dim T As String
Dim U As String
T = "$T$1"
U = "$U$1"
If T < U Then
MsgBox "ляляля"
End If
end sub
Понятно, что написан код неправильно, но, думую, смысл понытен что надо исправить. Подскажите...

[Рыбка Рио]

Код Выделить Развернуть

sub IFFFFFFF
Doc = ThisComponent
Sheet = Doc.CurrentController.ActiveSheet
'Sheet = Doc.Sheets.getByName("Лист1")
Dim T As String
Dim U As String
T = "$T$1"
U = "$U$1"
If Sheet.getCellRangeByName("T1").Value < Sheet.getCellRangeByName("U1").Value then
MsgBox "ляляля",64
Else
MsgBox "ля",16
End If
end sub

[Jimmy]

Клио, спасибо преогромное!!! Все работает отлично. Сейчас все в один соберу и готово Не ожидал такую оперативность