Új hozzászólás Aktív témák

• Delila_1 veterán

  #41863

  #41861 csferke

  2019-10-04 10:13:22

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Delila_1

  veterán

  #41861 csferke

  Ahogy Fferi írta, csak makróval indíthatod a hangfájlt. A feltételes formázás is Fferi ajánlata szerint legyen.

  Az N2 képlete legyen
  =HA(FKERES(I5;Kupci!A1:N14;14;0)="";"";FKERES(I5;Kupci!A1:N14;14;0))
  mert másképp üres cella találatánál nulla értéket ad.

  A laphoz (amelyiken a képlet van) rendeld a makrót.

  Private Declare Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long

  Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

  Private Sub Worksheet_Change(ByVal Target As Range)
    Dim utvonal As String, WAVfile As String
    If Target.Address = "$I$5" Then
        If Len(Range("N23")) = 0 Then
            utvonal = "F:\Wav"   '*** saját útvonalad
          WAVfile = utvonal & "\" & "Bimm_bamm.wav" '*** saját hangfájlod
            Call PlaySound(WAVfile, 0&, SND_SYNC Or SND_FILENAME)
        End If
    End If
End Sub

Új hozzászólás Aktív témák