Dan z Wauconda zadał w tym tygodniu pytanie dotyczące programu Excel.
Mam arkusz programu Excel, który oblicza wartość. Jeśli wartość komórki jest> 100, potrzebuję do odtworzenia pliku midi.
Ta wskazówka korzysta z programów obsługi zdarzeń omówionych tutaj 23 grudnia. Jeśli nie znasz programów obsługi zdarzeń, zapoznaj się najpierw z tą wskazówką.
Pierwszym krokiem jest wklejenie kopii pliku MIDI w niedostępne miejsce w arkuszu.
- Otwórz odtwarzacz multimedialny WIN95. Programy> Akcesoria> Multimedia
- Otwórz wybrany plik midi w odtwarzaczu multimedialnym.
- W odtwarzaczu multimedialnym wybierz opcję Edytuj, a następnie Kopiuj obiekt.
- W programie Excel znajdź miejsce na uboczu. W tym przykładzie wybieram Sheet1 Cell Z99. Kliknij tutaj, a następnie naciśnij Edycja> Wklej
- Spójrz na pole nazwy w programie Excel. W polu nazwy nada plikowi midi nazwę. Mój nazywa się Object 1.
Makro VBA do odtwarzania tego pliku midi to:
Sub Playit() ActiveSheet.Shapes("Object 1").Select Selection.Verb Verb:=xlPrimary End SubW zależności od tego, czy masz Excel 97 czy Excel 95 / 7.0, użyjesz odpowiedniej obsługi zdarzeń do wywołania powyższego kodu. Oto przykład dla programu Excel 97. Załóżmy, że jeśli w komórce A1 wprowadzono nową wartość, chcesz sprawdzić, czy komórka obliczeniowa w komórce A2 jest> 100. Procedura obsługi zdarzeń jest następująca:
Otwórz Edytor Visual Basic. W lewym oknie kliknij prawym przyciskiem Arkusz1 i wybierz Wyświetl kod. W górnej części okna dialogowego Book1 - Sheet1 Code znajdują się dwa menu rozwijane. Z menu rozwijanego po lewej stronie wybierz opcję Arkusz. Z menu po prawej stronie wybierz Zmień. Wpisz następujące wiersze kodu:
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
