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

  • Delila_1

    veterán

    válasz csferke #41861 üzenetére

    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