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 komandas pogu savā 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.
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 komandas pogu savā darblapā un pievienojiet šādas koda rindiņas:
Dim i As Integer
Ja i = 1 līdz 10000
Diapazons ("A1"). Vērtība = i
Tālāk i
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.
2. Lai paātrinātu procesu, atjauniniet kodu šādi.
Dim i As Integer
Application.ScreenUpdating = Nepareizi
Ja i = 1 līdz 10000
Diapazons ("A1"). Vērtība = i
Tālāk i
Application.ScreenUpdating = Patiesa
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 komandas pogu savā 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.
2. Lai uzdotu Excel VBA nerādīt šo brīdinājumu, izpildot kodu, atjauniniet kodu šādi.
Application.DisplayAlerts = Nepareizi
ActiveWorkbook. Aizvērt
Application.DisplayAlerts = Patiesa
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 mainās 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 komandas pogu savā 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.
3. Tagad, mainot šūnas A1 vērtību, šūnas B1 vērtība netiek pārrēķināta.
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