Ինչպե՞ս նվագել ձայնը, եթե 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 բջիջ, միանգամից կհնչի որոշակի ձայն:

ՆշումներՎերոհիշյալ ծածկագրում ձայնային 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, Եվ այնուհետև պահեք և փակեք այս կոդի պատուհանը, հիմա, եթե բջջային արժեքը փոխվի երրորդ սյունակում, ապա կհնչի լռելյայն համակարգի ազդանշանային ձայն: