Dan no Wauconda uzdeva šīs nedēļas Excel jautājumu.
Man ir Excel darblapa, kurā tiek aprēķināta vērtība. Ja šūnas vērtība ir> 100, man ir nepieciešams atskaņot midi failu.
Šajā padomā tiek izmantoti 23. decembrī šeit apspriestie pasākumu apstrādātāji. Ja neesat pazīstams ar pasākumu rīkotājiem, lūdzu, vispirms pārskatiet šo padomu.
Pirmais solis ir MIDI faila kopijas ielīmēšana darblapas nepieejamā vietā.
- Atveriet multivides atskaņotāju WIN95. Programmas> Piederumi> Multivide
- Multivides atskaņotājā atveriet izvēlēto midi failu.
- Multivides atskaņotājā atlasiet Rediģēt, pēc tam Kopēt objektu.
- Programmā Excel atrodiet atrašanās vietu, kas nav paredzēta ceļam. Šajā piemērā es izvēlos Sheet1 Cell Z99. Noklikšķiniet šeit un pēc tam nospiediet Rediģēt> Ielīmēt
- Programmā Excel skatiet nosaukumu lodziņu. Vārda lodziņā tas midi failam piešķirs nosaukumu. Manējo sauc par 1. objektu.
VBA makro, lai atskaņotu šo midi failu, ir:
Sub Playit() ActiveSheet.Shapes("Object 1").Select Selection.Verb Verb:=xlPrimary End SubAtkarībā no tā, vai jums ir Excel 97 vai Excel 95 / 7.0, jūs izmantosiet atbilstošo notikumu apdarinātāju, lai izsauktu iepriekš minēto kodu. Šeit ir piemērs Excel 97. Pieņemsim, ja šūnā A1 ir ievadīta jauna vērtība, vēlaties pārbaudīt, vai aprēķinātā šūna A2 ir> 100. Notikumu apstrādātājs ir šāds:
Atveriet Visual Basic redaktoru. Kreisajā logā ar peles labo pogu noklikšķiniet uz Sheet1 un atlasiet Skatīt kodu. Dialoglodziņa Book1 - Sheet1 Code augšdaļā ir divas nolaižamās izvēlnes. Kreisajā nolaižamajā izvēlnē atlasiet Darblapa. Labajā nolaižamajā izvēlnē atlasiet Mainīt. Ievadiet šādas koda rindas:
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
