Skip to main content

Conas fuaim a sheinm má chomhlíontar coinníoll in Excel?

In Excel, is féidir linn an Fhormáidiú Coinníollach a chur i bhfeidhm chun na cealla a fhormáidiú agus aird a tharraingt orthu chun an riocht a chomhlíonadh de réir mar a theastaíonn uait, ach, uaireanta, b’fhéidir gur mhaith leat fuaim a sheinm má chomhlíontar coinníoll. Mar shampla, má tá luach cille in A1 níos mó ná 300, ba mhaith liom go n-imrítear fuaim. Ní thacaíonn Excel leis an ngné seo, an t-alt seo, tabharfaidh mé isteach roinnt cóid VBA chun an tasc seo a réiteach.

Seinn fuaim beep córais réamhshocraithe bunaithe ar luach cille le cód VBA

Seinn fuaim saincheaptha bunaithe ar luach cille le cód VBA

Seinn fuaim má athraíonn luach cille i gcolún ar leith le cód VBA


mboilgeog cheart gorm saighead Seinn fuaim beep córais réamhshocraithe bunaithe ar luach cille le cód VBA

Seo cód áisiúil duit chun fuaim bíp chórais réamhshocraithe a sheinm nuair a chomhlíontar coinníoll ar leith, déan é seo le do thoil:

1. Coinnigh síos an ALT + F11 eochracha, ansin osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Seinn fuaim bíp chórais réamhshocraithe bunaithe ar luach cille:

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

3. Ansin sábháil agus dún an fhuinneog cód seo, téigh ar ais chuig an mbileog oibre, agus iontráil an fhoirmle seo: = IF (A1> 300, BeepMe (), "") isteach i gcill bhán in aice leis an gcill tá an luach a theastaíonn uait fuaim a sheinm bunaithe air, agus ansin brúigh Iontráil eochair, ní thaispeánfar aon rud isteach sa chill fhoirmle, féach an scáileán:

fuaim seinm doc más fíor conditon 1

4. Agus anois, má tá an luach iontráilte i gcill A1 níos mó ná 300, seinnfear fuaim bíp réamhshocraithe córais.


mboilgeog cheart gorm saighead Seinn fuaim saincheaptha bunaithe ar luach cille le cód VBA

Más mian leat fuaim éigin eile a sheinm seachas fuaim bíp an chórais réamhshocraithe, anseo freisin is féidir le cód VBA fabhar a dhéanamh duit.

1. Coinnigh síos an ALT + F11 eochracha, ansin osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Seinn fuaim shonrach bunaithe ar luach cille:

#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. Ansin sábháil agus dún an fhuinneog cód seo, filleadh ar an mbileog oibre, agus iontráil an fhoirmle seo: = IF (A1> 300, SoundMe (), "")isteach i gcill bhán in aice leis an gcill tá an luach a theastaíonn uait fuaim a sheinm bunaithe air, agus ansin brúigh Iontráil eochair, ní thaispeánfar aon rud isteach sa chill fhoirmle, féach an scáileán:

fuaim seinm doc más fíor conditon 2

4. As seo amach, má chuirtear luach níos mó ná 300 isteach i gcill A1, seinnfear fuaim ar leith ag an am céanna.

nótaí: Sa chód thuas, is féidir leat an comhad fuaime wav a athrú go do riachtanas ó c: \ windows \ media \ cosán comhaid. Féach an pictiúr:

fuaim seinm doc más fíor conditon 3


mboilgeog cheart gorm saighead Seinn fuaim má athraíonn luach cille i gcolún ar leith le cód VBA

Más mian leat fuaim a sheinm má athraíonn luach cille i gcolún ar leith, is féidir leat an cód VBA seo a leanas a chur i bhfeidhm.

1. Cliceáil ar dheis ar an táb bileog ar mhaith leat fuaim a sheinm nuair a athraíonn luach i gcolún, ansin roghnaigh Féach an cód ón roghchlár comhthéacs, agus san oscailt Microsoft Visual Basic d’iarratais an cód seo a leanas a fhuinneogú, a chóipeáil agus a ghreamú isteach sa Mhodúl bán:

Cód VBA: Seinn fuaim má athraíonn luach cille i gcolún:

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

fuaim seinm doc más fíor conditon 4

nótaí: Sa chód thuas, an uimhir 3 sa script Colúin (3) an uimhir cholúin ar mhaith leat fuaim a sheinm nuair a athraíonn luach sa cholún seo.

2. Agus ansin an fhuinneog cód seo a shábháil agus a dhúnadh, anois, má athraíonn luach cille sa tríú colún, seinnfear fuaim bíp chórais réamhshocraithe.

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
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