Hirdetés

Keresés

Hirdetés

CyberSecurity Connect - blended learning, valódi labor kísérletezésre. Kiberbiztonsági képzés profiktól!
(használd a CYBSEC25PH kuponkódot további 20 ezer ft kedvezményért!)

Ú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

  • Fferi50

    Topikgazda

    válasz csferke #41861 üzenetére

    Szia!
    1. Amennyiben nincs a keresésnek eredménye, akkor #N/A hibaüzenet kerül az N23 cellába, tehát nem lesz "üres". Ezért ezt kell figyelembe venni a színezésnél.
    Hangjelzést nem tudsz makró nélkül adni szerintem, de a színezés feltételes formázással megoldható: cellák kijelölése képlettel, a képlet pedig: =ISERROR(N23) -- érvényessége az N23 cella - kitöltőszín piros vagy amilyet szeretnél. Azután, hogy az adat bekerül a megfelelő helyre, a feltételes formázás miatt a színezés "magától eltűnik".
    2. Ebben az esetben a cellaformátumot szövegre kell állítanod és úgy bevinni a számokat.
    Ha csak egy-két 0-val kezdődő számod van, akkor az adott cellába állva a szám elé aposztrófot ( ' ) téve szövegként fogja értelmezni az Excel.

    Üdv.

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