Dan Waucondasta esitti tämän viikon Excel-kysymyksen.
Minulla on Excel-laskentataulukko, joka laskee arvon. Jos solun arvo on> 100, minun on toistettava midi-tiedosto.
Tässä vihjeessä käytetään täällä 23. joulukuuta keskusteltuja tapahtumankäsittelijöitä. Jos et ole perehtynyt tapahtumankäsittelijöihin, tarkista ensin tämä vinkki.
Ensimmäinen vaihe on liittää kopio MIDI-tiedostosta laskentataulukon oikeaan paikkaan.
- Avaa WIN95-mediasoitin. Ohjelmat> Lisätarvikkeet> Multimedia
- Avaa valittu miditiedosto mediasoittimessa.
- Valitse mediasoittimessa Muokkaa ja sitten Kopioi objekti.
- Etsi Excelistä poissaoleva sijainti. Tässä esimerkissä valitsen Sheet1 Cell Z99. Napsauta tätä ja napsauta sitten Muokkaa> Liitä
- Katso nimiruutua Excelissä. Nimi-ruudussa se antaa midi-tiedostolle nimen. Minua kutsutaan nimellä Object 1.
VBA-makro kyseisen midi-tiedoston toistamiseen on:
Sub Playit() ActiveSheet.Shapes("Object 1").Select Selection.Verb Verb:=xlPrimary End SubRiippuen siitä, onko sinulla Excel 97 tai Excel 95 / 7.0, käytät yllä olevaa koodia käyttämällä asianmukaista tapahtumankäsittelijää. Tässä on esimerkki Excel 97: stä. Oletetaan, että jos uusi arvo syötetään soluun A1, haluat tarkistaa, onko laskettu solu sarjassa A2> 100. Tapahtumankäsittelijä on seuraava:
Avaa Visual Basic Editor. Napsauta vasemmassa ikkunassa hiiren kakkospainikkeella Taulukko1 ja valitse Näytä koodi. Kirja1 - Taulukko1-koodi-valintaikkunan yläosassa on kaksi avattavaa valikkoa. Valitse vasemmasta avattavasta valikosta Laskentataulukko. Valitse oikeasta avattavasta valikosta Muuta. Kirjoita seuraavat koodirivit:
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
