Predvajanje zvoka v Excelu - Excel Nasveti

Dan iz Wauconde je ta teden postavil vprašanje Excel-a.

Imam Excelov delovni list, ki izračuna vrednost. Če je vrednost celice> 100, potrebujem datoteko midi za predvajanje.
Predvajanje zvočne datoteke

Ta namig uporablja izvajalce dogodkov, o katerih smo razpravljali 23. decembra. Če niste seznanjeni z upravljavci dogodkov, najprej preglejte ta nasvet.

Prvi korak je, da kopijo datoteke MIDI prilepite na mesto, kjer se ne nahajate na delovnem listu.

  • Odprite predvajalnik medijev WIN95. Programi> Dodatna oprema> Multimedija
  • Odprite izbrano datoteko midi v predvajalniku predstavnosti.
  • V predvajalniku predstavnosti izberite Uredi in nato Kopiraj predmet.
  • V Excelu poiščite lokacijo, ki ni v bližini. V tem primeru izbiram Sheet1 Cell Z99. Kliknite tukaj in nato pritisnite Uredi> Prilepi
  • Oglejte si polje z imeni v Excelu. V polju z imenom bo datoteki midi dalo ime. Moj se imenuje Objekt 1.

Makro VBA za predvajanje te datoteke midi je:

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

Glede na to, ali imate Excel 97 ali Excel 95 / 7.0, bi za priklic zgornje kode uporabili ustrezen upravljalnik dogodkov. Tu je primer za Excel 97. Predpostavimo, če je v celico A1 vnesena nova vrednost, želite preveriti, ali je izračunana celica v A2> 100. Obdelovalec dogodkov je naslednji:

Odprite urejevalnik Visual Basic. V levem oknu z desno miškino tipko kliknite Sheet1 in izberite View Code. Na vrhu pogovornega okna Book1 - Sheet1 sta dva spustna menija. V levem spustnem meniju izberite Delovni list. V desnem spustnem meniju izberite Spremeni. Vnesite naslednje vrstice kode:

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

Zanimive Članki...