Sound in Excel abspielen - Excel-Tipps

Dan aus Wauconda stellte diese Woche die Excel-Frage.

Ich habe ein Excel-Arbeitsblatt, das einen Wert berechnet. Wenn der Zellenwert> 100 ist, muss eine MIDI-Datei abgespielt werden.
Sounddatei abspielen

In diesem Tipp werden die hier am 23. Dezember beschriebenen Ereignishandler verwendet. Wenn Sie mit Event-Handlern nicht vertraut sind, lesen Sie zuerst diesen Tipp.

Der erste Schritt besteht darin, eine Kopie der MIDI-Datei an einer abgelegenen Stelle in Ihrem Arbeitsblatt einzufügen.

  • Öffnen Sie den WIN95 Media Player. Programme> Zubehör> Multimedia
  • Öffnen Sie die ausgewählte Midi-Datei im Media Player.
  • Wählen Sie im Media Player Bearbeiten und dann Objekt kopieren.
  • Suchen Sie in Excel einen abgelegenen Ort. In diesem Beispiel wähle ich Sheet1 Cell Z99 aus. Klicken Sie hier und klicken Sie dann auf Bearbeiten> Einfügen
  • Sehen Sie sich das Namensfeld in Excel an. Im Namensfeld wird der Midi-Datei ein Name gegeben. Meins heißt Objekt 1.

Das VBA-Makro zum Abspielen dieser Midi-Datei lautet:

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

Je nachdem, ob Sie über Excel 97 oder Excel 95 / 7.0 verfügen, verwenden Sie den entsprechenden Ereignishandler, um den obigen Code aufzurufen. Hier ist ein Beispiel für Excel 97. Angenommen, wenn in Zelle A1 ein neuer Wert eingegeben wird, möchten Sie überprüfen, ob die berechnete Zelle in A2> 100 ist. Der Ereignishandler lautet wie folgt:

Öffnen Sie den Visual Basic-Editor. Klicken Sie im linken Fenster mit der rechten Maustaste auf Sheet1 und wählen Sie Code anzeigen. Oben im Dialogfeld Book1 - Sheet1-Code befinden sich zwei Dropdown-Listen. Wählen Sie in der linken Dropdown-Liste Arbeitsblatt aus. Wählen Sie in der rechten Dropdown-Liste Ändern aus. Geben Sie die folgenden Codezeilen ein:

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 Beiträge...