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.
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:
NaviKā Vesels skaitlisPriekš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.
kā atņemt procentus Excel
2. Lai paātrinātu procesu, atjauniniet kodu šādi.
NaviKā Vesels skaitlisLietojumprogramma. 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ērtNoklikšķinot uz komandas pogas darblapā, Excel VBA aizver jūsu Excel failu un lūdz saglabāt veiktās izmaiņas.
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 =NepatiessActiveWorkbook. 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 = xlCalculationManualNoklikšķ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 = xlCalculationAutomaticDoties uz nākamo nodaļu: ActiveX vadīklas