Prehrávajte zvuk v programe Excel - Tipy pre Excel

Dan z Waucondy položil tento týždeň otázku programu Excel.

Mám pracovný hárok programu Excel, ktorý počíta hodnotu. Ak je hodnota bunky> 100, potrebujem prehrať midi súbor.
Prehrávanie zvukového súboru

Tento tip využíva obslužné rutiny udalostí, o ktorých sa tu diskutuje 23. decembra. Ak nie ste oboznámení s obsluhou udalostí, najskôr si prečítajte tento tip.

Prvým krokom je vloženie kópie súboru MIDI na miesto, ktoré nie je v ceste.

  • Otvorte prehrávač médií WIN95. Programy> Príslušenstvo> Multimédiá
  • Otvorte vybraný súbor MIDI v prehrávači médií.
  • V prehrávači médií vyberte možnosť Upraviť a potom Kopírovať objekt.
  • V programe Excel vyhľadajte nezvyčajné umiestnenie. V tomto príklade vyberám Sheet1 Cell Z99. Kliknite tu a potom kliknite na položky Upraviť> Prilepiť
  • Prezrite si pole s menom v programe Excel. V poli pre meno pomenuje midi súbor. Moja sa volá Objekt 1.

Makro VBA na prehranie tohto súboru midi je:

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

V závislosti od toho, či máte program Excel 97 alebo Excel 95 / 7.0, by ste na vyvolanie vyššie uvedeného kódu použili vhodný obslužný program udalostí. Tu je príklad pre Excel 97. Predpokladajme, že ak je do bunky A1 zadaná nová hodnota, chcete skontrolovať, či je vypočítaná bunka v A2> 100. Obsluha udalosti je nasledovná:

Otvorte editor jazyka Visual Basic. V ľavom okne kliknite pravým tlačidlom myši na hárok1 a vyberte možnosť Zobraziť kód. V hornej časti dialógového okna Kód Book1 - List1 sú dve rozbaľovacie ponuky. V rozbaľovacej ponuke vľavo vyberte položku Pracovný list. V rozbaľovacej ponuke vpravo vyberte možnosť Zmeniť. Zadajte nasledujúce riadky kódu:

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

Zaujímavé články...