Vba

Lietojumprogrammas objekts

Application Object

DarblapaFunkcija | Ekrāna atjaunināšana | DisplayAlerts | Aprēķins





Visu objektu māte ir pati Excel. Mēs to saucam par Lietojumprogrammas objekts . Lietojumprogrammas objekts nodrošina piekļuvi daudzām ar Excel saistītām iespējām.

DarblapaFunkcija

Darbā varat izmantot rekvizītu WorksheetFunction Excel VBA lai piekļūtu Excel funkcijām.





1. Piemēram, ievietojiet a komandu pogu darblapā un pievienojiet šādu koda rindiņu:

Diapazons ('A3'). Vērtība = Application.WorksheetFunction.Average (Diapazons ('A1: A2'))

Noklikšķinot uz komandas pogas darblapā, Excel VBA aprēķina vidējo vērtību šūnās A1 un A2 un ievieto rezultātu šūnā A3.



Funkcija Excel VBA

Piezīme. Programmas Application.WorksheetFunction.Average vietā vienkārši izmantojiet WorksheetFunction.Average. Aplūkojot formulas joslu, var redzēt, ka formula nav ievietota šūnā A3. Lai pašu formulu ievietotu šūnā A3, izmantojiet šādu koda rindiņu:

Diapazons ('A3'). Vērtība = '= VIDĒJĀ (A1: A2)'

Ekrāna atjaunināšana

Dažreiz, izpildot kodu, var būt noderīgi atspējot ekrāna atjaunināšanu (lai izvairītos no mirgošanas). Tā rezultātā jūsu kods darbosies ātrāk.

1. Piemēram, ievietojiet a komandu pogu darblapā un pievienojiet šādas koda rindiņas:

Navi Vesels skaitlis

Priekši = 1Uz10 000
Diapazons ('A1'). Vērtība = i
Nākamaisi

Noklikšķinot uz komandas pogas darblapā, Excel VBA parāda katru vērtību niecīgu sekundes daļu, un tas var aizņemt kādu laiku.

Ekrāna atjaunināšana

kā atņemt procentus Excel

2. Lai paātrinātu procesu, atjauniniet kodu šādi.

Navi Vesels skaitlis

Lietojumprogramma. Ekrāna atjaunināšana =Nepatiess

Priekši = 1Uz10 000
Diapazons ('A1'). Vērtība = i
Nākamaisi

Lietojumprogramma. Ekrāna atjaunināšana =Taisnība

Tā rezultātā jūsu kods darbosies daudz ātrāk, un jūs redzēsit tikai gala rezultātu (10000).

DisplayAlerts

Varat norādīt Excel VBA nerādīt brīdinājumus, izpildot kodu.

1. Piemēram, ievietojiet a komandu pogu darblapā un pievienojiet šādu koda rindiņu:

ActiveWorkbook. Aizvērt

Noklikšķinot uz komandas pogas darblapā, Excel VBA aizver jūsu Excel failu un lūdz saglabāt veiktās izmaiņas.

DisplayAlerts

atbrīvoties no tukšajām šūnām programmā Excel

2. Lai uzdotu Excel VBA nerādīt šo brīdinājumu, izpildot kodu, atjauniniet kodu šādi.

Application.DisplayAlerts =Nepatiess

ActiveWorkbook. Aizvērt

Application.DisplayAlerts =Taisnība

Rezultātā Excel VBA aizver jūsu Excel failu, neprasot saglabāt veiktās izmaiņas. Visas izmaiņas tiek zaudētas.

Aprēķins

Pēc noklusējuma aprēķins ir iestatīts uz automātisku. Rezultātā programma Excel automātiski pārrēķina darbgrāmatu katru reizi, kad tiek mainīta vērtība, kas ietekmē formulu. Ja jūsu darbgrāmatā ir daudz sarežģītu formulu, varat paātrināt makro, iestatot aprēķinu manuāli.

1. Piemēram, ievietojiet a komandu pogu darblapā un pievienojiet šādu koda rindiņu:

Application.Calculation = xlCalculationManual

Noklikšķinot uz komandas pogas darblapā, programma Excel VBA aprēķina manuāli.

2. To var pārbaudīt, noklikšķinot uz Fails, Opcijas, Formulas.

Aprēķina iespējas

3. Tagad, mainot šūnas A1 vērtību, šūnas B1 vērtība netiek pārrēķināta.

Manuālais aprēķins

Jūs varat manuāli pārrēķināt darbgrāmatu, nospiežot F9.

4. Lielākajā daļā gadījumu koda beigās atkal iestatīsit aprēķinu uz automātisku. Lai to panāktu, vienkārši pievienojiet šādu koda rindiņu.

Application.Calculation = xlCalculationAutomatic

1/4 Pabeigts! Uzziniet vairāk par lietojumprogrammas objektu>
Doties uz nākamo nodaļu: ActiveX vadīklas



^