Sut i chwarae sain os yw amod yn cael ei fodloni yn Excel?
Yn Excel, gallwn gymhwyso'r Fformatio Amodol i fformatio ac amlygu'r celloedd i fodloni'r cyflwr yn ôl yr angen, ond, weithiau, efallai y byddwch am chwarae sain os yw amod yn cael ei fodloni. Er enghraifft, os yw gwerth celloedd yn A1 yn fwy na 300, rydw i eisiau i sain gael ei chwarae. Nid yw Excel yn cefnogi'r nodwedd hon, yr erthygl hon, byddaf yn cyflwyno rhai codau VBA i ddatrys y dasg hon.
Chwarae sain bîp system ddiofyn yn seiliedig ar werth celloedd gyda chod VBA
Chwarae sain wedi'i seilio ar werth celloedd gyda chod VBA
Chwarae sain os yw gwerth celloedd yn newid mewn colofn benodol gyda chod VBA
Chwarae sain bîp system ddiofyn yn seiliedig ar werth celloedd gyda chod VBA
Dyma god defnyddiol i chi chwarae sain bîp system ddiofyn pan fydd amod penodol yn cael ei fodloni, gwnewch fel hyn:
1. Dal i lawr y ALT + F11 allweddi, yna mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Chwarae sain bîp system ddiofyn yn seiliedig ar werth cell:
Function BeepMe() As String
Beep
BeepMe = ""
End Function
3. Yna arbedwch a chau y ffenestr god hon, ewch yn ôl i'r daflen waith, a nodi'r fformiwla hon: = OS (A1> 300, BeepMe (), "") i mewn i gell wag wrth ochr y gell yn cynnwys y gwerth rydych chi am chwarae sain yn seiliedig arno, ac yna pwyswch Rhowch allwedd, ni fydd unrhyw beth yn cael ei arddangos i'r gell fformiwla, gweler y screenshot:
4. Ac yn awr, os yw'r gwerth a gofnodwyd yng nghell A1 yn fwy na 300, bydd sain bîp system ddiofyn yn cael ei chwarae.
Chwarae sain wedi'i seilio ar werth celloedd gyda chod VBA
Os ydych chi am chwarae rhywfaint o sain arall na sain bîp y system ddiofyn, yma hefyd gall cod VBA wneud ffafr i chi.
1. Daliwch i lawr y ALT + F11 allweddi, yna mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Chwarae sain benodol yn seiliedig ar werth cell:
#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. Yna arbedwch a chau y ffenestr god hon, dychwelwch i'r daflen waith, a nodwch y fformiwla hon: = OS (A1> 300, SoundMe (), "")i mewn i gell wag wrth ochr y gell yn cynnwys y gwerth rydych chi am chwarae sain yn seiliedig arno, ac yna pwyswch Rhowch allwedd, ni fydd unrhyw beth yn cael ei arddangos i'r gell fformiwla, gweler y screenshot:
4. O hyn ymlaen, os yw gwerth mwy na 300 yn cael ei nodi yng nghell A1, bydd sain benodol yn cael ei chwarae ar unwaith.
Nodiadau: Yn y cod uchod, gallwch newid y ffeil wav sain i'ch angen o c: \ windows \ media \ llwybr ffeil. Gweler y screenshot:
Chwarae sain os yw gwerth celloedd yn newid mewn colofn benodol gyda chod VBA
Os ydych chi am chwarae sain os yw gwerth celloedd yn newid mewn colofn benodol, gallwch gymhwyso'r cod VBA canlynol.
1. Cliciwch ar y dde ar y tab dalen rydych chi am chwarae sain pan fydd gwerth yn newid mewn colofn, yna dewiswch Gweld y Cod o'r ddewislen cyd-destun, ac yn yr agoriad Microsoft Visual Basic ar gyfer cymwysiadau ffenestr, copïo a gludo'r cod canlynol i'r Modiwl gwag:
Cod VBA: Chwarae sain os yw gwerth celloedd yn newid mewn colofn:
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
Nodyn: Yn y cod uchod, y rhif 3 yn y sgript Colofnau (3) yw'r rhif colofn rydych chi am chwarae sain pan fydd gwerth yn newid yn y golofn hon.
2. Ac yna arbed a chau'r ffenestr god hon, nawr, os bydd gwerth cell yn newid yn y drydedd golofn, bydd sain bîp system ddiofyn yn cael ei chwarae.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!