VBA עם | כיצד להשתמש עם ... להסתיים בהצהרה ב- Excel VBA?

עם הצהרה ב- Excel VBA

עם הצהרה משתמשים ב- VBA כדי לגשת לכל המאפיינים והשיטות של אובייקט שהוזכר. עלינו לספק לאיזה אובייקט VBA אנו מתייחסים תחילה ואז לסגור את הצהרת With עם End With ואז בתוך הצהרה זו נוכל לבצע את כל שינויים ושיטות המאפיין של האובייקט שהוזכר.

להלן התחביר של With Statement ב- VBA.

 עם [אובייקט] [קוד ... מה צריך לעשות?] נגמר עם 

האובייקט אינו אלא טווח של תאים או תא שאליו אנו מתייחסים ואז נוכל לשנות את המאפיינים ולבצע את כל השיטות המשויכות לאותו תא או תאים ספציפיים.

כיצד להשתמש בהצהרה ב- Excel VBA?

להלן כמה דוגמאות לשימוש עם הצהרה ב- Excel VBA.

אתה יכול להוריד VBA עם תבנית Excel כאן - VBA עם תבנית Excel

דוגמה מס '1

נניח שיש לך ערך מסוים בתא A1, הזנתי את הטקסט כ- "Excel VBA" בתא A1.

עכשיו עבור התא הזה, אני צריך לבצע כמה משימות כלומר עיצוב ב- Excel.

אני רוצה לשנות את גודל הגופן, את שם הגופן ואת צבע הפנים, להכניס גבול וכו '... אופייני מה שאנחנו עושים זה תחילה להפנות את התא באמצעות אובייקט VBA RANGE.

קוד:

 Sub With_Example1 () Range ("A1") Sub Sub 

עכשיו כדי לשנות את גודל הגופן אנו ניגשים למאפיין "font" של תא זה.

תחת מאפיין FONT אנו ניגשים למאפיין Size ומזינים גודל על ידי הצבת סימן שווה.

קוד:

 טווח משנה עם_דוגמה 1 () ("A1"). גודל הגודל = 15 סוף משנה 

כעת באופן דומה אנו מבצעים משימות עיצוב אחרות כפי שמוצג להלן.

קוד:

 תת With_Example1 () טווח ("A1"). Font.Size = 15 טווח ("A1"). Font.Name = "טווח Verdana" ("A1"). Interior.Color = vb טווח צהוב ("A1"). גבולות .LineStyle = xl המשנה לסוף רציף 

זה יעשה את כל המשימות שהוזכרו, אך אם אתה מסתכל על הקוד כדי לבצע כל פעילות עיצוב שסיפקנו את כתובת התא בכל פעם, הדבר גורם לקוד להראות ארוך וארוך זמן.

כעת נשתמש בהצהרת VBA With להפחתת הזנת כתובת התא בכל פעם. פתח את הצהרת WITH ב- Excel VBA וכתובת תא אספקה.

קוד:

 משנה עם_דוגמה 1 () עם טווח ("A1") סוף משנה 

בתוך הצהרת With שים נקודה כדי לראות את כל המאפיינים והשיטות של תא A1.

כעת פעילות העיצוב הראשונה משנה גודל הגופן, לכן גש ל- FONT ותחת מאפיין גישה זו SIZE.

קוד:

 משנה עם_דוגמה 1 () עם טווח ("A1"). גודל גודל = 15 סוף משנה 

באופן דומה, ספק קודי עיצוב אחרים וסגור את הצהרת ה- VBA.

קוד:

 תת עם_דוגמא 1 () עם טווח ("A1"). פונט.גודל = 15. פונט.שם = "ורדנה". פנים.צבע = vb צהוב .גבולות.LineStyle = xl סיום רציף עם משנה קצה 

הפעל את הקוד כדי לראות את כל העיצוב באובייקט המוזכר, כלומר תא A1.

אז כל העיצוב הוחל על התא. תראה כמה הטכניקה הזו מגניבה.

דוגמה מס '2

לדוגמא, אם ברצונך לשנות את כל המאפיינים הקשורים לגופן אתה יכול להזכיר את התא ואת מאפיין FONT.

קוד:

 משנה עם_דוגמה 2 () עם טווח ("A1"). גופן עם סוף סוף 

בתוך ה- vba With Statement, אנו יכולים לראות את רשימת IntelliSense שהיא תציג מאפיינים ושיטות הקשורים למאפיין FONT בלבד.

אנחנו יכולים לבצע כל קבוצה של פעילות עם זה עכשיו.

קוד:

 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

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 is used to minimize the code.
• We need to supply object first for With statement.
• Once the specific object is supplied we can access only that object’s properties and methods.