Kako predvajati zvok, če je v Excelu izpolnjen pogoj?
V Excelu lahko uporabimo pogojno oblikovanje za formatiranje in označevanje celic, da izpolnjujejo pogoj, kot ga potrebujete, včasih pa boste morda želeli predvajati zvok, če je pogoj izpolnjen. Če je na primer vrednost celice v A1 večja od 300, želim, da se predvaja zvok. Excel ne podpira te funkcije, v tem članku bom predstavil nekaj kod VBA za rešitev te naloge.
S kodo VBA predvajajte privzeti sistemski pisk, ki temelji na vrednosti celice
Predvajajte zvok po meri na podlagi vrednosti celice s kodo VBA
Predvajajte zvok, če se vrednost celice spremeni v določenem stolpcu s kodo VBA
S kodo VBA predvajajte privzeti sistemski pisk, ki temelji na vrednosti celice
Tu je priročna koda za predvajanje privzetega sistemskega piska, ko je izpolnjen določen pogoj. Naredite to:
1. Drži dol ALT + F11 tipke, nato odpre Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
Koda VBA: predvaja privzeti sistemski pisk na podlagi vrednosti celice:
Function BeepMe() As String
Beep
BeepMe = ""
End Function
3. Nato shranite in zaprite to okensko okno, se vrnite na delovni list in vnesite to formulo: = IF (A1> 300, BeepMe (), "") v prazno celico poleg celice vsebuje vrednost, na podlagi katere želite predvajati zvok, in pritisnite Vnesite ključ, v celici formule ne bo nič, glej posnetek zaslona:
4. In če je vnesena vrednost v celici A1 večja od 300, se bo predvajal privzeti sistemski pisk.
Predvajajte zvok po meri na podlagi vrednosti celice s kodo VBA
Če želite predvajati kakšen drug zvok, kot je privzeti sistemski pisk, vam lahko tukaj tudi usluga kode VBA.
1. Držite tipko ALT + F11 tipke, nato odpre Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
Koda VBA: predvajanje določenega zvoka na podlagi vrednosti celice:
#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. Nato shranite in zaprite to okensko okno, se vrnite na delovni list in vnesite to formulo: = IF (A1> 300, SoundMe (), "")v prazno celico poleg celice vsebuje vrednost, na podlagi katere želite predvajati zvok, in pritisnite Vnesite ključ, v celici formule ne bo nič, glej posnetek zaslona:
4. Od zdaj naprej se bo, če se v celico A300 vnese vrednost večja od 1, naenkrat predvajal določen zvok.
Opombe: V zgornji kodi lahko datoteko zvoka wav spremenite po svojih željah c: \ windows \ media \ pot datoteke. Oglejte si posnetek zaslona:
Predvajajte zvok, če se vrednost celice spremeni v določenem stolpcu s kodo VBA
Če želite predvajati zvok, če se vrednost celice spremeni v določenem stolpcu, lahko uporabite naslednjo kodo VBA.
1. Z desno miškino tipko kliknite jeziček lista, za katerega želite predvajati zvok, ko se vrednost spremeni v stolpcu, nato izberite Ogled kode v priročnem meniju in v odprtem Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo v prazen modul:
Koda VBA: predvajajte zvok, če se vrednost celice spremeni v stolpec:
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
Opombe: V zgornji kodi številka 3 v scenariju Stolpci (3) je številka stolpca, ki jo želite predvajati, ko se vrednost spremeni v tem stolpcu.
2. Nato shranite in zaprite to okensko okno. Če se vrednost celice spremeni v tretjem stolpcu, se bo predvajal privzeti sistemski pisk.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
