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
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:
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.
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:
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:
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
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
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...
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!