Med erklæring i Excel VBA
With statement bruges i VBA til at få adgang til alle egenskaberne og metoderne for et nævnt objekt. Vi er nødt til at levere, hvilket VBA-objekt vi henviser til, og derefter lukke With-erklæringen med End With og derefter inde i denne erklæring. Vi kan udføre alle egenskabsændringer og metoder for det nævnte objekt.
Nedenfor er syntaksen for With Statement i VBA.
Med (OBJECT) (kode … Hvad skal der gøres?) Afslut med
Objektet er intet andet end en række celler eller celler, vi henviser til, og så kan vi ændre egenskaberne og udføre alle de metoder, der er knyttet til den eller de specifikke celler.
Hvordan bruges det med erklæring i Excel VBA?
Nedenfor er nogle eksempler til brug med erklæring i Excel VBA.
Eksempel nr. 1
Antag, at du har en bestemt værdi i A1-celle, jeg har indtastet teksten som "Excel VBA" i celle A1.
Nu til denne celle skal jeg udføre nogle opgaver, dvs. formatering i Excel.
Jeg vil ændre skrifttypestørrelse, skrifttypenavn og interiørfarve, indsætte en ramme osv. … Typisk hvad vi gør er, at vi først henviser cellen ved hjælp af VBA RANGE-objekt.
Kode:
Sub With_Example1 () Range ("A1") End Sub
Nu for at ændre skriftstørrelse får vi adgang til egenskaben “font” i denne celle.
Under FONT-ejendom får vi adgang til egenskaben Size og indtaster størrelse ved at sætte et lighedstegn.
Kode:
Sub With_Example1 () Range ("A1") Font.Size = 15 End Sub
Nu på samme måde udfører vi andre formateringsopgaver som vist nedenfor.
Kode:
Sub With_Example1 () Range ("A1"). Font.Size = 15 Range ("A1"). Font.Name = "Verdana" Range ("A1"). Interior.Color = vbGul Range ("A1"). .LineStyle = xlContinuous End Sub
Dette udfører alle de nævnte opgaver, men hvis du ser på koden for at udføre hver formateringsaktivitet, har vi leveret celleadressen hver gang. Dette får koden til at se lang og tidskrævende ud.
Nu bruger vi VBA With en erklæring for at reducere indtastningen af celleadresse hver gang. Åbn WITH-erklæring i Excel VBA og lever celle-adresse.
Kode:
Sub With_Example1 () With Range ("A1") End Sub
Inde i With-sætningen skal du sætte en prik for at se alle egenskaberne og metoderne i celle A1.
Nu ændrer den første formateringsaktivitet skriftstørrelse, så få adgang til FONT og under denne adgang SIZE-egenskab.
Kode:
Sub With_Example1 () With Range ("A1") .Font.Size = 15 End Sub
På samme måde skal du angive andre formateringskoder og lukke VBA With Statement.
Kode:
Sub With_Example1 () With Range ("A1") .Font.Size = 15 .Font.Name = "Verdana" .Interior.Color = vbGul .Borders.LineStyle = xlContinuous End With End Sub
Kør koden for at se al formatering i det nævnte objekt, dvs. celle A1.
Så al formatering anvendt på cellen. Se hvor sej denne teknik er.
Eksempel 2
Hvis du f.eks. Vil ændre alle de egenskaber, der er relateret til skrifttypen, kan du nævne cellen og FONT-egenskaben.
Kode:
Sub With_Example2 () With Range ("A1") Font End With End Sub
Inside the VBA With Statement, we can see the IntelliSense list. It will show properties and methods related to FONT property only.
We can perform any set of activities with this now.
Code:
Sub With_Example2() With Range("A1").Font .Bold = True 'Font will be Bold .Color = vbAlias 'Font color will be Alias .Italic = True 'Font will be italic style .Size = 20 ' Font size will be 20 .Underline = True 'Font will be underlined End With End Sub
The result of this will be as shown below.
Example #3
The below code will access only cell border-related properties.
Code:
Sub With_Example3() With Range("B2").Borders .Color = vbRed 'Border color will be red .LineStyle = xlContinuous 'Full border .Weight = xlThick 'Thick border End With End Sub
The result of this code is as follows.
Things to Remember
- With statement bruges til at minimere koden.
- Vi skal først levere objekt til With-erklæring.
- Når det specifikke objekt er leveret, kan vi kun få adgang til objektets egenskaber og metoder.
