Preskoči na glavno vsebino

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


puščica modri desni mehurček 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:

doc predvaja zvok, če je pogoj true 1

4. In če je vnesena vrednost v celici A1 večja od 300, se bo predvajal privzeti sistemski pisk.


puščica modri desni mehurček 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:

doc predvaja zvok, če je pogoj true 2

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:

doc predvaja zvok, če je pogoj true 3


puščica modri desni mehurček 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

doc predvaja zvok, če je pogoj true 4

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

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

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

zavihek kte 201905


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