Note: The other languages of the website are Google-translated. Back to English

Hoe speel je een geluid af als aan een voorwaarde is voldaan in Excel?

In Excel kunnen we de voorwaardelijke opmaak toepassen om de cellen op te maken en te markeren om aan de voorwaarde te voldoen, maar soms wilt u misschien een geluid afspelen als aan een voorwaarde is voldaan. Als de celwaarde in A1 bijvoorbeeld groter is dan 300, wil ik dat er een geluid wordt afgespeeld. Excel ondersteunt deze functie niet, in dit artikel zal ik enkele VBA-codes introduceren om deze taak op te lossen.

Speel een standaard pieptoon van het systeem af op basis van de celwaarde met VBA-code

Speel een aangepast geluid op basis van de celwaarde met VBA-code

Speel een geluid af als de celwaarde verandert in een specifieke kolom met VBA-code


pijl blauw rechts bel Speel een standaard pieptoon van het systeem af op basis van de celwaarde met VBA-code

Hier is een handige code waarmee u een standaard pieptoon van het systeem kunt afspelen wanneer aan een specifieke voorwaarde is voldaan, doe dit als volgt:

1. Houd de toets ingedrukt ALT + F11 toetsen, dan opent het de Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: speel een standaard pieptoon van het systeem af op basis van een celwaarde:

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

3. Sla vervolgens dit codevenster op en sluit het, ga terug naar het werkblad en voer deze formule in: = ALS (A1> 300, BeepMe (), "") in een lege cel naast de cel bevat de waarde waarop u een geluid wilt afspelen, en druk vervolgens op Enter sleutel, wordt er niets weergegeven in de formulecel, zie screenshot:

doc speel geluid af als conditon waar is 1

4. En nu, als de ingevoerde waarde in cel A1 groter is dan 300, wordt een standaard pieptoon van het systeem afgespeeld.


pijl blauw rechts bel Speel een aangepast geluid op basis van de celwaarde met VBA-code

Als je een ander geluid wilt afspelen dan het standaard pieptoon van het systeem, kan hier ook een VBA-code je een plezier doen.

1. Houd de ALT + F11 toetsen, dan opent het de Microsoft Visual Basic voor toepassingen venster.

2. Klik Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: speel een specifiek geluid af op basis van een celwaarde:

#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. Sla vervolgens dit codevenster op en sluit het, keer terug naar het werkblad en voer deze formule in: = ALS (A1> 300, SoundMe (), "")in een lege cel naast de cel bevat de waarde waarop u een geluid wilt afspelen, en druk vervolgens op Enter sleutel, wordt er niets weergegeven in de formulecel, zie screenshot:

doc speel geluid af als conditon waar is 2

4. Als vanaf nu een waarde groter dan 300 wordt ingevoerd in cel A1, wordt een specifiek geluid tegelijk afgespeeld.

Notes: In de bovenstaande code kunt u het geluids-wav-bestand naar wens wijzigen van c: \ windows \ media \ bestandspad. Zie screenshot:

doc speel geluid af als conditon waar is 3


pijl blauw rechts bel Speel een geluid af als de celwaarde verandert in een specifieke kolom met VBA-code

Als u een geluid wilt afspelen als de celwaarde in een specifieke kolom verandert, kunt u de volgende VBA-code toepassen.

1. Klik met de rechtermuisknop op de bladtab waarvan u een geluid wilt afspelen wanneer de waarde in een kolom verandert, en kies vervolgens Bekijk code vanuit het contextmenu en in het geopende Microsoft Visual Basic voor applicaties venster, kopieer en plak de volgende code in de lege module:

VBA-code: speel een geluid af als de celwaarde in een kolom verandert:

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 speel geluid af als conditon waar is 4

Opmerking:: In de bovenstaande code, het nummer 3 in het script Kolommen (3) is het kolomnummer dat u wilt laten klinken als de waarde in deze kolom verandert.

2. En sla vervolgens dit codevenster op en sluit het. Als een celwaarde verandert in de derde kolom, wordt een standaard pieptoon van het systeem afgespeeld.


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!
officetab onderkant
Comments (26)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Hallo daar, ik probeer een aangepast geluid af te spelen op basis van celwaarde met VBA-code, maar ik heb een probleem. Hier is een voorbeeld: ik heb een aftelling van de tijd in cel A1, wat betekent dat de waarde per seconde verandert. Dan heb ik in cel B1 =8/(24*60) in een 0:08:00 formaat ingevoegd. Dus als ik gebruik om het geluid te activeren is als B1>A1,SoundMe(),"" Maar het geluid zal nooit gehoord. Ik hoor een geluid alsof er iets in een lus loopt en ik denk dat het iets te maken heeft met het feit dat de waarde dynamisch verandert. Toen probeerde ik de code in het gedeelte Call PlaySound ("c:\windows\media\Speech On.wav", _ 0, SND_ASYNC of SND_FILENAME) te wijzigen. Ik veranderde SND_ASYNC met SND_SYNC. Op deze manier slaagde ik erin om het geluid af te spelen, maar het wordt voor altijd herhaald. Is er een oplossing om het geluid maar één keer te activeren, wat betekent dat alleen de allereerste keer dat aan de criteria wordt voldaan en dan stoppen ?? Heel erg bedankt
Deze opmerking is gemaakt door de moderator op de site
Ik ben dol op je artikel, bedankt voor het delen van het artikel.


Deze opmerking is gemaakt door de moderator op de site
goed artikel waar je naar muziek kunt luisteren op https://bruitagesgratuits.com
Deze opmerking is gemaakt door de moderator op de site
Hey admin, vertel alsjeblieft, als ik een geluidsbestand in een Excel-bestand wil opslaan en ik zal mijn Excel-bestand op elke computer openen, kan ik dat geluid horen ???
Deze opmerking is gemaakt door de moderator op de site
Hallo, Shehzad,
Als u de eerste en derde VBA-code toepast om een ​​standaard systeempiepgeluid af te spelen, is het geluid te horen vanaf elke andere computer. Maar met de tweede vba-code moet u het aangepaste geluid naar wens instellen.

Opmerking: u moet de werkmap opslaan als Excel Macro-Enabled Workbook-indeling.
Deze opmerking is gemaakt door de moderator op de site
code werkt niet wat ik kan doen
Deze opmerking is gemaakt door de moderator op de site
Hallo adm. Ik probeer via VBA een "IF"-opdracht te maken die een specifieke zin zou laten klinken wanneer een vooraf bepaalde voorwaarde is bereikt. Kan u me alstublieft helpen?
Deze opmerking is gemaakt door de moderator op de site
Hallo adm. Ik probeer via VBA een "IF"-opdracht te maken die een specifieke zin zou laten klinken wanneer een vooraf bepaalde voorwaarde is bereikt. Kan u me alstublieft helpen?
Deze opmerking is gemaakt door de moderator op de site
ik heb net een geluid gedownload chakushinon123
Deze opmerking is gemaakt door de moderator op de site
Nice.

Bedankt
Deze opmerking is gemaakt door de moderator op de site
Quando colo essa formule recebo um erro, como se estivesse faltando valor entra as aspas = IF (A1>300, BeepMe (), "")
Deze opmerking is gemaakt door de moderator op de site
Dat was mooi en goed onderwezen. Veel genoten. Hartelijk bedankt!
Deze opmerking is gemaakt door de moderator op de site
Voor meer interessante geluiden kunt u terecht ophttps://tonosdellamadacanciones.com/</a>; om de nieuwste en coolste geluiden te downloaden op populaire tabbladen uit landen over de hele wereld.
Deze opmerking is gemaakt door de moderator op de site
иматоры елгороде благодарят ас! асибо. а детских праздниках постоянно используем музыку. ого любой етский праздник сто раз ярче и веселее!
Deze opmerking is gemaakt door de moderator op de site
Hallo

Is er een oplossing die de audio slechts één keer wil activeren, wat betekent dat alleen aan de eerste criteria wordt voldaan en vervolgens wordt gestopt ??

Heel erg bedankt
Je kunt het geluid hier leren:https://sonneriepro.com/samsung/</a>;
Deze opmerking is gemaakt door de moderator op de site
Dank u! на детских праздниках используем разную музыку - https://surprise-show.com 
Deze opmerking is gemaakt door de moderator op de site
Ik ben een zakenman, het gebruik van Excel is te vertrouwd. Ik sla de namen van tracks meestal op in execl, zodat het eenvoudiger is om ze te vinden dan om ze in bestanden op te slaan. Geweldig. De muziek die ik zakelijk gebruik, komt van ZigTone.com. Je kunt daarheen gaan en ze bestuderen, misschien is het goed voor je.
Deze opmerking is gemaakt door de moderator op de site
Grazie molte. ho utilizzato in modo proficuo tutti ik esempi che sono stati chiari en illuminanti. aiuto prezioso
Deze opmerking is gemaakt door de moderator op de site
Niet alleen foto's of bestanden. Soms kunt u een muziekbestand in de EX invoegen op https://klingeltonkostenlos.de/klingeltone-filmmusik-gratis/. Dit is een interessant iets, niet?
Deze opmerking is gemaakt door de moderator op de site
Goed werk! Heel erg bedankt voor de code, het was alles wat ik nodig had
Deze opmerking is gemaakt door de moderator op de site
Bonjour,Le code ne fonctionne pas,
De code is geschikt voor:Private Declare PtrSafe-functie PlaySound Lib "winmm.dll" _
Alias ​​"PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean
Giet de code ci-dessous, j'ai un fichier mp3.Call PlaySound("c:\windows\media\Speech On.wav", _
0, SND_ASYNC of SND_FILENAME)
Faut il laisser \Speech On.WavJ'ai essayé avec mp3 mais ça ne fonctionne pas.
Pouvez vous m'aider ?MerciCordialementRobert


Deze opmerking is gemaakt door de moderator op de site
Kan ik een mp3-geluid invoegen met een duur van 1 uur?

Heel erg bedankt
Je kunt de chakushinon123 leren
Deze opmerking is gemaakt door de moderator op de site
Bedankt voor het artikel dat je hebt gedeeld, het was erg nuttig. Bekijk wat meer lettertype gratis online helemaal gratis.
Deze opmerking is gemaakt door de moderator op de site
Bedankt voor het artikel dat je hebt gedeeld, het was erg nuttig voor mij!!! Heel erg bedankt
Je kunt het geluid hier leren:https://sonneriesvip.com/</a>;
Deze opmerking is gemaakt door de moderator op de site
Goede site Ik hou van deze website
Deze opmerking is gemaakt door de moderator op de site
Je artikel is zo goed dat ik het erg leuk vind, de nieuwste audioboeken 2022 op horbuchkostenlos.de
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties