Erklæring om Excel VBA-sæt
VBA-sæt er en sætning, der bruges til at tildele en hvilken som helst værdinøgle, der siger et objekt eller en reference til en variabel, vi bruger denne funktion til at definere parameteren for en bestemt variabel, for eksempel hvis vi skriver Set M = A, hvilket betyder nu M reference har de samme værdier og attributter svarende til det, som A har.
I VBA er et objekt en kerne i excel, for uden objekter kan vi ikke gøre noget. Objekter er projektmappe, regneark og rækkevidde. Når vi erklærer en variabel, skal vi tildele den en datatype, og vi kan også tildele objekter som datatyper. For at tildele en værdi til deklarerede objektvariabler skal vi bruge ordet "SET". Ordet "Set" bruges til at henvise til et nyt objekt i VBA, for eksempel med henvisning til det bestemte område for det pågældende regneark.
Hvordan bruges Excel VBA Set Statement?
# 1 - Sæt erklæring med variabel for rækkeviddeobjekt
Antag for eksempel, at du vil bruge området A1 til D5 ganske ofte. I stedet for at skrive koden som Range (“A1: D5”) hver gang, kan vi erklære variablen som interval og indstille områdereferencen som Range (“A1: D5”)
Trin 1: Erklær variablen som et Range-objekt.
Kode:
Undersæt_eksempel ()
Dim MyRange As Range
Afslut sub
Trin 2: I det øjeblik vi tildeler datatypen som rækkevidde, skal du bruge ordet "Set".
Kode:
Sub Set_Example () Dim MyRange As Range Set MyRange = End Sub
Trin 3: Nævn nu rækkevidden.
Kode:
Sub Set_Example () Dim MyRange As Range Set MyRange = Range ("A1: D5") End Sub
Trin 4: Nu er variablen “MyRange” lig med området A1 til D5. Ved hjælp af denne variabel kan vi få adgang til alle egenskaberne og metoderne i dette interval.
Vi kan kopiere, tilføje en kommentar i excel og gøre mange andre ting.
For eksempel formål har jeg oprettet nogle numre her.
Nu ved hjælp af variablen vil jeg ændre skriftstørrelsen til 12.
Kode:
Sub Set_Example () Dim MyRange As Range Set MyRange = Range ("A1: D5") MyRange.Font.Size = 12 End Sub
Dette ændrer skriftstørrelsen for det tildelte interval.
På denne måde kan vi gøre mange ting med et bestemt interval ved at bruge ordet "Set".
# 2 - Sæt erklæring med regnearkobjektvariabler
Vi har set, hvordan "sæt" fungerer med et intervalobjekt i VBA. Det fungerer også nøjagtigt som regnearkobjektet.
Lad os sige, at du har 5 regneark i din projektmappe, og du vil fortsætte med at gå tilbage til det ene regneark. Du kan indstille navnet på regnearket til den definerede objektvariabel.
Se f.eks. Nedenstående kode.
Kode:
Sub Set_Worksheet_Example () Dim Ws As Worksheet Set Ws = Worksheets ("Summary Sheet") Afslut sub
I ovenstående kode definerede variablen "Ws" som en objektvariabel, og i næste linje ved hjælp af ordet "Set" indstiller vi variablen til regnearket med navnet "Resuméark".
Nu ved at bruge denne variabel kan vi gøre alle de ting, der er knyttet til den. Se på nedenstående to sæt koder.
# 1 - Uden "Set" Word
Kode:
Sub Set_Worksheet_Example1 () 'For at vælge arkets regneark ("Resuméark"). Vælg' For at aktivere arkets regneark ("Oversigtsark"). Aktivér 'For at skjule arkets regneark ("Resuméark"). Visible = xlVeryHidden' To vis arket Arbejdsark ("Resuméark") Visible = xlVisible End Sub
Hver gang jeg har brugt regnearkobjektet til at henvise til arket "Resuméark", gør koden så lang og kræver meget tid at skrive.
Som en del af den enorme kode er det frustrerende at skrive regnearksnavnet sådan her, hver gang du skal henvise til regnearket.
Se nu på fordelen ved at bruge ordet Sæt i kode.
# 2 - Med "Set" Word
Kode:
Sub Set_Worksheet_Example () Dim Ws Som Worksheet Set Ws = Worksheets ("Summary Sheet") 'For at vælge arket Ws. Vælg' For at aktivere arket Ws.Activate 'For at skjule arket Ws.Visible = xlVeryHidden' For at skjule arket Ws .Visible = xlVisible End Sub
I det øjeblik vi indstiller regnearknavnet, kan vi se variabelnavnet, mens vi indtaster koden som en del af listen.
# 3 - Sæt erklæring med projektvariabelvariabler
Den virkelige fordel ved ordet "Set" i VBA opstår, når vi skal henvise til forskellige projektmapper.
Når vi arbejder med forskellige projektmapper, er det så svært at skrive projektmappens fulde navn sammen med filtypen.
Antag at du har to forskellige projektmapper med navnet “Salgsoversigtsfil 2018.xlsx” og “Salgsoversigtsfil 2019.xlsx”, vi kan indstille de to projektmapper som nedenstående kode.
Kode:
Sub Set_Workbook_Example1 () Dim Wb1 Som Workbook Dim Wb2 Som Workbook Set Wb1 = Workbooks ("Salgsoversigtsfil 2018.xlsx") Set Wb2 = Workbooks ("Sales Summary File 2019.xlsx") End Sub
Nu er variabel Wb1 lig med projektmappen med navnet "Salgsoversigtsfil 2018.xlsx", og variabel Wb2 er lig med projektmappen med navnet "Salgsoversigtsfil 2019.xlsx".
Ved hjælp af denne variabel kan vi faktisk få adgang til alle de egenskaber og metoder, der er knyttet til projektmappen.
Vi kan forkorte koden som nedenfor.
Uden at bruge Set Keyword for at aktivere projektmappen:
Arbejdsbøger ("Salgsoversigtsfil 2018.xlsx"). Aktivér
Brug Set Set Keyword til at aktivere projektmappen:
Wb1.Aktiver
Dette gør skrivningen af kodelottet enklere, og når arbejdsbogsnavnet er indstillet, er der også en bekymring for skrivefejl i navnene på projektmappen.
