Waucondast pärit Dan esitas selle nädala Exceli küsimuse.
Mul on Exceli tööleht, mis arvutab väärtuse. Kui lahtri väärtus on> 100, on mul vaja esitada midi-fail.
Selles näpunäites kasutatakse siin 23. detsembril käsitletud ürituste korraldajaid. Kui te pole ürituste korraldajatega tuttav, vaadake see vihje kõigepealt üle.
Esimene samm on kleepida MIDI-faili koopia töölehe otsekohe.
- Avage WIN95 meediumipleier. Programmid> Lisaseadmed> Multimeedia
- Avage valitud midifail meediumipleieris.
- Valige meediumipleieris Redigeeri ja seejärel Kopeeri objekt.
- Leidke Excelis otsetee asukoht. Selles näites valin Sheet1 Cell Z99. Klõpsake siin ja seejärel klõpsake nuppu Muuda> Kleebi
- Vaadake Exceli nimevälja. Nimekastis annab see midi-failile nime. Minu nimi on 1. objekt.
Selle midi-faili esitamiseks on VBA makro:
Sub Playit() ActiveSheet.Shapes("Object 1").Select Selection.Verb Verb:=xlPrimary End SubSõltuvalt sellest, kas teil on Excel 97 või Excel 95 / 7.0, kasutaksite ülaltoodud koodi käivitamiseks sobivat sündmuste käitlejat. Siin on näide Exceli 97 kohta. Oletame, et kui lahtrisse A1 sisestatakse uus väärtus, soovite kontrollida, kas arvutatud lahter lahtris A2 on> 100. Sündmuste käitleja on järgmine:
Avage Visual Basicu redaktor. Paremklõpsake vasakpoolses aknas lehte1 ja valige Kuva kood. Dialoogiboksi Book1 - Sheet1 Code ülaosas on kaks rippmenüüd. Valige vasakpoolsest rippmenüüst Tööleht. Valige paremast rippmenüüst Muuda. Sisestage järgmised koodiread:
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
