Dan fra Wauconda stillede denne uges Excel-spørgsmål.
Jeg har et Excel-regneark, der beregner en værdi. Hvis celleværdien er> 100, skal jeg afspille en midi-fil.
Dette tip gør brug af begivenhedshåndterere, der diskuteres her den 23. december. Hvis du ikke er bekendt med begivenhedshåndterere, bedes du først gennemgå dette tip.
Det første trin er at indsætte en kopi af MIDI-filen på et sted, der ikke er i vejen for dit regneark.
- Åbn WIN95 medieafspiller. Programmer> Tilbehør> Multimedia
- Åbn den valgte midifil i medieafspilleren.
- Vælg Rediger i medieafspilleren og derefter Kopier objekt.
- I Excel skal du finde en placering, der ikke er i vejen. I dette eksempel vælger jeg Sheet1 Cell Z99. Klik her og tryk derefter på Rediger> Sæt ind
- Se på navnefeltet i Excel. I navnefeltet vil det give midifilen et navn. Min kaldes objekt 1.
VBA-makroen til at afspille den midi-fil er:
Sub Playit() ActiveSheet.Shapes("Object 1").Select Selection.Verb Verb:=xlPrimary End SubAfhængigt af om du har Excel 97 eller Excel 95 / 7.0, bruger du den relevante begivenhedshåndterer til at påkalde ovenstående kode. Her er et eksempel på Excel 97. Antag, at hvis en ny værdi indtastes i celle A1, vil du kontrollere, om den beregnede celle i A2 er> 100. Hændelsesbehandleren er som følger:
Åbn Visual Basic Editor. I venstre vindue skal du højreklikke på Ark1 og vælge Vis kode. Øverst i dialogboksen Book1 - Sheet1 Code er der to rullelister. Vælg Arbejdsark fra venstre rullemenu. Vælg Skift fra højre rullemenu. Indtast følgende linjer 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
