Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս նվագել ձայնը, եթե 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 (), "") վանդակի կողքին գտնվող դատարկ վանդակում կա այն արժեքը, որի վրա ցանկանում եք հնչյուն հնչեցնել, ապա սեղմել Մտնել բանալի, բանաձևի մեջ ոչինչ չի ցուցադրվի, տես նկարի նկարը.

Doc նվագարկել ձայնը, եթե պայմանը ճիշտ է 1

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 (), "")վանդակի կողքին գտնվող դատարկ վանդակում կա այն արժեքը, որի վրա ցանկանում եք հնչյուն հնչեցնել, ապա սեղմել Մտնել բանալի, բանաձևի մեջ ոչինչ չի ցուցադրվի, տես նկարի նկարը.

Doc նվագարկել ձայնը, եթե պայմանը ճիշտ է 2

4, Այսուհետ, եթե 300-ից ավելի մեծ արժեք մուտքագրվի A1 բջիջ, միանգամից կհնչի որոշակի ձայն:

NotesՎերոհիշյալ ծածկագրում ձայնային wav ֆայլը կարող եք փոխել ըստ ձեր պահանջի գ: \ windows \ մեդիա \ ֆայլի ուղին: Տեսեք,

Doc նվագարկել ձայնը, եթե պայմանը ճիշտ է 3


նետ կապույտ աջ պղպջակ Ձայն հնչեցրեք, եթե բջջային արժեքը փոխվում է 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

Doc նվագարկել ձայնը, եթե պայմանը ճիշտ է 4

ՆշումՎերոհիշյալ կոդում համարը 3 սցենարում Սյունակներ (3) սյունակի համարն է, որը ցանկանում եք հնչեցնել, երբ այս սյունակում արժեքը փոխվի:

2, Եվ այնուհետև պահեք և փակեք այս կոդի պատուհանը, հիմա, եթե բջջային արժեքը փոխվի երրորդ սյունակում, ապա կհնչի լռելյայն համակարգի ազդանշանային ձայն:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (27)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև ձեզ, ես փորձում եմ օգտագործել «Play a custom sound»՝ հիմնված բջջային արժեքի վրա VBA կոդով, բայց խնդիր ունեմ: Ահա մի օրինակ. ես A1 բջիջում ժամանակի հետհաշվարկ ունեմ, ինչը նշանակում է արժեքի փոփոխություններ վայրկյանում: Այնուհետև B1 բջիջում ես տեղադրել եմ =8/(24*60) 0:08:00 ձևաչափով, հետևաբար, եթե ես օգտագործում եմ ձայնը ակտիվացնելու համար, եթե B1>A1,SoundMe(),"" Բայց ձայնը երբեք չի լինի: լսվեց. Ես կարող եմ լսել այնպիսի ձայն, կարծես ինչ-որ բան պտտվում է, և ես ենթադրում եմ, որ դա ինչ-որ կապ ունի այն փաստի հետ, որ արժեքը դինամիկորեն փոխվում է: Հետո ես փորձեցի փոխել կոդը Call PlaySound մասում ("c:\windows\media\Speech On.wav", _ 0, SND_ASYNC կամ SND_FILENAME) Ես փոխեցի SND_ASYNC-ը SND_SYNC-ով: Այս կերպ ինձ հաջողվեց հնչեցնել ձայնը, բայց այն անընդհատ կրկնվում է: Կա՞ որևէ լուծում, ինչպիսին է ձայնը միայն մեկ անգամ ակտիվացնելը, ինչը նշանակում է հենց առաջին անգամ, երբ չափանիշները բավարարվում են, իսկ հետո դադարեցնում: Շատ շնորհակալ եմ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես սիրում եմ ձեր հոդվածը, շնորհակալություն հոդվածը կիսելու համար:


Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
լավ հոդված, որտեղ կարող եք երաժշտություն լսել https://bruitagesgratuits.com
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև ադմին, խնդրում եմ ասեք, եթե ես ուզում եմ պահպանել ձայնային ֆայլը excel ֆայլում և բացելու եմ իմ excel ֆայլը ցանկացած համակարգչում, կարող եմ լսել այդ ձայնը???
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Շեհզադ,
Եթե ​​դուք կիրառում եք առաջին և երրորդ VBA կոդը՝ համակարգի լռելյայն ազդանշանային ձայնը նվագարկելու համար, ձայնը կարող է լսել ցանկացած այլ համակարգչից: Բայց, երկրորդ vba կոդով, դուք պետք է կարգավորեք մաքսային ձայնը ձեր կարիքի համար:

Նշում. Դուք պետք է պահեք աշխատանքային գրքույկը որպես Excel Macro-Enabled Workbook ձևաչափ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
=եթե B1<>A1,SoundMe(),"" 希望可以幫到你
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
կոդը չի աշխատում, ինչ կարող եմ անել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև վարչ. Ես փորձում եմ VBA-ի միջոցով ստեղծել «IF» հրաման, որը կհնչի հատուկ նախադասություն, երբ ձեռք բերվի նախապես որոշված ​​պայման: Կարող եք օգնել ինձ, խնդրում եմ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև վարչ. Ես փորձում եմ VBA-ի միջոցով ստեղծել «IF» հրաման, որը կհնչի հատուկ նախադասություն, երբ ձեռք բերվի նախապես որոշված ​​պայման: Կարող եք օգնել ինձ, խնդրում եմ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես հենց նոր ներբեռնեցի ձայնային chakushinon123
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Nice.

Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Quando colo essa բանաձեւը recebo um erro, como se estivesse faltando valor entra as aspas = IF (A1> 300, BeepMe (), "")
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դա հիանալի էր և շատ լավ ուսուցանված: Շատ վայելեց: Շատ շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ավելի հետաքրքիր հնչյունների համար կարող եք այցելելhttps://tonosdellamadacanciones.com/</a>; ներբեռնելու ամենաթարմ և ամենագեղեցիկ ձայները հանրաճանաչ ներդիրներից աշխարհի տարբեր երկրներից:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Անիմատորներ Белгороде Спасибо. Мы на детских праздниках постоянно используем музыку. От этого любой детский праздник в сто раз ярче и веселее!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ Ձեզ

Կա՞ որևէ լուծում, որը ցանկանում է ակտիվացնել աուդիոն միայն մեկ անգամ, նշանակում է միայն առաջին չափանիշները բավարարվել, իսկ հետո դադարեցվել:

Շատ շնորհակալություն
Ձայնը կարող եք սովորել այստեղ՝https://sonneriepro.com/samsung/</a>;
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն! Мы на детских праздниках используем разную музыку - https://surprise-show.com 
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես գործարար մարդ եմ, Excel-ից օգտվելը չափազանց ծանոթ է: Ես սովորաբար պահպանում եմ հետքերի անունները execl-ում, որպեսզի դրանք գտնելն ավելի հեշտ լինի, քան ֆայլերում պահելը: Հիանալի է: Երաժշտությունը, որը ես օգտագործում եմ բիզնեսի համար, գալիս է ZigTone.com-ից: Դուք կարող եք գնալ այնտեղ և ուսումնասիրել դրանք, միգուցե դա լավ է ձեզ համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Grazie molte. ho utilizzato in modo proficuo tutti i tuoi esempi che sono stati chiari e illuminanti. աուտո պրեզիոզո
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ոչ միայն լուսանկարներ կամ ֆայլեր: Երբեմն դուք կարող եք երաժշտական ​​ֆայլ տեղադրել EX-ում ժամը https://klingeltonkostenlos.de/klingeltone-filmmusik-gratis/. Սա հետաքրքիր բան է, այնպես չէ՞:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հաճելի աշխատանք: Շատ շնորհակալ եմ կոդի համար, դա այն ամենն էր, ինչ ինձ պետք էր
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Bonjour, Le code ne fonctionne pas,
Կոդը համապատասխանում է կարմիրին:Մասնավոր Հայտարարել PtrSafe գործառույթը PlaySound Lib «winmm.dll» _
Այլանուն «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 կամ SND_FILENAME)
Faut il laisser \Speech On.WavJ'ai essayé avec mp3 mais ça ne fonctionne pas.
Pouvez vous m'aider ?MerciCordialementRobert


Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ եմ տեղադրել mp3 ձայն 1 ժամ տևողությամբ:

Շատ շնորհակալություն
Դուք կարող եք սովորել chakushinon123
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն ձեր տարածած հոդվածի համար, այն շատ օգտակար էր: Ստուգեք ևս մի քանի տառատեսակ անվճար առցանց ամբողջովին անվճար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն ձեր տարածած հոդվածի համար, այն շատ օգտակար էր ինձ համար!!!Շատ շնորհակալ եմ
Ձայնը կարող եք սովորել այստեղ՝https://sonneriesvip.com/</a>;
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ կայք: Ես սիրում եմ այս կայքը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ձեր հոդվածն այնքան լավն է, որ ինձ շատ է դուր գալիս, վերջին աուդիոգրքերը 2022-ին horbuchkostenlos.de-ում
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից