Страницы: 1
RSS
Звуковое оповещение при изменении данных в ячейке
 
Доброй ночи!
В вба я полный ноль и пытался приспособить то, что было найдено на просторах интернета в одного франкенштейна, но, к сожалению, знаний совершенно не хватает.

Вот два(3) макроса, каждый из которых отдельно прекрано работает, но скрестить у меня их не выходит.
Если бы вы могли помочь, или просто направить в нужную сторону  был бы крайне признателен.

Код
    Private Sub Worksheet_Change(ByVal Target As Range)
        For i = 1 To Sheets(1).Cells(Sheets(1).Rows.Count, "B").End(xlUp).Row
                 If Sheets(1).Cells(i, 2) > Sheets(1).Cells(i, 3) Then MsgBox "Еcть новая еденичка!" 'mciExecute ("Play C:\Windows\Media\tada.wav") '
        Next
        Application.Calculate
        Application.Calculation = xlCalculationManual
End Sub


Код
#If Win64 Then
    Private Declare PtrSafe Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
    (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As _
    Integer, ByVal hwndCallback As Integer) As Integer
#Else
    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
    (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As _
    Integer, ByVal hwndCallback As Integer) As Integer
#End If
 
 Sub RepeatSound()
    Call mciSendString("OPEN C:\sound.mp3 TYPE MpegVideo ALIAS MP3", "", 0, 0)
    Call mciSendString("PLAY MP3 REPEAT", "", 0, 0)
 End Sub
  
 Sub StopSound()
     Call mciSendString("CLOSE MP3", "", 0, 0)
 End Sub




Заранее благодарен
 
пишите / удаляйте числа и английские слова
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Большое спасибо! А возможно, чтобы она срабатывала на формулы?
Вот есть формула в ячейке А1, с таким условием: =ЕСЛИ(Лист2!A1=1;"Оповещение";""), если на листе 2 поставить 1, ничего не происходит, т.к., как я понял, ячейка, сама по себе не меняется, меняется только отображение.
Изменено: Tragah - 18.04.2018 15:35:40
Страницы: 1
Наверх