Reproduciraj zvuk u Excelu - Excel savjeti

Sadržaj

Dan iz Wauconde postavio je ovotjedno Excel pitanje.

Imam Excel radni list koji izračunava vrijednost. Ako je vrijednost ćelije> 100, trebam midi datoteku za reprodukciju.
Reprodukcija zvučne datoteke

Ovaj se savjet koristi voditeljima događaja o kojima se ovdje raspravlja 23. prosinca. Ako niste upoznati s voditeljima događaja, prvo pregledajte taj savjet.

Prvi korak je lijepljenje kopije MIDI datoteke na mjesto koje se ne nalazi na putu na vašem radnom listu.

  • Otvorite WIN95 media player. Programi> Pribor> Multimedija
  • Otvorite odabranu midi datoteku u programu za reprodukciju medija.
  • U programu za reprodukciju medija odaberite Uredi, a zatim Kopiraj objekt.
  • U Excelu pronađite mjesto koje se ne nalazi na putu. U ovom primjeru odabirem Sheet1 Cell Z99. Kliknite ovdje, a zatim pritisnite Uredi> Zalijepi
  • Pogledajte okvir s imenom u Excelu. U okviru s imenom dat će midi datoteci ime. Moj se zove Objekt 1.

VBA makronaredba za reprodukciju te midi datoteke je:

Sub Playit() ActiveSheet.Shapes("Object 1").Select Selection.Verb Verb:=xlPrimary End Sub

Ovisno o tome imate li Excel 97 ili Excel 95 / 7.0, za pozivanje gornjeg koda koristili biste odgovarajući rukovatelj događajima. Evo primjera za Excel 97. Pretpostavimo ako se u ćeliju A1 unese nova vrijednost, želite provjeriti je li izračunata ćelija u A2> 100. Obrađivač događaja je kako slijedi:

Otvorite uređivač Visual Basic. U lijevom prozoru desnom tipkom miša kliknite Sheet1 i odaberite View Code. Na vrhu dijaloškog okvira Book1 - Sheet1 Code nalaze se dva padajuća izbornika. S lijevog padajućeg izbornika odaberite Radni list. S desnog padajućeg izbornika odaberite Promijeni. Unesite sljedeće retke koda:

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then If Range("A2")> 100 Then ActiveSheet.Shapes("Object 1").Select Selection.Verb Verb:=xlPrimary End If End If End Sub

Zanimljivi članci...