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

Cum să redați un sunet dacă o condiție este îndeplinită în Excel?

În Excel, putem aplica formatarea condițională pentru formatare și evidenția celulele pentru a îndeplini condiția după cum aveți nevoie, dar, uneori, poate doriți să redați un sunet dacă este îndeplinită o condiție. De exemplu, dacă valoarea celulei din A1 este mai mare de 300, vreau să se redea un sunet. Excel nu acceptă această caracteristică, în acest articol, voi introduce câteva coduri VBA pentru a rezolva această sarcină.

Redați un sunet sonor implicit al sistemului pe baza valorii celulei cu codul VBA

Redați un sunet personalizat pe baza valorii celulei cu codul VBA

Redați un sunet dacă valoarea celulei se schimbă într-o anumită coloană cu cod VBA


săgeată albastru dreapta balon Redați un sunet sonor implicit al sistemului pe baza valorii celulei cu codul VBA

Iată un cod la îndemână pentru a reda un sunet sonor implicit al sistemului atunci când este îndeplinită o anumită condiție.

1. Țineți apăsată tasta ALT + F11 , apoi deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.

Cod VBA: redați un sunet de sistem implicit pe baza unei valori a celulei:

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

3. Apoi salvați și închideți această fereastră de cod, reveniți la foaia de lucru și introduceți această formulă: = IF (A1> 300, BeepMe (), "") într-o celulă goală de lângă celulă conține valoarea pe care doriți să redați un sunet, apoi apăsați Intrați tasta, nimic nu va fi afișat în celula formulă, consultați captura de ecran:

doc redare sunet dacă condiția este adevărată 1

4. Și acum, dacă valoarea introdusă în celula A1 este mai mare de 300, va fi redat un sunet de sistem implicit.


săgeată albastru dreapta balon Redați un sunet personalizat pe baza valorii celulei cu codul VBA

Dacă doriți să redați alt sunet decât sunetul sonor implicit al sistemului, aici și un cod VBA vă poate face o favoare.

1. Țineți apăsat butonul ALT + F11 , apoi deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.

Cod VBA: redați un sunet specific bazat pe valoarea unei celule:

#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. Apoi salvați și închideți această fereastră de cod, reveniți la foaia de lucru și introduceți această formulă: = IF (A1> 300, SoundMe (), "")într-o celulă goală de lângă celulă conține valoarea pe care doriți să redați un sunet, apoi apăsați Intrați tasta, nimic nu va fi afișat în celula formulă, consultați captura de ecran:

doc redare sunet dacă condiția este adevărată 2

4. De acum înainte, dacă o valoare mai mare de 300 este introdusă în celula A1, un sunet specific va fi redat simultan.

notițe: În codul de mai sus, puteți schimba fișierul wav de sunet în funcție de nevoile dvs. c: \ windows \ media \ calea fișierului. Vedeți captura de ecran:

doc redare sunet dacă condiția este adevărată 3


săgeată albastru dreapta balon Redați un sunet dacă valoarea celulei se schimbă într-o anumită coloană cu cod VBA

Dacă doriți să redați un sunet dacă valoarea celulei se schimbă într-o anumită coloană, puteți aplica următorul cod VBA.

1. Faceți clic dreapta pe fila de foaie pe care doriți să redați un sunet atunci când valoarea se schimbă într-o coloană, apoi alegeți Afișați codul din meniul contextual și în meniul deschis Microsoft Visual Basic pentru aplicații fereastră, copiați și lipiți următorul cod în modulul gol:

Cod VBA: redați un sunet dacă valoarea celulei se schimbă într-o coloană:

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 redare sunet dacă condiția este adevărată 4

notițe: În codul de mai sus, numărul 3 în scenariu Coloane (3) este numărul coloanei pe care doriți să redați sunetul atunci când valoarea se schimbă în această coloană.

2. Și apoi salvați și închideți această fereastră de cod, acum, dacă o valoare a celulei se schimbă în a treia coloană, va fi redat un sunet de sistem implicit.


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (27)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, încerc să folosesc Redarea unui sunet personalizat bazat pe valoarea celulei cu codul VBA, dar am o problemă. Iată un exemplu: am o numărătoare inversă de timp în celula A1, ceea ce înseamnă modificări ale valorii pe secundă. Apoi, în celula B1 am inserat =8/(24*60) într-un format 0:08:00 Deci, dacă folosesc pentru a declanșa sunetul este dacă B1>A1,SoundMe(),"" Dar sunetul nu va fi niciodată auzit. Pot auzi un sunet ca și cum ceva este în buclă și cred că are ceva de-a face cu faptul că valoarea se schimbă dinamic. Apoi am încercat să modific codul din partea Call PlaySound ("c:\windows\media\Speech On.wav", _ 0, SND_ASYNC sau SND_FILENAME) Am schimbat SND_ASYNC cu SND_SYNC. În acest fel am reușit să redau sunetul, dar se repetă pentru totdeauna. Există vreo soluție cum ar fi declanșarea sunetului o singură dată, adică doar prima dată când criteriile sunt îndeplinite și apoi oprirea?? Multumesc mult
Acest comentariu a fost redus la minimum de moderatorul de pe site
Îmi place articolul tău, mulțumesc pentru articol.


Acest comentariu a fost redus la minimum de moderatorul de pe site
articol bun la care poți asculta muzică https://bruitagesgratuits.com
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună admin, vă rugăm să spuneți, dacă vreau să salvez fișierul de sunet în fișierul Excel și îmi voi deschide fișierul Excel pe orice computer, pot auzi sunetul ???
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Shehzad,
Dacă aplicați primul și al treilea cod VBA pentru a reda un sunet de sistem implicit, sunetul poate fi auzit de pe orice alt computer. Dar, cu al doilea cod vba, ar trebui să setați sunetul personalizat în funcție de nevoile dvs.

Notă: ar trebui să salvați registrul de lucru în format Excel Macro-Enabled Workbook.
Acest comentariu a fost redus la minimum de moderatorul de pe site
=if B1<>A1,SoundMe(),"" 希望可以幫到你
Acest comentariu a fost redus la minimum de moderatorul de pe site
codul nu funcționează ceea ce pot face
Acest comentariu a fost redus la minimum de moderatorul de pe site
buna adm. Încerc să creez, prin VBA, o comandă „IF” care ar suna o propoziție specifică atunci când este atinsă o condiție predeterminată. Ma poti ajuta, te rog?
Acest comentariu a fost redus la minimum de moderatorul de pe site
buna adm. Încerc să creez, prin VBA, o comandă „IF” care ar suna o propoziție specifică atunci când este atinsă o condiție predeterminată. Ma poti ajuta, te rog?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Tocmai am descărcat un sunet chakushinon123
Acest comentariu a fost redus la minimum de moderatorul de pe site
Frumos.

mulțumesc
Acest comentariu a fost redus la minimum de moderatorul de pe site
Quando colo essa formula recebo um erro, como se estivesse faltando valor entra as aspas = IF (A1> 300, BeepMe (), "")
Acest comentariu a fost redus la minimum de moderatorul de pe site
A fost minunat și foarte bine învățat. Mi-a plăcut mult. Mulțumesc foarte mult!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Pentru mai multe sunete interesante, puteți vizitahttps://tonosdellamadacanciones.com/</a>; pentru a descărca cele mai recente și mai tari sunete din filele populare din țări din întreaga lume.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Аниматоры в Белгороде благодарят вас! Спасибо. Мы на детских праздниках постоянно используем музыку. От этого любой детский праздник в сто раз ярче и веселее!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Hei

Există vreo soluție care dorește să activeze audio o singură dată înseamnă că doar primele criterii sunt îndeplinite și apoi oprite ??

Mulțumesc foarte mult
Puteți afla sunetul aici:https://sonneriepro.com/samsung/</a>;
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc! Мы на детских праздниках используем разную музыку - https://surprise-show.com 
Acest comentariu a fost redus la minimum de moderatorul de pe site
Sunt o persoană de afaceri, folosirea Excel este prea familiară. De obicei, salvez numele pieselor în execl, astfel încât să fie mai simplu să le găsești decât să le salvez în fișiere. Grozav. Muzica pe care o folosesc pentru afaceri vine de pe ZigTone.com. Puteți merge acolo și le studiați, poate că este bine pentru dvs.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Multumesc mult. ho utilizat in modo proficuo tutti i tuoi esempi che sono stati chiari e illuminanti. aiuto prezioso
Acest comentariu a fost redus la minimum de moderatorul de pe site
Nu doar fotografii sau fișiere. Uneori puteți insera un fișier muzical în EX la https://klingeltonkostenlos.de/klingeltone-filmmusik-gratis/. Acesta este un lucru interesant, nu-i așa?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna treaba! Mulțumesc mult pentru cod, era tot ce aveam nevoie
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bonjour,Le code ne fonctionne pas,
Codul următor este în rouge:Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
Alias ​​„PlaySoundA” (ByVal lpszName As String, _
ByVal hModule As LongPtr, ByVal dwFlags As Long) Ca Boolean
Toarnă codul de jos, ai un fișier mp3.Call PlaySound("c:\windows\media\Speech On.wav", _
0, SND_ASYNC sau SND_FILENAME)
Faut il laisser \Speech On.WavJ'ai essayé avec mp3 mais ça ne fonctionne pas.
Pouvez vous m'aider ?MerciCordialementRobert


Acest comentariu a fost redus la minimum de moderatorul de pe site
Pot introduce un sunet mp3 cu o durată de 1 oră?

Mulțumesc foarte mult
Puteți învăța chakushinon123
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc pentru articolul pe care l-ați împărtășit, a fost de mare ajutor. Vezi mai multe fonturi gratuite online complet gratuit.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc pentru articolul pe care l-ați distribuit, mi-a fost de mare ajutor!!!Mulțumesc foarte mult
Puteți afla sunetul aici:https://sonneriesvip.com/</a>;
Acest comentariu a fost redus la minimum de moderatorul de pe site
Site bun Iubesc acest site
Acest comentariu a fost redus la minimum de moderatorul de pe site
Articolul tău este atât de bun încât îmi place foarte mult, cele mai recente cărți audio 2022 la horbuchkostenlos.de
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL