Dan de la Wauconda a pus întrebarea Excel din această săptămână.
Am o foaie de lucru Excel care calculează o valoare. Dacă valoarea celulei este> 100, am nevoie de un fișier midi pentru a fi redat.
Acest sfat folosește gestionarele de evenimente discutate aici pe 23 decembrie. Dacă nu sunteți familiarizați cu gestionarii de evenimente, vă rugăm să consultați mai întâi acest sfat.
Primul pas este să lipiți o copie a fișierului MIDI într-un loc care nu se poate deplasa pe foaia dvs. de lucru.
- Deschideți playerul media WIN95. Programe> Accesorii> Multimedia
- Deschideți fișierul midi ales în media player.
- În playerul media, selectați Editare, apoi Copiați obiectul.
- În Excel, găsiți o locație care nu se poate deplasa. În acest exemplu, aleg Sheet1 Cell Z99. Faceți clic aici și apoi apăsați Editare> Lipire
- Uită-te la caseta de nume din Excel. În caseta de nume, acesta va da fișierului midi un nume. Al meu se numește Obiectul 1.
Macrocomanda VBA pentru redarea fișierului midi este:
Sub Playit() ActiveSheet.Shapes("Object 1").Select Selection.Verb Verb:=xlPrimary End SubÎn funcție de dacă aveți Excel 97 sau Excel 95 / 7.0, veți folosi gestionarul de evenimente adecvat pentru a invoca codul de mai sus. Iată un exemplu pentru Excel 97. Să presupunem că dacă este introdusă o nouă valoare în celula A1, doriți să verificați dacă celula calculată din A2 este> 100. Tratamentul de evenimente este după cum urmează:
Deschideți Editorul Visual Basic. În fereastra din stânga, faceți clic dreapta pe Sheet1 și selectați View Code. În partea de sus a casetei de dialog Book1 - Sheet1 Code, există două meniuri derulante. Din meniul derulant din stânga, selectați Foaia de lucru. Din meniul derulant din dreapta, selectați Modificare. Introduceți următoarele linii de cod:
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
