Přejít k hlavnímu obsahu

Jak přehrát zvuk, pokud je v aplikaci Excel splněna podmínka?

V aplikaci Excel můžeme použít podmíněné formátování k formátování a zvýraznění buněk tak, aby splňovaly podmínku, jak potřebujete, ale někdy je vhodné přehrát zvuk, pokud je podmínka splněna. Například pokud je hodnota buňky v A1 větší než 300, chci, aby se přehrával zvuk. Excel nepodporuje tuto funkci, tento článek, představím některé kódy VBA k vyřešení tohoto úkolu.

Přehrajte výchozí systémový zvukový signál na základě hodnoty buňky s kódem VBA

Přehrajte si vlastní zvuk založený na hodnotě buňky s kódem VBA

Přehrajte zvuk, pokud se hodnota buňky změní v konkrétním sloupci pomocí kódu VBA


šipka modrá pravá bublina Přehrajte výchozí systémový zvukový signál na základě hodnoty buňky s kódem VBA

Zde je užitečný kód pro přehrání výchozího zvukového signálu systému, když je splněna konkrétní podmínka, postupujte takto:

1. Podržte stisknuté tlačítko ALT + F11 klávesy, pak se otevře Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Přehrajte výchozí zvukový signál systému na základě hodnoty buňky:

Function BeepMe() As String
    Beep
    BeepMe = ""
End Function

3. Poté uložte a zavřete toto okno s kódem, vraťte se do listu a zadejte tento vzorec: = IF (A1> 300, BeepMe (), "") do prázdné buňky vedle buňky obsahuje hodnotu, na které chcete přehrát zvuk, a poté stiskněte vstoupit klíč, do buňky vzorce se nic nezobrazí, viz screenshot:

doc přehrává zvuk, je-li podmínka pravdivá 1

4. A nyní, pokud je zadaná hodnota v buňce A1 větší než 300, bude přehrán výchozí zvukový signál systému.


šipka modrá pravá bublina Přehrajte si vlastní zvuk založený na hodnotě buňky s kódem VBA

Pokud chcete přehrát jiný zvuk než výchozí systémový zvukový signál, zde vám může být laskavostí také kód VBA.

1. Podržte ALT + F11 klávesy, pak se otevře Microsoft Visual Basic pro aplikace okno.

2. klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Přehrajte konkrétní zvuk na základě hodnoty buňky:

#If Win64 Then
    Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
        Alias "PlaySoundA" (ByVal lpszName As String, _
        ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean
#Else
    Private Declare Function PlaySound Lib "winmm.dll" _
        Alias "PlaySoundA" (ByVal lpszName As String, _
        ByVal hModule As Long, ByVal dwFlags As Long) As Boolean
#End If
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Function SoundMe() As String
'Updateby Extendoffice 20161223
    Call PlaySound("c:\windows\media\Speech On.wav", _
      0, SND_ASYNC Or SND_FILENAME)
    SoundMe = ""
End Function

3. Poté uložte a zavřete toto okno s kódem, vraťte se do listu a zadejte tento vzorec: = IF (A1> 300, SoundMe (), "")do prázdné buňky vedle buňky obsahuje hodnotu, na které chcete přehrát zvuk, a poté stiskněte vstoupit klíč, do buňky vzorce se nic nezobrazí, viz screenshot:

doc přehrává zvuk, je-li podmínka pravdivá 2

4. Od této chvíle, pokud je do buňky A300 zadána hodnota větší než 1, bude najednou přehrán konkrétní zvuk.

Poznámky: Ve výše uvedeném kódu můžete změnit zvukový soubor wav podle svých potřeb c: \ windows \ media \ cesta k souboru. Viz screenshot:

doc přehrává zvuk, je-li podmínka pravdivá 3


šipka modrá pravá bublina Přehrajte zvuk, pokud se hodnota buňky změní v konkrétním sloupci pomocí kódu VBA

Pokud chcete přehrát zvuk, pokud se hodnota buňky změní v konkrétním sloupci, můžete použít následující kód VBA.

1. Při změně hodnoty ve sloupci klikněte pravým tlačítkem na kartu listu, kterou chcete přehrát, a poté vyberte Zobrazit kód z kontextového menu a v otevřeném Microsoft Visual Basic pro aplikace okno, zkopírujte a vložte následující kód do prázdného modulu:

Kód VBA: Přehrajte zvuk, pokud se ve sloupci změní hodnota buňky:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20161223
Dim xCell As Range
On Error Resume Next
If Target.Columns.Count = 1 Then
  If Intersect(Target, Columns(3)) Is Nothing Then
    Exit Sub
  Else
    For Each xCell In Columns(3)
        On Error Resume Next
        If (xCell.Value = Target.Value) And (xCell.Value <> "") Then
          Beep
          Exit For
        End If
     Next
  End If
End If
End Sub

doc přehrává zvuk, je-li podmínka pravdivá 4

Poznámka: Ve výše uvedeném kódu číslo 3 ve skriptu Sloupce (3) je číslo sloupce, který chcete přehrát zvuk při změně hodnoty v tomto sloupci.

2. A poté uložte a zavřete toto okno s kódem, nyní, pokud se změní hodnota buňky ve třetím sloupci, bude přehrán výchozí zvukový signál systému.

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
Comments (28)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have a school project. excel user form using for search a record using barcode.. Problem is that.. i want when trig a barcode specific text box value after update with a sound file each recorded ... means a student name appear in the background. for call on closing time.. pls guide...urgent
This comment was minimized by the moderator on the site
Your article is so good I like it very much, the latest audiobooks 2022 at horbuchkostenlos.de
This comment was minimized by the moderator on the site
Good site I love this website
This comment was minimized by the moderator on the site
Thanks for the article you shared, it was very helpful for me!!!Thank you very much
You can learn the sound here: <a href="https://sonneriesvip.com/">https://sonneriesvip.com/</a>;
This comment was minimized by the moderator on the site
Thanks for the article you shared, it was very helpful. Check out some more <a href="https://yofonts.com/">font free online</a> completely free.
This comment was minimized by the moderator on the site
Bonjour,Le code ne fonctionne pas,
Le code suivant est en rouge:Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean
Pour le code ci-dessous, j'ai un fichier mp3.Call PlaySound("c:\windows\media\Speech On.wav", _
0, SND_ASYNC Or SND_FILENAME)
Faut il laisser \Speech On.WavJ'ai essayé avec mp3 mais ça ne fonctionne pas.
Pouvez vous m'aider ?MerciCordialementRobert


This comment was minimized by the moderator on the site
Can i insert a mp3 sound with durations 1 hour?

Thank you very much
You can learn the chakushinon123
This comment was minimized by the moderator on the site
Nice Work! Thank you so much for the code, it was all that I needed
This comment was minimized by the moderator on the site
Not just photos or files. Sometimes you can insert a music file into the EX at https://klingeltonkostenlos.de/klingeltone-filmmusik-gratis/. This is an interesting thing, isn't it?
This comment was minimized by the moderator on the site
Grazie molte. ho utilizzato in modo proficuo tutti i tuoi esempi che sono stati chiari e illuminanti. aiuto prezioso
This comment was minimized by the moderator on the site
I am a business person, using Excel is too familiar. I usually save the names of tracks in execl so that it is simpler to find them than to save them in files. Great.The music I use for business comes from ZigTone.com.You can go there and study them, maybe it's good for you.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations