Osnove VBA programiranja i kreiranja makroa u Microsoft Office aplikacijama. Excel makro primjeri

Uprkos moćnoj funkcionalnosti koju pruža Excel korisnički interfejs, postoji niz zadataka koji se mogu izvršiti samo programski. Korišćenje makronaredbi u Excelu predstavlja uvod u Excel VBA programiranje sa primerima kako da rešite niz praktičnih Excel problema.Materijal knjige namijenjen je korisnicima Excela, kao i programerima koji nisu upoznati sa Excel objektnim modelom. Uz teme o razvoju makroa za Excel 2002, nudi uvodni kurs o pisanju makroa i programa u Excelu.

knjiga: Vikend intenzivni kurs programiranja u Excelu

Izdavač: Dijalektika
Stranice: 421
Format: DJVU
veličina: 12.6 Mb
kvaliteta: Normalno
Jezik: ruski
žanr: programiranje
Godina izdavanja: 2004
ISBN: 5-8459-0687-3

Mogućnosti Microsoft Excel-a nisu ograničene na rad sa tabelama podataka. Iza alata za proračunske tablice krije se moćan programski jezik - VBA (Visual Basic za aplikacije). Međutim, gotovo svaki korisnik ima priliku naučiti kako pisati programe u VBA za rješavanje najrazličitijih zadataka u Excelu - od mehaničkog izvođenja proračuna do kreiranja sistema za unos podataka sa vlastitim ekranskim formama i sa mogućnošću revizije ispravnosti. od upisanih vrijednosti.

knjiga: VBA programiranje 2002

kvaliteta: Normalno
Jezik: ruski
žanr: programiranje

Knjiga sadrži kurs programiranja u Visual Basicu za aplikacije (VBA), koji je osnovni jezik u Microsoft Office aplikacijama (Word, Excel, Access, PowerPoint, FrontPage, Visio, itd.). Knjiga je namenjena početnicima da programiraju u Windows okruženju koristeći Word-, Excel-, PowerPoint-objekte.Deo knjige posvećen je razvoju Office aplikacija koje koriste baze podataka pohranjene u zasebnim datotekama i na udaljenim serverima.Materijal knjige dovoljan je za učenje osnova jezika Visual Basic i kreiranje jednostavnih makroa koji pomažu u automatizaciji rutinskog ponavljajućeg rada s dokumentima, proračunskim tabelama, grafikonima, prezentacijama itd., kao i za razvoj prilično složenih aplikacija baze podataka pomoću dijaloga kutije koje korisniku pružaju najsavremenija sredstva interfejsa.Većina primera u knjizi posvećena je aktuelnim pitanjima komercijalne delatnosti, pa će knjiga biti veoma korisna za menadžere različitih nivoa, koji su, po svemu sudeći, namenjeni i za Microsoft Office i za ugrađeni programski jezik VBA.
Dodaci na kraju knjige mogu poslužiti kao zgodna referenca kada radite i sa VBA i sa redovnim VB.

Mnoge knjige su napisane u Excelu. Ali ova knjiga je posebna – razvija aplikaciju za tabelarne proračune u širokom kontekstu. VBA je samo jedna komponenta prilagođenog okruženja za razvoj aplikacija, iako vrlo bitna. Ova knjiga će vam pomoći da razumete zamršenosti razvoja aplikacija pomoću VBA. Opisuje mnoge karakteristike VBA jezika, njegove mogućnosti i okruženje korišćenja.Prvo će vam biti ponuđen pregled mogućnosti programa, zatim ćete preći na definisanje koncepata VBA programiranja, a zatim ćete se upoznati. sa samim jezikom. Ako ste početnik VBA programer, onda ćete u ovoj publikaciji pronaći sve potrebne informacije koje su vam potrebne za dalji rad. ako već imate zavidno iskustvo sa VBA, onda će ova knjiga obogatiti i povećati vaše znanje, dodajući nove tehnike i primere iz stvarnog života.

pdf verziju je uredio i ljubazno dao saradnik.

Microsoft Excel je mnogo više od obične tabele. Uvođenjem Visual Basic Editor-a u Excel 97, nakon čega je uslijedila značajno poboljšana stabilnost Excela 2000, Excel je postao cijenjena razvojna platforma za sebe. Excel aplikacije se sada nalaze uz one zasnovane na C++, Javi i razvojnoj platformi .NET, kao dio osnovnog paketa kritičnih korporativnih aplikacija.
Nažalost, Excel se još uvijek prečesto smatra hobističkom platformom, da ljudi samo razvijaju Excel aplikacije u svoje slobodno vrijeme kako bi automatizirali manje zadatke. Čini se da kratak pregled mnogih Excel VBA knjiga potvrđuje ovo mišljenje. Ove knjige se fokusiraju na osnove automatizacije Excel zadataka pomoću VBA. Ova knjiga je prva te vrste koja pruža detaljno objašnjenje kako koristiti Excel kao platformu za razvoj aplikacija profesionalnog kvaliteta.
Dok se čini da većina drugih velikih razvojnih platformi ima de facto standardni tekst koji objašnjava opšte dogovorene najbolje prakse za arhitekturu, projektovanje i razvoj aplikacija koristeći tu platformu, Excel do sada nije imao. Ova knjiga pokušava popuniti tu prazninu. Autori su profesionalni Excel programeri koji kreiraju aplikacije zasnovane na Excelu za klijente u rasponu 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 - Veoma koristan uslužni program za one koji programiraju u VBA. Zaista štedi vrijeme prilikom kodiranja. Također je važno da je korisnost potpuno besplatno... Evo nekih od njegovih karakteristika:

• Automatsko umetanje obrađivača grešaka u module
• Umetanje komentara u zaglavlje procedure, sa automatskim ubacivanjem imena vremena, modula i procedura, mogućnost navođenja autora procedure
• Automatsko numerisanje redova koda
• Uklanjanje numeracije iz redova koda
• Kreiranje šablona za najčešće korištene kodove
• Vlastiti međuspremnik za 9 operacija s mogućnošću kodiranja i zatim lijepljenja bilo kojeg od 9 kopiranih kodova
• i još mnogo korisnih stvari

Program se distribuira besplatno.

(37,3 KiB, 3 708 preuzimanja)

VBE Tools - Koliko vas je moralo da napiše kod za formu, a zatim da se seti da neki element nije imenovan kako ste želeli ili ste samo želeli da preimenujete zbog promene koda? I, naravno, suočili smo se s problemom da kada preimenujete element, morate ući u kod i zamijeniti sve reference na ovaj element novim imenom. Dakle, pomoću ovog programa možete preimenovati naziv bilo kojeg elementa obrasca (TextBox, Label, itd.) i ActiveX kontrola na Excel listu, a sam program će zamijeniti sve veze u kodu sa starog naziva na novi . Vrlo udobno.

Program se distribuira besplatno.

Sljedeći jednostavni primjeri Excel makroa ilustriraju neke od funkcija i tehnika opisanih u Excel VBA vodiču.

Excel makro: primjer 1

U početku ovaj postupak Sub dat je kao primjer korištenja komentara u VBA kodu. Međutim, ovdje također možete vidjeti kako su varijable deklarirane, kako funkcioniraju reference ćelija u Excelu, koristeći petlju Za, uslovni operator Ako i prikaz okvira sa porukom.

"Sub procedura 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 For petlji Dim iRowNumber As Integer" Cijeli broj tipa Integer za pohranjivanje rezultata iRowNumber = 0 "Pregleda ćelije A1: A100 jednu po jednu dok se ne pronađe red sFindText For i = 1 do 100 If Cells (i, 1) .Value = sFindText Then" Ako pronađeno je podudaranje sa datim nizom " sačuvajte trenutni broj reda i izađite iz petlje For iRowNumber = i Izađite za kraj If Next i "Obavještavamo korisnika u iskačućem prozoru ako je traženi red pronađen" Ako je navedeni red je pronađen, označite u kojoj ćeliji je pronađeno podudaranje Ako je iRowNumber = 0 Tada MsgBox "String" & sFindText & "not found" Inače MsgBox "String" & sFindText & "pronađeno u ćeliji A" & iRowNumber End If End Sub

Excel makro: primjer 2

Sljedeća procedura Sub- primjer korištenja petlje Uradi dok... Ovdje također možete vidjeti kako se deklariraju varijable, kako se radi s referencama Excel ćelija i kako primijeniti uvjetni operator. Ako.

"Sub procedura daje Fibonaccijeve brojeve koji ne prelaze 1000 Sub Fibonacci () Dim i As Integer" Brojač za indikaciju položaja elementa u nizu Dim iFib As Integer "Skladišti trenutnu vrijednost niza Dim iFib_Next As Integer" Pohranjuje sljedeću vrijednost niza Dim iStep As Integer "Skladišti veličinu sljedećeg inkrementa "Inicijaliziraj varijable i i iFib_Next i = 1 iFib_Next = 0" Do While petlja će se izvoditi dok vrijednost "trenutnog Fibonaccijevog broja ne pređe 1000 Do While iFib_Next< 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 makro: primjer 3

Ova procedura Sub petlje kroz ćelije kolone A aktivni list dok ne naiđe na praznu ćeliju. Vrijednosti se zapisuju u niz. Ovaj jednostavan Excel makro demonstrira rad sa dinamičkim nizovima kao i korištenje petlje Uradi do... U ovom primjeru nećemo izvoditi nikakve radnje s nizom, iako se u stvarnoj praksi programiranja, nakon što se podaci upisuju u niz, takve akcije se obično izvode na njima.

"Sub procedura pohranjuje vrijednosti ćelija u koloni A aktivnog lista u nizu Sub GetCellValues ​​() Dim iRow As Integer" Pohranjuje broj trenutnog reda Dim dCellValues ​​() kao dvostruki "Niz za pohranjivanje vrijednosti ćelija iRow = 1 ReDim dCellValues ​​(1 do 10)" Loop Do Until petlja kroz ćelije kolone A aktivnog lista "i izdvaja njihove vrijednosti u niz dok se ne isprazni ćelija Do Until IsEmpty (Cells (iRow, 1))" Provjerite da li niz dCellValues ​​ima dovoljnu veličinu "Ako ne, povećajte niz 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 makro: primjer 4

U ovom primjeru, postupak Subčita vrijednosti iz kolone A radni list Sheet2 i izvodi aritmetičke operacije sa njima. Rezultati se zapisuju u ćelije kolone A na aktivnom radnom listu. Ovaj makro demonstrira upotrebu Excel objekata. Konkretno, žalba se podnosi postupkom Sub prema objektu Kolone, i pokazuje kako se ovom objektu pristupa preko objekta Radni list... Takođe je prikazano da kada se upućuje na ćeliju ili opseg ćelija na aktivnom listu, nije potrebno navesti ime ovog lista prilikom pisanja veze.

"Podprocedura koristi petlju za čitanje vrijednosti u stupcu A radnog lista Sheet2", izvodi aritmetičke operacije sa svakom vrijednošću i upisuje rezultat u "kolona A aktivnog radnog lista (Sheet1) Sub Transfer_ColA () Dim i As Integer Dim Col As Range Dim dVal As Double "Dodijelite kolonu A radnog lista Col varijablu Sheet 2 Set Col = Sheets (" Sheet2 "). Kolone (" A ") i = 1" Koristeći petlju, pročitajte vrijednosti ćelija u Col dok "sve dok se ne naiđe na praznu ćeliju Do Until IsEmpty (Col.Cells (i)) "Izvodimo aritmetičke operacije na vrijednosti trenutne ćelije dVal = Col.Cells (i) .Value * 3 - 1" Sljedeće komanda upisuje rezultat u kolonu A aktivnog radnog lista "Navedite ime lista u linku nije potrebno jer je ovo aktivni list Ćelije (i, 1) = dVal i = i + 1 Loop End Sub

Excel makro: primjer 5

Ovaj makro prikazuje primjer VBA koda koji prati Excel događaj. Događaj na koji je makro obavezan javlja se svaki put kada se na radnom listu odabere ćelija ili raspon ćelija. U našem slučaju, prilikom odabira ćelije B1, na ekranu se prikazuje prozor sa porukom.

"Ovaj kod prikazuje okvir sa porukom ako je ćelija B1 odabrana na trenutnom radnom listu" Privatni pod Radni list_SelectionChange (ByVal Target As Range) "Provjerite da li je odabrana ćelija B1 ako je Target.Count = 1 i Target.Row = 1 i Target.Column = 2 Zatim "Ako je odabrana ćelija B1, izvršite potrebnu radnju MsgBox" Odabrali ste ćeliju B1 "Završi ako završi pod

Excel makro: primjer 6

Ovaj postupak ilustruje upotrebu operatora On Error i Nastavi za obradu grešaka. Ovaj kod također pokazuje primjer otvaranja i čitanja podataka iz datoteke.

"Sub procedura postavlja argumente Val1 i Val2 na 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 Idi na ErrorHandling " Otvorite radnu knjigu sa podacima Set DataWorkbook = Workbooks.Open ("C: \ Documents and Settings \ Data") "Dodijelite Val1 i Val2 varijable sa vrijednostima iz navedene radne knjige Val1 = Sheets (" Sheet1 "). Ćelije (1, 1) Val2 = Sheets ("Sheet1"). Ćelije (1, 2) DataWorkbook.Close Exit Sub ErrorHandling: "Ako datoteka nije pronađena, od korisnika će biti zatraženo da stavi željenu datoteku" u željenoj fascikli, a zatim nastavite sa izvršavanjem MsgBox makroa "Datoteka Data.xlsx nije pronađena! "& _" Molimo dodajte radnu svesku u fasciklu C: \ Dokumenti i postavke i kliknite na OK "Nastavi Kraj Sub

Sadržaj ove stranice će se stalno povećavati...

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

   Implementirajte tačan proračun podizanja na velike stepene jednocifrenih brojeva (2 do 9) koristeći dugu aritmetiku.

2. Sa foruma od Jonny323. VBA Word

   Pozdrav svima. Zaista mi treba makro, mislim da nije teško: Štampanje prve stranice u 6 kopija i druge stranice u 2 kopije.Unaprijed hvala.

3. ProgressBar na obrascu. VBA Excel

   Kontrola koja pokazuje napredak programa (koliko je posla obavljeno od 100%)...

4. Statistički proračuni u istaknutom tekstu. VBA Word

   Kreirajte makro u Wordu koji će odrediti broj riječi, zareza i tačaka u slobodnom tekstu.
   Riječi će značiti grupe znakova odvojene razmacima (jedan ili više) i ne sadrže razmake unutar sebe. Unutar riječi ne može biti tačaka ili zareza. Ellipse se ne računaju kao tačke...

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

   Kreiranje programa u Wordu - U formu korisnik unosi riječ ili frazu, a program skenira cijeli tekst i unosi unesenu riječ (frazu) na kraj dokumenta, pored koje se nalaze svi brojevi stranica na kojima se ova riječ se pojavljuje su navedene. Podudaranja brojeva stranica nisu dozvoljena. To jest, ako se navedena riječ pojavi tri puta na stranici 5, broj 5 je naznačen samo jednom u izlazu. Obrazac treba da se sastoji od sljedećih komponenti:
   - 1 TextBox za unos riječi (fraze);
   - 1 dugme za izlaz iz programa;
   - 1 dugme za pokretanje pretrage i umetanje rezultata u dokument;
   - komponenta tipa Label sa tekstom objašnjenja iznad linije za unos;
   - Dodatno, obrazac može imati komponente tipa Frame;
   

6. Rad sa ListBoxom (Excel). Snimanje, sortiranje, višestruki odabir...

7. Program za rješavanje japanske sudoku slagalice (Excel)

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

9. Hoare sortiranje (algoritam sa wikipedia.org)

   Jedna od najbržih metoda sortiranja.

10. Sortiranje spajanjem (koristeći Hoare)

    Jedna od najbržih i najoptimalnijih metoda sortiranja.

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

12. Za blackarrow sa programmersforum.ru

13. Odredite koja je koordinatna četvrtina
    tačka sa datim koordinatama A (a, b) pada. VBA EXCEL.

14. Cjelobrojni prikaz u riječima VBA EXCEL.

15. LOGIKA.

    Rješavanje kvadratne jednadžbe.

16. VBA EXCEL.

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

    S obzirom na dimenzije triju stranica trokuta, odredite njegovu vrstu (pravougaona, tupa, oštra ili nemoguće izgraditi).

18. Budilnik u Excelu

19. VBA EXCEL.

20. VBA EXCEL.

21. VBA EXCEL.

    Makro koji u odabranom rasponu predstavlja svi negativni brojevi u plavoj boji, pozitivni brojevi u crvenoj, nule u bijeloj (ili žutoj).

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

    Ponekad je potrebno sakriti neke karakteristike od korisnika (u pravilu je skrivena lokacija podataka):
    - posjetite druge stranice ove knjige (bolje je ne znati za njih);
    - pomičite (horizontalno i okomito) list
    - čitati i mijenjati formule u ćelijama radnog lista
    - sakriti linije kolona i redova
    - sakriti zaglavlja (imena i brojeve) kolona i redova

23. VBA EXCEL. Dodajte i uklonite stavku menija.

    Nije teško dodati (ukloniti) sopstvenu stavku u Excel meni. Sve je to opisano u pomoći.
    Ali mnogo je interesantnije povjeriti ovaj posao makrou.
    Tada postaje moguće, prilikom otvaranja određenog dokumenta, formirati poseban, pojedinačni meni, a nakon zatvaranja Excel meni dovesti u prvobitno stanje. (Ovaj primjer koda radi samo u MS Excelu 2003, au 2007. nazive kontrolnih panela treba promijeniti)

24. Ćelijski automati VBA EXCEL.

25. Metoda Zlatnog preseka VBA EXCEL.

26. Zamjenjuje maksimalne i minimalne vrijednosti ćelija odabranog raspona. VBA Excel

    Razvijte program ili korisnički obrazac za pronalaženje i preuređivanje elemenata sa maksimalnim i minimalnim vrijednostima odabranog raspona radnog lista

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

    Napišite funkciju u Excelu koja uzima prirodni broj N i vraća kvadrate svih prostih brojeva od 0 do datog prirodnog N.

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

    Organizovati unos podataka u tabelu koja sadrži podatke o izdavanju dugoročnih kredita od strane poslovne banke sa sledećim podacima: šifra primaoca kredita, naziv primaoca kredita, datum izdavanja kredita, period (3- 4 roka) na koji je kredit izdat (u danima), kamata, iznos kredita, datum plaćanja kamate na kredit.

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

    baš na ovom mestu...

Cilj - Naučite osnovne operatore i implementirajte osnovne programske konstrukcije u VBA jeziku.

4.1 Osnovne faze rada sa vba programima u Excel-u

Da biste pripremili i izvršili VBA program, potrebno je da uradite sledeće:

u Excelu, izaberite komandu iz menija Usluga - Makro - UrednikVisualBasic;

u prozoru koji se pojavi izaberite komandu iz menija Insert – Modul... Kreira se modul, odnosno, jednostavno rečeno, otvara se prozor u koji možete unijeti tekst programa.

Na početku modula može se specificirati instrukcija OpcijaEksplicitno... Ako je specificirano, tada će sve varijable koje se koriste u programu morati biti deklarirane u naredbi Dim(za više detalja pogledajte pododjeljak 4.3).

U nekim slučajevima, u zavisnosti od podešavanja VBA okruženja, instrukcija OpcijaEksplicitno se automatski prikazuje na početku modula. Ako programer želi da koristi varijable bez deklarisanja u naredbi Dim, zatim uputstvo OpcijaEksplicitno mora biti uklonjena.

Da biste pokrenuli program za izvršenje, izaberite komandu iz menija Pokreni - Pokreni pod/korisnički obrazac.

4.2 Najjednostavniji primjer vba programa

Primjer 4.1- Program koji podiže navedeni broj a do navedenog stepena b.

Dim a As Single, b As Single

a = InputBox (“Unesite bazu:”)

b = InputBox (“Unesite eksponent:”)

x = a ^ b 'Eksponencijacija

MsgBox (“Rezultat je” & x)

Evo riječi Sub označava početak postupka; njeno ime je u ovom slučaju prajmer4_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 su varijable a i b su tipa Single... one. mogu biti i cijeli i razlomci. Tipovi podataka i deklaracije varijabli biće detaljnije razmotreni u Odjeljku 4.3.

InputBox- funkcija za unos vrijednosti varijable. Linija a = InputBox(“Unesite bazu:”) znači da je unesena vrijednost varijable a; poruka se prikazuje na ekranu "Uđite u bazu:"... Linija 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). Linija MsgBox(“Rezultat je” &x) znači da je poruka prikazana na ekranu "Rezultat je jednak" i vrijednost varijable x.

Napomena - Potpis & u funkciji MsgBox je namijenjen za spajanje nekoliko stavki podataka koje je potrebno prikazati na ekranu, u ovom primjeru - nizova "Rezultat je jednak" i varijabilna x... Slično znak & može se koristiti u funkciji InputBox(primjeri takve upotrebe bit će navedeni u nastavku). Prije znaka & i moraju biti praćene razmacima.

Više VBA naredbi se može staviti u jedan red. Da biste to učinili, razdvojeni su dvotočkama. Dakle, program iz primjera 4.1 mogao bi se napisati, na primjer, ovako:

„Prvi primjer VBA programa

Dim a As Single, b As Single

a = InputBox ("Unesite bazu:"): b = InputBox ("Unesite eksponent:")

x = a ^ b: MsgBox (“Rezultat je” & x) 'Eksponencijalirajte i ispišite rezultat

Ovaj primjer koristi proceduru koja se zove potprogram. Ovaj postupak počinje riječju Sub... Uvek postoji barem jedan potprogram u VBA programu. Osim toga, postoji još jedna vrsta procedure u VBA - funkcije. Funkcijska procedura počinje riječju Funkcija... Korištenje ovakvih procedura će biti razmotreno u pododjeljku 4.9.