Բաց թողնել հիմնական բովանդակությունը

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

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

Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50 + Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

kte էջանիշը 201905


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (28)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have a school project. excel user form using for search a record using barcode.. Problem is that.. i want when trig a barcode specific text box value after update with a sound file each recorded ... means a student name appear in the background. for call on closing time.. pls guide...urgent
This comment was minimized by the moderator on the site
Your article is so good I like it very much, the latest audiobooks 2022 at horbuchkostenlos.de
This comment was minimized by the moderator on the site
Good site I love this website
This comment was minimized by the moderator on the site
Thanks for the article you shared, it was very helpful for me!!!Thank you very much
You can learn the sound here: <a href="https://sonneriesvip.com/">https://sonneriesvip.com/</a>;
This comment was minimized by the moderator on the site
Thanks for the article you shared, it was very helpful. Check out some more <a href="https://yofonts.com/">font free online</a> completely free.
This comment was minimized by the moderator on the site
Bonjour,Le code ne fonctionne pas,
Le code suivant est en rouge:Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
Alias "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 Or SND_FILENAME)
Faut il laisser \Speech On.WavJ'ai essayé avec mp3 mais ça ne fonctionne pas.
Pouvez vous m'aider ?MerciCordialementRobert


This comment was minimized by the moderator on the site
Can i insert a mp3 sound with durations 1 hour?

Thank you very much
You can learn the chakushinon123
This comment was minimized by the moderator on the site
Nice Work! Thank you so much for the code, it was all that I needed
This comment was minimized by the moderator on the site
Not just photos or files. Sometimes you can insert a music file into the EX at https://klingeltonkostenlos.de/klingeltone-filmmusik-gratis/. This is an interesting thing, isn't it?
This comment was minimized by the moderator on the site
Grazie molte. ho utilizzato in modo proficuo tutti i tuoi esempi che sono stati chiari e illuminanti. aiuto prezioso
This comment was minimized by the moderator on the site
I am a business person, using Excel is too familiar. I usually save the names of tracks in execl so that it is simpler to find them than to save them in files. Great.The music I use for business comes from ZigTone.com.You can go there and study them, maybe it's good for you.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations