Доброй ночи!
В вба я полный ноль и пытался приспособить то, что было найдено на просторах интернета в одного франкенштейна, но, к сожалению, знаний совершенно не хватает.
Вот два(3) макроса, каждый из которых отдельно прекрано работает, но скрестить у меня их не выходит.
Если бы вы могли помочь, или просто направить в нужную сторону был бы крайне признателен.
Заранее благодарен
В вба я полный ноль и пытался приспособить то, что было найдено на просторах интернета в одного франкенштейна, но, к сожалению, знаний совершенно не хватает.
Вот два(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 |
Заранее благодарен