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

Автор Jimmy, 24 июня 2011, 18:37

0 Пользователи и 1 гость просматривают эту тему.

Jimmy

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

Jimmy

#1
...

Рыбка Рио

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

?
ubuntu 12.04 + LibO3.6.0

Jimmy

Цитата: Клио от 24 июня 2011, 18:58Код: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
ubuntu 12.04 + LibO3.6.0

Jimmy

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