Osnove VBA programiranja i kreiranje makronaredbi u Microsoft Office aplikacijama. Primjeri Excel makronaredbi

Unatoč snažnoj funkcionalnosti koju pruža korisničko sučelje programa Excel, postoji niz zadataka koji se mogu izvršiti samo programski. Knjiga "Korištenje makronaredbi u Excelu" predstavlja uvod u Excel VBA programiranje, sadrži primjere rješavanja raznih praktičnih problema koji se javljaju pri radu u Excelu.Materijal knjige namijenjen je korisnicima programa Excel, kao i programerima koji nisu upoznati s objektnim modelom programa Excel. Zajedno s odjeljcima o razvoju makronaredbi za Excel 2002, pruža uvodni tečaj o pisanju makronaredbi i programa u okruženju programa Excel.

Knjiga: Intenzivni tečaj programiranja u Excelu tijekom vikenda

Izdavač: Dijalektika
Stranice: 421
Format: DJVU
Veličina: 12,6 MB
kvaliteta: Normalan
Jezik: ruski
Žanr: programiranje
Godina izdavanja: 2004
ISBN: 5-8459-0687-3

Mogućnosti programa Microsoft Excel nisu ograničene na rad s podatkovnim tablicama. Iza alata za obradu proračunskih tablica krije se moćan programski jezik - VBA (Visual Basic for Applications). Međutim, gotovo svaki korisnik ima priliku naučiti pisati programe u VBA za rješavanje najrazličitijih problema u Excelu - od mehaničkog izvršavanja izračuna do izrade sustava za unos podataka s vlastitim ekranskim obrascima i s mogućnošću revizije ispravnosti unesenih vrijednosti.

Knjiga: Programiranje u VBA 2002

kvaliteta: Normalan
Jezik: ruski
Žanr: programiranje

Knjiga sadrži tečaj programiranja u Visual Basicu za aplikacije (VBA), koji je osnovni jezik u Microsoft Office aplikacijama (Word, Excel, Access, PowerPoint, FrontPage, Visio itd.). Knjiga je namijenjena početnicima u programiranju u Windows okruženju koristeći Word, Excel i PowerPoint objekte.Dio knjige posvećen je razvoju Office aplikacija koje koriste baze podataka pohranjene u zasebnim datotekama i na udaljenim poslužiteljima.Knjiga sadrži dovoljno materijala za učenje osnova jezika Visual Basic i stvaranje jednostavnih makronaredbi koje pomažu automatizirati rutinski, ponavljajući rad s dokumentima, proračunskim tablicama, grafikonima, prezentacijama itd., kao i za razvoj prilično složenih aplikacija za obradu baze podataka pomoću dijaloških okvira koji korisniku pružaju najmodernije alate za sučelje.Većina primjera u knjizi posvećena je aktualnoj problematici trgovačkog djelovanja, pa će knjiga biti od velike koristi menadžerima na različitim razinama, kojima je po svemu sudeći namijenjen i Microsoft Office i ugrađeni programski jezik VBA.
Dodaci na kraju knjige mogu poslužiti kao zgodna referenca za rad s VBA i običnim VB.

Mnoge su knjige napisane o Excelu. Ali ono što ovu knjigu čini posebnom je to što stavlja razvoj aplikacija za proračunske tablice u širi kontekst. VBA je samo jedna komponenta prilagođenog okruženja za razvoj aplikacija, iako značajna. Ova knjiga pomoći će vam razumjeti zamršenost razvoja aplikacija pomoću VBA. Opisuje brojne značajke VBA jezika, njegove mogućnosti i okruženje za korištenje.Prvo će vam biti ponuđen pregled mogućnosti programa, zatim ćete prijeći na definiranje pojmova VBA programiranja, a zatim se upoznati s sam jezik. Ako ste VBA programer početnik, tada ćete u ovoj publikaciji pronaći sve potrebne informacije koje će vam trebati za daljnji rad. Ako već imate zavidno iskustvo rada s VBA, onda će ova knjiga obogatiti i povećati vaše znanje, dodajući nove tehnike i primjere iz stvarnog života.

PDF verzija uređena i ljubazno ustupljena od strane sudionika.

Microsoft Excel puno je više od obične proračunske tablice. Uvođenjem Visual Basic Editora u Excel 97, nakon čega je uslijedila znatno poboljšana stabilnost Excela 2000, Excel je sam po sebi postao cijenjena razvojna platforma. Excel aplikacije sada se nalaze zajedno s onima temeljenim na C++, Javi i .NET razvojnoj platformi, kao dio temeljnog paketa korporativnih aplikacija kritičnih za misiju.
Nažalost, Excel se još uvijek prečesto smatra platformom za hobiste, da ljudi samo razvijaju Excel aplikacije u svoje slobodno vrijeme za automatizaciju manjih zadataka. Čini se da kratak pregled mnogih Excel VBA knjiga potvrđuje ovo mišljenje. Ove se knjige fokusiraju na osnove automatizacije Excel zadataka pomoću VBA. Ova je knjiga prva takve vrste koja pruža detaljno objašnjenje kako koristiti Excel kao platformu za razvoj aplikacija profesionalne kvalitete.
Dok se čini da većina drugih velikih razvojnih platformi ima de facto standardni tekst koji objašnjava zajednički dogovorene najbolje prakse za arhitekturu, dizajn i razvoj aplikacija pomoću te platforme, Excel do sada nije. Ova knjiga pokušava popuniti tu prazninu. Autori su profesionalni Excel programeri koji stvaraju aplikacije temeljene na Excelu za klijente od pojedinaca do najvećih multinacionalnih korporacija. Ova knjiga objašnjava pristupe koje koristimo prilikom dizajniranja, razvoja, distribucije i podrške aplikacijama koje pišemo za naše klijente.

MZTools - Vrlo koristan uslužni program za one koji programiraju u VBA. Zaista štedi vrijeme pri pisanju kodova. Važno je da korisnost potpuno besplatno. Evo nekih njegovih značajki:

• Automatsko umetanje rukovatelja greškama u module
• Umetanje komentara u zaglavlje procedure, uz automatsko umetanje naziva vremena, modula i procedure, te mogućnost naznake autora procedure
• Automatsko numeriranje redaka koda
• Uklanjanje numeriranja iz redaka koda
• Stvorite često korištene predloške koda
• Vlastiti međuspremnik za 9 operacija s mogućnošću kodiranja i naknadnog umetanja bilo kojeg od 9 kopiranih kodova
• i još puno korisnih stvari

Program se distribuira besplatno.

(37,3 KiB, 3708 preuzimanja)

VBE Alati - Koliko vas je napisalo kod za formu, a onda se sjetilo da neki element nije imenovan kako ste željeli ili ste ga jednostavno htjeli preimenovati zbog promjene koda? I, naravno, naišli smo na problem da kada smo preimenovali element, morali smo ići u kod i tamo zamijeniti sve reference na ovaj element novim imenom. Dakle, uz pomoć ovog programa možete preimenovati bilo koji element obrasca (TextBox, Label itd.) i ActiveX kontrole na Excel listu, a sam program će zamijeniti sve poveznice u kodu iz starog naziva u novi. Vrlo udobno.

Program se distribuira besplatno.

Sljedeći jednostavni primjeri Excel makronaredbi ilustriraju neke od značajki i tehnika opisanih u vodiču za Excel VBA.

Makro programa Excel: 1. primjer

U početku ovaj postupak Pod dat je kao primjer korištenja komentara u VBA kodu. Međutim, ovdje također možete vidjeti kako se varijable deklariraju, kako rade reference ćelija programa Excel i korištenje petlje Za, uvjetni operator Ako i prikazivanje prozora s porukom.

"Procedura Sub traži ćeliju koja sadrži navedeni niz "u rasponu ćelija A1:A100 aktivnog lista Sub Find_String(sFindText As String) Dim i As Integer "Cijeli broj tipa Integer, koji se koristi u petlji For Dim iRowNumber As Integer "Cijeli broj tipa Integer za pohranjivanje rezultata iRowNumber = 0 "Pretražuje ćelije A1:A100 jednu po jednu dok se niz ne pronađe sFindText For i = 1 To 100 If Cells(i, 1).Value = sFindText Then " Ako se pronađe podudaranje s navedenim nizom " spremite trenutni broj retka i izađite iz petlje For iRowNumber = i Exit For End If Next i "Obavijestite korisnika u skočnom prozoru je li traženi redak pronađen "Ako je navedeno red je pronađen, naznačite u kojoj ćeliji je pronađeno podudaranje If iRowNumber = 0 Then MsgBox "Row " & sFindText & " not found" Else MsgBox "Row " & sFindText & " found in cell A" & iRowNumber End If End Sub

Excel makronaredba: Primjer 2

Sljedeći postupak Pod– primjer korištenja petlje Radite dok. Također možete vidjeti kako se varijable deklariraju, radeći s referencama ćelija programa Excel i koristeći uvjetnu izjavu. Ako.

"Procedura Sub daje Fibonaccijeve brojeve koji ne prelaze 1000 Sub Fibonacci() Dim i As Integer "Brojač za označavanje položaja elementa u nizu Dim iFib As Integer "Pohranjuje trenutnu vrijednost niza Dim iFib_Next As Integer "Pohranjuje sljedeća vrijednost niza Dim iStep As Integer "Pohranjuje veličinu sljedećeg inkrementa "Inicijaliziraj varijable i i iFib_Next i = 1 iFib_Next = 0 "Do While petlja će se izvršavati dok vrijednost "trenutačnog Fibonaccijevog broja ne prijeđe 1000 Do While iFib_Dalje< 1000 If i = 1 Then "Особый случай для первого элемента последовательности iStep = 1 iFib = 0 Else "Сохраняем размер следующего приращения перед тем, как перезаписать "текущее значение последовательности iStep = iFib iFib = iFib_Next End If "Выводим текущее число Фибоначчи в столбце A активного рабочего листа "в строке с индексом i Cells(i, 1).Value = iFib "Вычисляем следующее число Фибоначчи и увеличиваем индекс позиции элемента на 1 iFib_Next = iFib + iStep i = i + 1 Loop End Sub

Excel makronaredba: Primjer 3

Ovaj postupak Pod skenira ćelije stupca A aktivni list dok ne naiđe na praznu ćeliju. Vrijednosti se zapisuju u niz. Ova jednostavna Excel makronaredba prikazuje rad s dinamičkim nizovima, kao i korištenje petlje Učinite Do. U ovom primjeru nećemo izvoditi nikakve radnje s nizom, iako se u stvarnoj programerskoj praksi, nakon upisa podataka u niz, takve radnje obično izvode na njima.

"Procedura Sub pohranjuje vrijednosti ćelija stupca A aktivnog lista u polje Sub GetCellValues() Dim iRow As Integer "Pohranjuje broj trenutnog retka Dim dCellValues() Kao Double "Polje za pohranu vrijednosti ćelija ​​iRow = 1 ReDim dCellValues(1 To 10) "Do Loop Until ponavlja sekvencijalno kroz ćelije stupca A aktivnog lista "i ekstrahira njihove vrijednosti u niz dok se ne naiđe na praznu ćeliju Do Until IsEmpty(Cells( iRow, 1)) "Provjerite je li polje dCellValues ​​​​dovoljne veličine "Ako nije, povećajte polje veličine za 10 koristeći ReDim If UBound(dCellValues)< iRow Then ReDim Preserve dCellValues(1 To iRow + 9) End If "Сохраняем значение текущей ячейки в массиве dCellValues dCellValues(iRow) = Cells(iRow, 1).Value iRow = iRow + 1 Loop End Sub

Excel makronaredba: Primjer 4

U ovom primjeru postupak Podčita vrijednosti iz stupca A radni list List2 te nad njima izvodi aritmetičke operacije. Rezultati se unose u ćelije stupaca A na aktivnom radnom listu. Ova makronaredba pokazuje korištenje Excel objekata. Konkretno, žalba se provodi po postupku Pod na objekt Stupci, i pokazuje kako se ovom objektu pristupa kroz objekt Radni list. Također je pokazano da kada se pristupa ćeliji ili rasponu ćelija na aktivnom listu, nije potrebno navesti naziv tog lista prilikom pisanja veze.

"Procedura Sub, koristeći petlju, čita vrijednosti u stupcu A radnog lista Sheet2, "izvodi aritmetičke operacije sa svakom vrijednošću i zapisuje rezultat u "stupac A aktivnog radnog lista (Sheet1) Sub Transfer_ColA() Dim i As Integer Dim Col As Range Dim dVal As Double "Dodijeli varijabli Col stupac A radnog lista Sheet 2 Set Col = Sheets("Sheet2").Columns("A") i = 1 "Koristeći petlju, čitamo vrijednosti ​ćelija stupca Col dok "dok se ne naiđe na praznu ćeliju Do IsEmpty(Col.Cells(i)) "Izvrši aritmetičke operacije na vrijednosti trenutne ćelije dVal = Col.Cells(i).Vrijednost * 3 - 1 "Sljedeća naredba zapisuje rezultat u stupac A aktivnog radnog lista "Naznačite naziv lista u vezi nije potrebno jer je ovo aktivni list Cells(i, 1) = dVal i = i + 1 Loop End Sub

Excel makronaredba: Primjer 5

Ova makronaredba prikazuje primjer VBA koda koji nadzire Excel događaj. Događaj kojem je makronaredba pridružena događa se svaki put kada se na radnom listu odabere ćelija ili raspon ćelija. U našem slučaju, prilikom odabira ćelije B1, na zaslonu se pojavljuje prozor s porukom.

"Ovaj kod prikazuje okvir s porukom ako je ćelija B1 odabrana na trenutnom radnom listu. Private Sub Worksheet_SelectionChange(ByVal Target As Range) "Provjerite je li ćelija B1 odabrana If Target.Count = 1 And Target.Row = 1 And Target.Column = 2 Zatim "Ako je odabrana ćelija B1, izvršite potrebnu radnju MsgBox "Odabrali ste ćeliju B1" End If End Sub

Excel makronaredba: primjer 6

Ovaj postupak ilustrira upotrebu operatora Na pogrešku I Nastavi za obradu grešaka. Ovaj kod također pokazuje primjer otvaranja i čitanja podataka iz datoteke.

"Procedura Sub dodjeljuje argumentima Val1 i Val2 vrijednosti ćelija A1 i B1" iz radne knjige Data.xlsx koja se nalazi u mapi C:\Documents and Settings Sub Set_Values(Val1 As Double, Val2 As Double) Dim DataWorkbook As Workbook On Error GoTo ErrorHandling " Otvorite radnu knjigu s podacima Set DataWorkbook = Workbooks.Open("C:\Documents and Settings\Data") "Dodijelite vrijednosti varijabli Val1 i Val2 iz dane radne knjige Val1 = Sheets("Sheet1" ").Cells(1, 1) Val2 = Sheets("Sheet1").Cells(1, 2) DataWorkbook.Close Exit Sub ErrorHandling: "Ako datoteka nije pronađena, korisnik će biti upitan da postavi traženu datoteku " u željenu mapu, a zatim nastavite s izvršavanjem makronaredbe MsgBox "Datoteka Data.xlsx nije pronađena! " & _ "Dodajte radnu knjigu u mapu C:\Documents and Settings i kliknite OK" Nastavi Kraj pod

Sadržaj ove stranice će se stalno proširivati...

1. Program kalkulatora "Podizanje brojeva na velike potencije."
   

   Implementirati točan izračun podizanja jednoznamenkastih brojeva (od 2 do 9) na velike potencije pomoću duge aritmetike.

2. S foruma autora Jonny323. VBA Word

   Bok svima. Stvarno mi treba makronaredba, mislim da nije komplicirana: Ispiši prvu stranicu u 6 kopija i drugu stranicu u 2 kopije. Hvala unaprijed.

3. ProgressBar na obrascu. VBA Excel

   Kontrola koja pokazuje napredovanje programa (koliko je posla odrađeno od 100%)...

4. Statistički izračuni u odabranom tekstu. VBA Word

   Napravite makronaredbu u Wordu koja će odrediti broj riječi, zareza i točaka u slobodnom tekstu.
   Riječi su skupine znakova odvojenih razmacima (jednim ili više) i ne sadrže razmake u sebi. Unutar riječi ne mogu biti točke ili zarezi. Elipse se ne broje kao točkice...

5. Statistički izračuni u tekstu dokumenta. Korištenje korisničkog obrasca za unos podataka. VBA Word

   Napravite program u Wordu - U formular korisnik upisuje riječ ili frazu, a program skenira cijeli tekst i upisuje upisanu riječ (frazu) na kraj dokumenta, pored koje su svi brojevi stranica na kojima je ovaj riječi koje se pojavljuju su navedene. Podudaranje brojeva stranica nije dopušteno. To jest, ako se navedena riječ pojavljuje tri puta na stranici 5, broj 5 se prikazuje samo jednom u ispisu. Obrazac se mora sastojati od sljedećih komponenti:
   - 1 TextBox za unos riječi (fraze);
   - 1 tipka za izlaz iz programa;
   - 1 gumb za pokretanje pretraživanja i umetanje rezultata u dokument;
   - komponentu tipa Label s tekstom objašnjenja iznad reda za unos;
   - Osim toga, obrazac može imati komponente tipa Okvir;
   

6. Rad s ListBoxom (Excel). Povezivanje, sortiranje, višestruki odabir...

7. Program za rješavanje japanske zagonetke Sudoku (Excel)

8. Makronaredbe za izvršavanje upita (tj. generiranje nove tablice iz Excel baze podataka)

9. Hoare sortiranje (algoritam s wikipedia.org)

   Jedna od najbržih metoda sortiranja.

10. Sortiranje spajanjem (pomoću Hoarea)

    Jedna od najbržih i najoptimalnijih metoda sortiranja.

11. VBA Excel: Program za izračunavanje ljudskih bioritmova

12. Za blackarrow s programmersforum.ru

13. Odredi koja koordinatna četvrtina
    točka sa zadanim koordinatama A(a,b) pogađa. VBA EXCEL.

14. Predstavljanje cijelog broja riječima VBA EXCEL.

15. LOGIKE.

    Rješavanje kvadratne jednadžbe.

16. VBA EXCEL.

17. VBA EXCEL. Problem trokuta. Niz, petlja, logika.

    Na temelju zadanih dimenzija triju stranica trokuta odredi njegovu vrstu (pravokutni, tupokutni, šiljasti ili nemoguće konstruirati).

18. Budilica u Excelu

19. VBA EXCEL.

20. VBA EXCEL.

21. VBA EXCEL.

    Makronaredba koja u odabranom rasponu predstavlja svi negativni brojevi su u plavoj boji, pozitivni brojevi su u crvenoj, a nulti brojevi su u bijelom (ili žutom).

22. VBA EXCEL. Kako sakriti ili prikazati elemente radnog lista.

    Ponekad je potrebno sakriti neke značajke od korisnika (obično je smještaj podataka skriven):
    - posjetite druge listove ove knjige (bolje je ne znati za njih);
    - pomicati (vodoravno i okomito) list
    - čitati i mijenjati formule u ćelijama radnog lista
    - sakriti linije stupaca i redaka
    - sakriti zaglavlja (imena i brojeve) stupaca i redaka

23. VBA EXCEL. Dodaj i ukloni stavku izbornika.

    Nije teško dodati (ukloniti) vlastitu stavku u Excel izbornik. Sve je to opisano u pomoći.
    Ali mnogo je zanimljivije povjeriti ovaj posao makrou.
    Tada postaje moguće kreirati poseban, individualni izbornik prilikom otvaranja određenog dokumenta, a nakon zatvaranja vratiti Excel izbornik u prvobitno stanje. (Ovaj primjer koda radi samo u MS Excelu 2003, au 2007 nazive kontrolnih ploča treba promijeniti)

24. Stanični automati VBA EXCEL.

25. Metoda zlatnog reza VBA EXCEL.

26. Zamjenjuje maksimalne i minimalne vrijednosti ćelija u odabranom rasponu. VBA Excel

    Razvijte program ili korisnički obrazac za pronalaženje i zamjenu elemenata s maksimalnim i minimalnim vrijednostima odabranog raspona radnog lista

27. Funkcija niza koja vraća kvadrate prostih brojeva od nule do zadanog broja. VBA Excel

    Napravite funkciju u Excelu koja prima prirodni broj N i vraća kvadrate svih prostih brojeva od 0 do zadanog prirodnog broja N.

28. Korisnički obrazac (UserForm) za unos podataka o kreditima poslovnih banaka. VBA Excel

    Organizirati unos podataka u tablicu koja sadrži podatke o izdavanju dugoročnih kredita od strane poslovne banke sa sljedećim podacima: šifra primatelja kredita, naziv primatelja kredita, datum kredita, rok (3-4 roka). ) za koji je zajam izdan (u danima), kamata, iznos zajma, datum plaćanja kamata na zajam.

29. Korisnički obrazac (UserForm) za unos podataka o prijavi turista. VBA Excel

    baš na ovom mjestu...

Cilj rada - Proučavanje osnovnih operatora i implementacija osnovnih programskih konstrukcija u jeziku VBA.

4.1 Glavne faze rada s vba programima u Excelu

Da biste pripremili i pokrenuli program u VBA, morate učiniti sljedeće:

u Excelu odaberite naredbu iz izbornika Alati – Makro – UređivačVizualnoOsnovni, temeljni;

u prozoru koji se pojavi odaberite naredbu iz izbornika Umetnuti – Modul. Kreira se modul, odnosno, pojednostavljeno rečeno, otvara se prozor u koji možete unijeti tekst programa.

Uputa može biti navedena na početku modula OpcijaEksplicitan. Ako je navedeno, tada će sve varijable korištene u programu morati biti deklarirane u izjavi Dim(Za više informacija o tome pogledajte pododjeljak 4.3).

U nekim slučajevima, ovisno o tome kako je VBA okruženje konfigurirano, uputa OpcijaEksplicitan se automatski prikazuje na početku modula. Ako programer želi koristiti varijable bez deklariranja u iskazu Dim, zatim upute OpcijaEksplicitan treba ukloniti.

Da biste pokrenuli program, morate odabrati naredbu iz izbornika Pokreni – Pokreni pod/korisnički obrazac.

4.2 Najjednostavniji primjer programa u VBA

Primjer 4.1– Program koji podiže određeni broj a do navedenog stupnja b.

Zatamni a Kao pojedinačna, b Kao pojedinačna

a = InputBox(“Unesite bazu: ”)

b = InputBox(“Unesite eksponent: ”)

x = a^b ‘Potenciranje

MsgBox(“Rezultat je ” & x)

Evo riječi Pod označava početak postupka; njeno ime u ovom slučaju je početnica4_1 . VBA program se uvijek sastoji od jedne ili više procedura (u ovom slučaju jedne).

Znak ' (jednostruki navodnik) označava početak komentara. Tekst komentara može biti bilo koji.

Dim– operator deklaracije varijable. U ovom slučaju naznačeno je da varijable a I b imati tip Singl. oni. mogu predstavljati i cijele i razlomljene brojeve. O tipovima podataka i deklaracijama varijabli detaljnije će se govoriti u pododjeljku 4.3.

InputBox– funkcija za unos vrijednosti varijable. Crta a = InputBox(“Unesite bazu:”) znači da se upisuje vrijednost varijable a; na ekranu se prikazuje poruka "Uđi u bazu:". Crta x = a^ b– operator dodjeljivanja: izračunava se vrijednost desne strane (u ovom slučaju varijabla a podignut na vlast b), a rezultat se dodjeljuje varijabli navedenoj na lijevoj strani (u ovom slučaju, varijabli x). Crta MsgBox("Rezultat je" &x) znači da je poruka prikazana na ekranu “Rezultat je jednak” i vrijednost varijable x.

Napomena - Potpišite & u funkciji MsgBox dizajniran za spajanje nekoliko podatkovnih elemenata koje je potrebno prikazati, u ovom primjeru - nizove “Rezultat je izjednačen” i promjenjiva x. Sličan znak & može se koristiti u funkciji InputBox(primjeri takve upotrebe bit će navedeni u nastavku). Ispred znaka & a iza njega moraju biti razmaci.

Možete staviti više VBA naredbi u jedan redak. Da biste to učinili, odvojeni su znakovima dvotočke. Dakle, program iz primjera 4.1 mogao bi se napisati, na primjer, na sljedeći način:

'Prvi primjer VBA programa

Zatamni a Kao pojedinačna, b Kao pojedinačna

a = InputBox(“Unesite bazu: ”) : b = InputBox(“Unesite eksponent:”)

x = a^b: MsgBox(“Rezultat je “ & x) ‘Potenciranje i izlaz rezultata

Ovaj primjer koristi proceduru koja se zove potprogram. Ovaj postupak počinje riječju Pod. VBA program uvijek ima barem jednu potprogramsku proceduru. Osim toga, jezik VBA ima još jednu vrstu procedura – funkcije. Funkcijski postupak počinje riječju Funkcija. O korištenju takvih postupaka raspravljat će se u pododjeljku 4.9.