Sub vremya()
Application.OnTime Now + TimeSerial(0, 0, 1), "vremya"
ActiveSheet.Range("N5").Value = Format(Time, "hh:mm:ss")

End Sub

Sub NextTime()
    Application.OnTime Now + TimeSerial(0, 0, 1), "NextTime"
  
      
     If [A2] > 0 And [A1] < 1 Then
          Call PlayMusic(Sound1)
' ставим 1 в ячейку [A1]
    End If
 End Sub

Sub NextTime()
    Application.OnTime Now + TimeSerial(0, 0, 1), "NextTime"
 
     
     If [A2] > 0 And [A1] < 1 Then
          Call PlayMusic(Sound1)
'И вот тут мы ставим 1 в ячейку [A1]
    End If
 End Sub

Sub NextTime()
    Application.OnTime Now + TimeSerial(0, 0, 1), "NextTime" 

     If [A2] > 0 And [A1] < 1 Then
          Call PlayMusic(Sound1)
'И вот тут мы ставим 1 в ячейку [A1]
    End If
 End Sub

 Sub NextTime()
    Application.OnTime Now + TimeSerial(0, 0, 1), "NextTime" 'вызов каждую 5 секунд

   If [A2] > 0 Then
         ' нажать альт+ф4
    End If
 End Sub

Dim mp As Object
Const SoundFile = "C:\Temp\1.wav"

Sub vremya()
Application.OnTime Now + TimeSerial(0, 0, 1), "vremya"
ActiveSheet.Range("N5").Value = Format(Time, "hh:mm:ss")

End Sub


 Sub NextTime()
    Application.OnTime Now + TimeSerial(0, 0, 1), "NextTime"
       If [A1] > 0 Then
          Call PlayMusic(SoundFile)
    End If
 End Sub

Sub PlayMusic(Filename)
  On Error Resume Next
  Dim f As String, i
  f = Trim(Filename)
  If Len(f) = 0 Or Len(Dir(f)) = 0 Then
    ' Файл не найден - воспроизводим, что найдем
    i = Int(9 * Rnd + 1)
    f = "C:\Temp\11" & i & ".wav"
  End If
  mp.stop
  Set mp = CreateObject("MediaPlayer.MediaPlayer")
  mp.AutoStart = True
  mp.Open f
End Sub

' ZVI:2008-10-25 Останов воспроизведения звука
Sub StopMusic()
  On Error Resume Next
  mp.stop
  Set mp = Nothing
End Sub

Sub NextTime()
    Application.OnTime Now + TimeSerial(0, 0, 1), "NextTime" 

        If [A1] > 0 Then
          Call PlayMusic(SoundFile)
    End If
 End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
      
    For Each cell In Target   'проходим по всем измененным ячейкам
       If Not Intersect(cell, Range("J1:J2")) Is Nothing Then  'если изменененная ячейка попадает в диапазон A2:A100
            With cell.Offset(0, 1)         'вводим в соседнюю справа ячейку дату
               .Value = Now
               .EntireColumn.AutoFit  'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
           End With
             
       End If
    Next cell
 
End Sub

Sub NextTime()
    Application.OnTime Now + TimeSerial(0, 0, 5), "NextTime" 'вызов каждую 5 секунд
    iP = [N1]
    iG = [N2]
     iK = [K14]
    iE = [K15]
        If iP > iG And iK > iE Then
          Call PlayMusic(SoundFile)
    End If
'        If [p5] > [g2] Then
'          Call Звук
'    End If
 End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
     
    For Each cell In Target   'проходим по всем измененным ячейкам
       If Not Intersect(cell, Range("J1:J2")) Is Nothing Then  'если изменененная ячейка попадает в диапазон A2:A100
            With cell.Offset(0, 1)         'вводим в соседнюю справа ячейку дату
               .Value = Now
               .EntireColumn.AutoFit  'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
           End With
            
       End If
    Next cell

End Sub

Sub NextTime()
    Application.OnTime Now + TimeSerial(0, 0, 5), "NextTime" 'вызов каждую 5 секунд
    iP = [N1]
    iG = [N2]
     iK = [K14]
    iE = [K15]
        If iP > iG And iK > iE Then
          Call PlayMusic(SoundFile)
    End If
'        If [p5] > [g2] Then
'          Call Звук
'    End If
 End Sub