/ / Excel VBA lietojuma objekts

Excel VBA pieteikuma objekts

DarblapaFunkcija | ScreenUpdating | DisplayAlerts | Aprēķins

Visu objektu māte ir pati Excel. Mēs to saucam par Lietojuma objekts. Lietojumprogrammas objekts dod piekļuvi daudzām iespējām, kas saistītas ar Excel.

DarblapaFunkcija

Jūs varat izmantot īpašumu WorksheetFunction Excel VBA lai piekļūtu Excel funkcijām.

1. Piemēram, savā darba lapā ievietojiet komandas pogu un pievienojiet šādu koda rindiņu:

Range("A3").Value = Application.WorksheetFunction.Average(Range("A1:A2"))

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

DarblapaFunkcija programmā Excel VBA

Piezīme: nevis Application.WorksheetFunction.Vidēji, vienkārši izmantojiet WorksheetFunction.Average. Ja paskatās uz formulas joslu, jūs varat redzēt, ka pati formula nav ievietota šūnā A3. Lai pašu formulu ievietotu šūnā A3, izmantojiet šādu koda rindu:

Range("A3").Value = "=AVERAGE(A1:A2)"

ScreenUpdating

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

1. Piemēram, savā darba lapā ievietojiet komandas pogu un pievienojiet šādas koda līnijas:

Dim i As Integer

For i = 1 To 10000
    Range("A1").Value = i
Next i

Kad noklikšķināt uz komandu pogas darblapā, Excel VBA parāda katru vērtību mazu sekundes daļu, un tas var aizņemt kādu laiku.

ScreenUpdating

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

Dim i As Integer

Application.ScreenUpdating = False

For i = 1 To 10000
    Range("A1").Value = i
Next i

Application.ScreenUpdating = True

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

DisplayAlerts

Jūs varat uzdot Excel VBA nerādīt brīdinājumus, izpildot kodu.

1. Piemēram, savā darba lapā ievietojiet komandas pogu un pievienojiet šādu koda rindiņu:

ActiveWorkbook.Close

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

DisplayAlerts

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

Application.DisplayAlerts = False

ActiveWorkbook.Close

Application.DisplayAlerts = True

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

Aprēķins

Pēc noklusējuma aprēķins ir iestatīts automātiski. Tā rezultātā Excel Excel automātiski pārrēķina katru reizi, kad mainās formula, 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, savā darba lapā ievietojiet komandas pogu un pievienojiet šādu koda rindiņu:

Application.Calculation = xlCalculationManual

Kad noklikšķināt uz komandas pogas darblapā, Excel VBA aprēķina manuāli.

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

Aprēķinu 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. Vairumā gadījumu atkal iestatīsiet aprēķinu automātiskai koda beigās. Lai to sasniegtu, vienkārši pievienojiet šādu koda rindiņu.

Application.Calculation = xlCalculationAutomatic
Lasīt arī: