Dan från Wauconda ställde veckans Excel-fråga.
Jag har ett Excel-kalkylblad som beräknar ett värde. Om cellvärdet är> 100 behöver jag en midifil som ska spelas.
Detta tips använder de händelsehanterare som diskuteras här den 23 december. Om du inte känner till evenemangshanterare, läs först det tipset.
Det första steget är att klistra in en kopia av MIDI-filen i en out-of-the-way-plats på ditt kalkylblad.
- Öppna mediaspelaren WIN95. Program> Tillbehör> Multimedia
- Öppna den valda midifilen i mediaspelaren.
- Välj Redigera i mediaspelaren och sedan Kopiera objekt.
- I Excel hittar du en plats som inte är vägen. I det här exemplet väljer jag Sheet1 Cell Z99. Klicka här och klicka sedan på Redigera> Klistra in
- Titta på namnrutan i Excel. I namnrutan ger midifilen ett namn. Gruvan heter Objekt 1.
VBA-makrot för att spela den midifilen är:
Sub Playit() ActiveSheet.Shapes("Object 1").Select Selection.Verb Verb:=xlPrimary End SubBeroende på om du har Excel 97 eller Excel 95 / 7.0 skulle du använda lämplig händelsehanterare för att åberopa ovanstående kod. Här är ett exempel för Excel 97. Antag att om ett nytt värde anges i cell A1, vill du kontrollera om den beräknade cellen i A2 är> 100. Händelseshanteraren är som följer:
Öppna Visual Basic Editor. Högerklicka på Sheet1 i det vänstra fönstret och välj Visa kod. Högst upp i dialogrutan Book1 - Sheet1 Code finns det två rullgardinsmenyer. Välj Kalkylark från vänster rullgardinsmeny. Välj Ändra från höger rullgardinsmeny. Ange följande kodrader:
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
