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.