Izjava o skupu VBA programa Excel
VBA Set je izjava koja se koristi za dodjeljivanje bilo kojem ključu vrijednosti kaže da objekt ili referenca na varijablu koristimo ovu funkciju za definiranje parametra za određenu varijablu, na primjer, ako napišemo Set M = A što sada znači M reference ima iste vrijednosti i atribute slične onima koje ima A.
U VBA-u je objekt jezgra excela jer bez objekata ne možemo ništa učiniti. Objekti su Radna knjiga, Radni list i Raspon. Kad deklariramo varijablu, trebamo joj dodijeliti tip podataka, a objekte možemo dodijeliti i kao tipove podataka. Da bismo dodijelili vrijednost deklariranim objektnim varijablama, trebamo upotrijebiti riječ "SET". Riječ "Set" odnosila se na novi objekt u VBA-u, na primjer, pozivajući se na određeni raspon određenog radnog lista.
Kako koristiti Excel VBA Set Statement?
# 1 - Postavi izjavu s varijablama raspona objekata
Na primjer, pretpostavimo da želite prilično često koristiti raspon od A1 do D5. Umjesto da kod svaki put zapišemo kao Raspon ("A1: D5"), varijablu možemo deklarirati kao opseg i referencu raspona postaviti kao Raspon ("A1: D5")
Korak 1: Deklarirajte varijablu kao objekt Range.
Kodirati:
Pod set_Primjer ()
Zatamni MyRange As Range
Kraj pod
Korak 2: U trenutku kada dodijelimo vrstu podataka kao raspon, upotrijebite riječ "Postavi".
Kodirati:
Sub Set_Example () Dim MyRange As Range Set MyRange = End Sub
Korak 3: Sada spomenite raspon.
Kodirati:
Sub Set_Example () Dim MyRange As Range Set MyRange = Range ("A1: D5") End Sub
Korak 4: Sada je varijabla "MyRange" jednaka rasponu od A1 do D5. Pomoću ove varijable možemo pristupiti svim svojstvima i metodama ovog raspona.
Možemo kopirati, dodati komentar u excelu i raditi mnoge druge stvari.
Na primjer, svrhu, ovdje sam stvorio neke brojeve.
Sad ću pomoću varijable promijeniti veličinu fonta na 12.
Kodirati:
Sub Set_Example () Dim MyRange As Range Set MyRange = Range ("A1: D5") MyRange.Font.Size = 12 Kraj Sub
Ovo će promijeniti veličinu fonta dodijeljenog raspona.
Ovako, možemo učiniti mnogo stvari s određenim rasponom pomoću riječi "Postavi".
# 2 - Postavljanje izjave s varijablama predmeta radnog lista
Vidjeli smo kako "set" radi s objektom raspona u VBA. Djeluje potpuno isto kao i objekt radnog lista.
Recimo da u svojoj radnoj knjizi imate 5 radnih listova i želite se vratiti na jedan određeni radni list. Naziv radnog lista možete postaviti na definiranu varijablu objekta.
Na primjer, pogledajte donji kod.
Kodirati:
Sub Set_Worksheet_Example () Dim Ws As Worksheet Set Ws = Worksheets ("Summary Sheet") End Sub
U gornjem kodu, varijabla "Ws" definirana je kao objektna varijabla, a u sljedećem smo retku, koristeći riječ "Set", postavili varijablu na radni list pod nazivom "Summary Sheet"
Now by using this variable, we can do all the things associated with it. Take a look at the below two sets of code.
#1 - Without “Set” Word
Code:
Sub Set_Worksheet_Example1() 'To select the sheet Worksheets("Summary Sheet").Select 'To Activate the sheet Worksheets("Summary Sheet").Activate 'To hide the sheet Worksheets("Summary Sheet").Visible = xlVeryHidden 'To unhide the sheet Worksheets("Summary Sheet").Visible = xlVisible End Sub
Every time I have used the worksheets object to refer to the sheet “Summary Sheet,” This makes the code so lengthy and requires a lot of time to type.
As part of the huge code, it is frustrating to type the worksheet name like this every time you need to reference the worksheet.
Now take a look at the advantage of using the word Set in Code.
#2 - With “Set” Word
Code:
Sub Set_Worksheet_Example() Dim Ws As Worksheet Set Ws = Worksheets("Summary Sheet") 'To select the sheet Ws.Select 'To Activate the sheet Ws.Activate 'To hide the sheet Ws.Visible = xlVeryHidden 'To unhide the sheet Ws.Visible = xlVisible End Sub
The moment we set the worksheet name, we can see the variable name while entering the code as part of the list.
#3 - Set Statement with Workbook Object Variables
The real advantage of the word “Set” in VBA arises when we need to reference different workbooks.
When we work with different workbooks, it is so hard to type in the full name of the workbook, along with its file extension.
Assume you have two different workbooks named “Sales Summary File 2018.xlsx” and “Sales Summary File 2019.xlsx” we can set the two workbooks like the below code.
Code:
Sub Set_Workbook_Example1 () Dim Wb1 Kao radna knjiga Dim Wb2 Kao Workbook Set Wb1 = Workbooks ("File Summary File 2018.xlsx") Set Wb2 = Workbooks ("File Summary File 2019.xlsx") End Sub
Sada je varijabla Wb1 jednaka radnoj knjizi pod nazivom „Datoteka sažetka prodaje 2018.xlsx“, a varijabla Wb2 jednaka je radnoj knjizi pod nazivom „Datoteka sažetka prodaje 2019.xlsx“.
Pomoću ove varijable zapravo možemo pristupiti svim svojstvima i metodama povezanim s radnom knjigom.
Kod možemo skratiti kao dolje.
Bez upotrebe postavljene ključne riječi za aktiviranje radne knjige:
Radne knjige ("Datoteka sažetka prodaje 2018.xlsx"). Aktivirajte
Korištenje postavljene ključne riječi za aktiviranje radne knjige:
Wb1.Aktiviraj
To olakšava pisanje serije koda, a također, nakon postavljanja naziva radne knjige, postoji zabrinutost zbog pogreške u tipkanju imena radne knjige.
