Danas iš „Wauconda“ pateikė šios savaitės „Excel“ klausimą.
Turiu „Excel“ darbalapį, kuriame apskaičiuojama vertė. Jei langelio vertė yra> 100, man reikia leisti „midi“ failą.
Šiame patarime naudojami renginių tvarkytojai, aptarti čia gruodžio 23 d. Jei nesate susipažinę su renginių tvarkytojais, pirmiausia peržiūrėkite tą patarimą.
Pirmas žingsnis - įklijuokite MIDI failo kopiją į savo darbalapio vietą.
- Atidarykite WIN95 medijos leistuvą. Programos> Priedai> Daugialypė terpė
- Medijos leistuvėje atidarykite pasirinktą „midi“ failą.
- Medijos leistuvėje pasirinkite Redaguoti, tada Kopijuoti objektą.
- Programoje „Excel“ raskite vietą, kuri nėra tinkama. Šiame pavyzdyje aš renkuosi „Sheet1 Cell Z99“. Spustelėkite čia ir tada spustelėkite Redaguoti> Įklijuoti
- Pažvelkite į „Excel“ vardų laukelį. Vardo laukelyje jis suteiks midi failui pavadinimą. Mano yra vadinamas 1 objektu.
VBA makrokomanda, leidžianti tą „midi“ failą, yra:
Sub Playit() ActiveSheet.Shapes("Object 1").Select Selection.Verb Verb:=xlPrimary End SubPriklausomai nuo to, ar turite „Excel 97“ ar „Excel 95 / 7.0“, norėtumėte pasinaudoti aukščiau nurodytu kodu naudodami atitinkamą įvykių tvarkytuvą. Pateikiame „Excel 97“ pavyzdį. Tarkime, kad jei langelyje A1 įvesta nauja reikšmė, norite patikrinti, ar apskaičiuotas langelis A2 yra> 100. Įvykių tvarkytuvas yra toks:
Atidarykite „Visual Basic“ redaktorių. Kairiajame lange dešiniuoju pelės mygtuku spustelėkite „Sheet1“ ir pasirinkite „View Code“. Dialogo lango „Book1 - Sheet1 Code“ viršuje yra du išskleidžiamieji meniu. Kairiajame išskleidžiamajame meniu pasirinkite Darbalapis. Dešiniajame išskleidžiamajame meniu pasirinkite Keisti. Įveskite šias kodo eilutes:
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
