Ako používať udalosti s objektom aplikácie v Exceli

Microsoft Excel je programovací jazyk Visual Basic for Applications ( VBA ) , využíva virtuálnych objektov rozšíriť funkcie programu Excel . Jeden z týchto objektov je objekt Application , čo umožňuje VBA programátorom písať programy , ktoré majú vplyv na programe Excel sám . Udalosti tohto objektu spôsobiť podprogramy s názvom " Funkcia udalostí" na vykonanie . Každý programový kód umiestniť do týchto funkcií sa spustí , keď nastane udalosť ( napr. nové stvorenie zošit , výber list ) , ktorá funkcia bola napísaná pre . Jednou z výhod písania tohto kódu je schopnosť obrazovke dát , ako ju užívateľ zadá . Návod dovolená 1

programu Excel otvárať v VBA programovacie prostredie pravým tlačidlom myši na kartu ľubovoľného listu v otvorenom zošite , potom výberom " Zobraziť kód " položky .
2

dvakrát kliknite na " projekt " Pane v " Tento zošit " riadok sa otvorí nové okno kód .
3

vložte nasledujúci kód do prvého prázdneho riadku v novom okne . Tento podprogram , ktorý bude prebiehať pri opätovnom otvorení aktuálnej zošit , vytvorí novú inštanciu objektu Application programu Excel . Tým , podprogram je funkcia udalostí objekte k dispozícii Application písať programy pre .

Súkromné ​​WithEvents objApp ako aplikácia

Private Sub Workbook_Open ( )

Set objApp = Application

End Sub
4

Kliknite na rozbaľovací zoznam vľavo v hornej časti okna kód . VBA sa zobrazí zoznam objektov , ktoré môžete písať zvláštne udalosti , ktorých funkčné kód . Jeden z objektov v zozname je " objApp " premenná , ktorú vyhlásil a definované v predchádzajúcom kroku . Vyberte daný objekt .
5

Kliknite na krajnej rozbaľovací zoznam v okne kódu, a vyberte " NewWorkbook " funkciu udalosti . VBA vytvorí prázdnu funkciu pre organizovanie akcií , ktoré budete písať kód .
6

prilepte alebo zadajte nasledujúci programový kód vyššie " objApp_NewWorkbook " podprogram je " End Sub " vyhlásenie .

MsgBox " Vytvorili ste nový zošit . "
7

Stlačte tlačidlo " Alt - F4 " pre uzavretie životného prostredia VBA , a stlačte rovnakú klávesovú skratku pre zatvorenie programu Excel . Uložte zošit s akýmkoľvek platným názvom súboru a s príponou " * . Xlsm . " Uloženie a opätovnom otvorení zošita spustí funkciu Workbook_Open prípade , že ste napísali v kroku 3. Táto funkcia musí bežať , aby všetky funkcie udalostí objApp spustiť .
8

Znovu otvorte zošit , ktorý práve uzavretý , potom stlačte tlačidlo " Control - N " vytvoriť nový zošit . Kód , ktorý ste napísal pre podprogram objApp_NewWorkbook v kroku 6 bude vykonávať , a zobrazí správu " Vytvorili ste nový zošit . "
9

Stlačte tlačidlo " Alt - F11 " Ak chcete znova zadať VBA životné prostredie , potom vložte nasledujúce nové funkcie udalosti v ľubovoľnej prázdne miesto v okne kódu. Táto funkcia udalosť , ktorá spustí , keď zmeníte ľubovoľnú bunku aktuálne otvoreného zošita , nahradí text " JS " s textom " John Smith . "

Private Sub objApp_SheetChange ( ByVal Sh As Object , byval cieľ ako rozsah )

Dim x

x = Target.Value

- li ( x = " JS " ) Potom

x = " John Smith "

Target.Value = x

End If End

sub
10

Späť na Excel stlačením " Alt - F11 , " a potom zadajte text " JS " v každej bunke . Po stlačení tlačidla " Enter " , funkcia objApp_SheetChange udalosť , ktorú napísal v predchádzajúcom kroku bude vykonávať , a zmeniť " JS " do " Johna Smitha . "

• Predchádzajúca strana: Ako na export z Oracle 10g Grid Control do aplikácie Microsoft Excel 
• Ďalšia strana: Ako zakázať Odomknúť príkaz v programe Excel 2007 VBA