Ինչպե՞ս նվագել ձայնը, եթե Excel- ում պայման է բավարարվում:
Excel- ում մենք կարող ենք կիրառել պայմանական ձևաչափում `բջիջները ձևաչափելու և լուսաբանելու համար` պայմանը բավարարելու համար, ինչպես ձեզ հարկավոր է, բայց, երբեմն, գուցե ցանկանաք հնչյուն նվագել, եթե պայմանը բավարարվում է: Օրինակ, եթե A1- ում բջջի արժեքը 300-ից մեծ է, ես ուզում եմ, որ ձայն հնչի: Excel- ը չի աջակցում այս հատկությունը, այս հոդվածը, ես կներկայացնեմ մի քանի VBA կոդ այս խնդիրը լուծելու համար:
Նվագարկեք լռելյայն համակարգի ազդանշանային ձայն `ելնելով բջջային արժեքից, VBA կոդով
VBA կոդով բջջային արժեքի հիման վրա նվագարկեք անհատականացված ձայն
Ձայն հնչեցրեք, եթե բջջային արժեքը փոխվում է VBA կոդով որոշակի սյունակում
Նվագարկեք լռելյայն համակարգի ազդանշանային ձայն `ելնելով բջջային արժեքից, VBA կոդով
Ահա մի հարմար կոդ, որպեսզի որոշակի պայման կատարվի, երբ ստանդարտ ազդանշանային ազդանշան հնչեցնի, արեք հետևյալ կերպ.
1. Անջատեք ALT + F11 ստեղները, ապա այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:
VBA կոդ. Բջջային արժեքի հիման վրա նվագարկեք լռելյայն համակարգի ազդանշանային ազդանշան.
Function BeepMe() As String
Beep
BeepMe = ""
End Function
3, Դրանից հետո պահեք և փակեք այս ծածկագրի պատուհանը, վերադարձեք աշխատանքային թերթ և մուտքագրեք այս բանաձևը. = ԵԹԵ (A1> 300, BeepMe (), "") վանդակի կողքին գտնվող դատարկ վանդակում կա այն արժեքը, որի վրա ցանկանում եք հնչյուն հնչեցնել, ապա սեղմել Մտնել բանալի, բանաձևի մեջ ոչինչ չի ցուցադրվի, տես նկարի նկարը.
4, Եվ հիմա, եթե A1 բջիջում մուտքագրված արժեքը 300-ից մեծ է, ապա կհնչի լռելյայն համակարգի ազդանշանային ձայն:
VBA կոդով բջջային արժեքի հիման վրա նվագարկեք անհատականացված ձայն
Եթե ցանկանում եք նվագարկել այլ ձայն, քան լռելյայն համակարգի ազդանշանային ձայնը, ապա այստեղ նաև VBA կոդ կարող է ձեզ լավություն բերել:
1, Պահեք պահեք ALT + F11 ստեղները, ապա այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.
2. Սեղմել Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:
VBA կոդ. Բջջային արժեքի հիման վրա նվագեք հատուկ ձայն.
#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, Դրանից հետո պահեք և փակեք այս կոդի պատուհանը, վերադառնաք աշխատանքային թերթ և մուտքագրեք այս բանաձևը. = ԵԹԵ (A1> 300, SoundMe (), "")վանդակի կողքին գտնվող դատարկ վանդակում կա այն արժեքը, որի վրա ցանկանում եք հնչյուն հնչեցնել, ապա սեղմել Մտնել բանալի, բանաձևի մեջ ոչինչ չի ցուցադրվի, տես նկարի նկարը.
4, Այսուհետ, եթե 300-ից ավելի մեծ արժեք մուտքագրվի A1 բջիջ, միանգամից կհնչի որոշակի ձայն:
NotesՎերոհիշյալ ծածկագրում ձայնային wav ֆայլը կարող եք փոխել ըստ ձեր պահանջի գ: \ windows \ մեդիա \ ֆայլի ուղին: Տեսեք,
Ձայն հնչեցրեք, եթե բջջային արժեքը փոխվում է VBA կոդով որոշակի սյունակում
Եթե ցանկանում եք հնչյուն նվագել, եթե բջջային արժեքը փոխվում է որոշակի սյունակում, կարող եք կիրառել հետևյալ VBA կոդը:
1, Աջ կտտացրեք թերթիկի ներդիրին, որը ցանկանում եք հնչյուն նվագել, երբ սյունակում արժեքը փոխվում է, ապա ընտրեք Դիտել կոդը համատեքստային ընտրացանկից և բացվածում Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք հետևյալ կոդը դատարկ Մոդուլի մեջ.
VBA կոդ. Խաղալ ձայն, եթե բջջային արժեքը փոխվում է սյունակում.
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
ՆշումՎերոհիշյալ կոդում համարը 3 սցենարում Սյունակներ (3) սյունակի համարն է, որը ցանկանում եք հնչեցնել, երբ այս սյունակում արժեքը փոխվի:
2, Եվ այնուհետև պահեք և փակեք այս կոդի պատուհանը, հիմա, եթե բջջային արժեքը փոխվի երրորդ սյունակում, ապա կհնչի լռելյայն համակարգի ազդանշանային ձայն:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
