Excel VBA radna knjiga
VBA Workbook je objekt koji je dio kolekcije predmeta Workbooks. Lako uočavamo razliku u dijelu zbirke predmeta i samog predmeta, množina riječi "Radne bilježnice" označava da ima mnogo "Radne bilježnice". U VBA imamo nekoliko drugih predmeta poput radnih listova, ćelija i raspona, grafikona i oblika.
Na excel platformi datoteka excel naziva se "radna knjiga", posebno u VBA. Nikad ga ne nazivamo datotekom; nego je zovemo "radna bilježnica".
Pozivanjem na radnu knjižicu možemo obaviti sve zadatke povezane s njom. Neki od važnih zadataka su "Otvori radnu bilježnicu", "Spremi radnu knjigu", "Spremi kao radnu knjigu" i "Zatvori radnu knjigu". Možemo odabrati, aktivirati radne knjige koje se otvaraju.
Sintaksa
Sada pogledajte koja je sintaksa Radne bilježnice.
Indeks nije ništa drugo nego koju radnu knjigu želite odabrati. Radnu knjižicu možemo uputiti prema broju radne knjige ili prema nazivu radne knjige.
Korištenje VBA radnog koda predmeta
Primjer # 1
Na primjer, trenutno imam otvorene dvije datoteke. Prvo ime radne knjige je "Datoteka 1", a drugo ime "Datoteka 2".
Sada pišem kod u treću datoteku. Iz ove datoteke želim aktivirati radnu knjigu nazvanu "Datoteka 1".
Korak 1: Pokrenite makronaredbu izradom VBA potprocedure.
Kodirati:
Sub Workbook_Example1 () Kraj Sub
Korak 2: Sada odaberite objekt radne knjige.
Korak 3: Sada unesite radnu knjigu koju želimo aktivirati.
Kodirati:
Sub Workbook_Example1 () Workbooks ("Datoteka 1 Kraj Sub
Korak 4: Nakon unosa naziva radne knjige trebamo unijeti i ekstenziju datoteke. Spremio sam ovu radnu knjigu kao redovnu radnu knjigu, tj. Radnu knjigu „xlsx“ .
Kodirati:
Sub Workbook_Example1 () Workbooks ("File 1.xlsx") Kraj Sub
Korak 5: Sada moramo odlučiti što želimo raditi s ovom radnom knjigom. Unesite točku da biste vidjeli sve opcije dostupne u ovoj radnoj knjizi.
Korak 6: Sada moramo aktivirati radnu knjigu, odaberite metodu kao "Aktiviraj".
Kodirati:
Sub Workbook_Example1 () Workbooks ("File 1.xlsx"). Aktivirajte End Sub
Nije važno u kojoj ste radnoj knjizi. Aktivirat će navedenu radnu knjigu.
Čim odaberete radnu knjigu, ona postaje "Aktivna radna knjiga".
Primjer # 2 - Unesite vrijednosti u radnu knjigu
Kao što sam rekao čim odaberete radnu knjigu, ona postaje Aktivna radna knjiga. Koristeći Active Workbook, možemo uputiti ćeliju.
U aktivnoj radnoj knjizi list moramo odabrati prema nazivu ili inače koristimo riječ Active Sheet.
Na aktivnom radnom listu moramo odabrati ćeliju pomoću objekta Range.
Kodirati:
Sub Workbook_Example1 () Workbooks ("File 1.xlsx"). Aktivirajte ActiveWorkbook.ActiveSheet.Range ("A1"). Value = "Hello" End Sub
Kad ovaj kôd pokrenete pomoću tipke F5 ili ručno, u ćeliju A1 u radnu knjigu "Datoteka 1.xlsx" umetnut će riječ "Zdravo ".
Također možemo koristiti donji kod za obavljanje istog posla.
Kodirati:
Sub Workbook_Example1 () Workbooks ("File 1.xlsx"). ActiveSheet.Range ("A1"). Value = "Hello" End Sub
Ovo će također umetnuti riječ "Zdravo" u radnu knjigu "Datoteka 1.xlsx".
Primjer # 3 - Dodijelite radnu knjigu varijabli
Također možemo dodijeliti vrstu podataka kao "radnu knjigu" deklariranoj varijabli. Proglasite varijablu radnom knjigom.
Kodirati:
Podradna knjiga_Primjer2 ()
Zatamni WB kao radnu knjigu
Kraj pod
Sada moramo postaviti varijablu objekta na naziv radne knjige pomoću riječi "Postavi".
Kodirati:
Sub Workbook_Example2 () Dim WB As Workbook Set WB = Workbooks ("File 1.xlsx") End Sub
Od sada nadalje, varijabla "WB" drži naziv radne knjige "Datoteka 1.xlsx".
Pomoću naziva varijable možemo umetnuti riječi.
Kodirati:
Sub Workbook_Example2() Dim WB As Workbook Set WB = Workbooks("File 1.xlsx") WB.Worksheets("Sheet1").Range("A1") = "Hello" WB.Worksheets("Sheet1").Range("B1") = "Good" WB.Worksheets("Sheet1").Range("C1") = "Morning" End Sub
Run this code manually or use shortcut key F5 and see the result, as shown in the below screenshot.
WB.Worksheets("Sheet1").Range("A1") = "Hello"
Here WB is referencing the workbook, in that workbook, we are referencing the worksheet Sheet1 by using the Worksheets object. In that worksheet cell, A1 is equal to the value of “Hello.”
We can also reference the workbook by index number as well. For example, look at the below code.
Code:
Sub Workbook_Example3() Workbooks(1).Activate Workbooks(2).Activate Workbooks(3).Activate End Sub
Here Workbooks (1) means whichever the workbook first on the list, like this similarly Workbooks (2) refers to the second workbook, and Workbooks (3) refers to the third workbook.
The main problem with this index number referencing is we don’t know exactly which workbook activated. It is dangerous to use index numbers.
Example #4 - For Each Loop for Workbook Object
As I told in the beginning, the workbook is a collection object of Workbooks in VBA. Whenever we want to perform the same kind of activity for all the opened workbooks, we need to use For Each loop in VBA.
For Each Loop is the loop for all the objects in VBA. Use the below code to save all the opened workbooks.
Code:
Sub Save_All_Workbooks () Zatamni WB kao radnu bilježnicu za svaki WB u radnim bilježnicama WB.Save Next WB End Sub
Kada pokrenete ovaj kôd preko tipke F5 ili ručno, pojavit će se skočni prozor koji traži spremanje radne knjige. Kliknite U redu za spremanje.
Koristite donji kôd da zatvorite sve radne knjige osim one na kojoj radite.
Kodirati:
Sub Close_All_Workbooks () Zatamni WB kao radnu knjigu za svaki WB u radnim bilježnicama Ako WB.Name ThisWorkbook.Name then WB.Close End If Next WB End Sub
Skočni prozor dolazi prije zatvaranja radne knjige.
