Spill lyd i Excel - Excel-tips

Dan fra Wauconda stilte ukens Excel-spørsmål.

Jeg har et Excel-regneark som beregner en verdi. Hvis celleverdien er> 100, trenger jeg en midi-fil som skal spilles av.
Spille av lydfil

Dette tipset bruker hendelsesbehandlerne som er diskutert her 23. desember. Hvis du ikke er kjent med hendelsesbehandlere, kan du lese tipset først.

Det første trinnet er å lime inn en kopi av MIDI-filen på et sted utenfor veien på regnearket.

  • Åpne WIN95 mediespiller. Programmer> Tilbehør> Multimedia
  • Åpne den valgte midifilen i mediaspilleren.
  • Velg Rediger i mediaspilleren og deretter Kopier objekt.
  • I Excel finner du et sted utenfor veien. I dette eksemplet velger jeg Sheet1 Cell Z99. Klikk her og trykk deretter Rediger> Lim inn
  • Se på navnefeltet i Excel. I navnefeltet vil det gi midifilen et navn. Mine kalles Objekt 1.

VBA-makroen for å spille den midifilen er:

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

Avhengig av om du har Excel 97 eller Excel 95 / 7.0, vil du bruke riktig hendelsesbehandler til å påkalle koden ovenfor. Her er et eksempel på Excel 97. Anta at hvis en ny verdi er angitt i celle A1, vil du sjekke om den beregnede cellen i A2 er> 100. Hendelsesbehandleren er som følger:

Åpne Visual Basic Editor. Høyreklikk Ark 1 i venstre vindu og velg Vis kode. Øverst i dialogboksen Book1 - Sheet1 Code er det to rullegardiner. Velg Arbeidsark fra venstre rullegardin. Velg Endre fra høyre rullegardin. Skriv inn følgende kodelinjer:

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

Interessante artikler...