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
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:
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.
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:
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:
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
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
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 ...
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á!