muzika i excel
1 отговора
120 прегледа
muzika i excel
Здравейте.
Искам да направя следното :
В екселска таблица при някакво събитие да ми се стартира музика ( например ако А1 = В1 да сестартира Winamp Media file), но не знам как да го осъществя.
За какво иде реч. Направил съм оптимизационна програмка, която сравнява детайли размества ги и т.н. Но тая програмка се върти неопределено време в зависимост от броя, големоната и др. неща. Та искам когато тя приключи да ми се "обади". Пробвах с Beep , но независимо от продължителноста на цикъла в който го вкарах се чува само единичен гонг и не може да ми заостри вниманието. А в стаята са около 6 компютъра и гонгове се чуват от всякъде.
Искам да направя следното :
В екселска таблица при някакво събитие да ми се стартира музика ( например ако А1 = В1 да сестартира Winamp Media file), но не знам как да го осъществя.
За какво иде реч. Направил съм оптимизационна програмка, която сравнява детайли размества ги и т.н. Но тая програмка се върти неопределено време в зависимост от броя, големоната и др. неща. Та искам когато тя приключи да ми се "обади". Пробвах с Beep , но независимо от продължителноста на цикъла в който го вкарах се чува само единичен гонг и не може да ми заостри вниманието. А в стаята са около 6 компютъра и гонгове се чуват от всякъде.
Re: muzika i excel
Измислих нещо:
If Range("A1") = Range("B1") then
ActiveSheet.OLEObjects.Add(Filename:= _
"C:\Documents and Settings\aleks\My Documents\Test.wav", Link:=False, _
DisplayAsIcon:=True, IconFileName:="packager.exe", IconIndex:=0, _
IconLabel:="Test.wav").Select
Selection.Verb Verb:=xlPrimary
End If
Забележка: Сигурността на VB трябва да е ниска в противен случай иска потвърждение за пускане
А и за гонга намерих решение. Явно процесура е много бърз (дано да не пиша глупости) и слива в едно изписукванията. Направих цикъл в който Beep се вклучва , ако стойността на променливата е кратна на някакво число.
Въпреки това, ако някой има някакво по просто и ефективно решение, моля да пише, защото ми се струва, че не го правя по най-елементарния начин. Отделен е въпроса, че с прикачането на обект големината на файла нараства много.Особено ако е mp3.
If Range("A1") = Range("B1") then
ActiveSheet.OLEObjects.Add(Filename:= _
"C:\Documents and Settings\aleks\My Documents\Test.wav", Link:=False, _
DisplayAsIcon:=True, IconFileName:="packager.exe", IconIndex:=0, _
IconLabel:="Test.wav").Select
Selection.Verb Verb:=xlPrimary
End If
Забележка: Сигурността на VB трябва да е ниска в противен случай иска потвърждение за пускане
А и за гонга намерих решение. Явно процесура е много бърз (дано да не пиша глупости) и слива в едно изписукванията. Направих цикъл в който Beep се вклучва , ако стойността на променливата е кратна на някакво число.
Въпреки това, ако някой има някакво по просто и ефективно решение, моля да пише, защото ми се струва, че не го правя по най-елементарния начин. Отделен е въпроса, че с прикачането на обект големината на файла нараства много.Особено ако е mp3.