התקשרו אלינו: 052-2928949

התקשרו אלינו: 052-2928949

טיפ VBA – הוספת גבולות לטווח בפעולה אחת

VBA Tip

טיפ VBA – הוספת גבולות לטווח בפעולה אחת

VBA Tip

כיצד נסמן גבולות לטווח בפעולה אחת?

על פניו, התשובה לשאלה הזאת פשוטה – אתם לא יודעים לכתוב את הקוד? תקליטו!

אז נניח שאנחנו מעוניינים להוסיף גבולות לטווח A1:C10.

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

טוב, אז מי מכם שניסה לעשות זאת, קיבל את הקוד ה"קצר" הבא:

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlInsideVertical)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlInsideHorizontal)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

אז מה בעצם עושה הקוד?

הוא עובר על כל הגבולות האפשריים בטבלה – גבול קצה עליון, גבול קצה תחתון, קצה ימני, קצה שמאלי,
קווי פנים אופקיים וקווי פנים אנכיים, ומוסיף להם את קו הגבול המבוקש

בנוסף, הוא מוסיף לכל אחת מקטגוריות קווי הגבול נתוני עיצוב שחוזרים על עצמם בכל מהאפשרויות
(לו הייתם כותבים את הקוד בעצמכם, אני רוצה להאמין שאם קיים רצף פקודות שחוזר על עצמו בכל פעם, אתם כותבים אותו בפרוצדורה נפרדת,
וקוראים לה בכל אחד מהחלקים (מבטיחה לכתוב מאמר על היתרון שבשיטת עבודה זו)

אבל בואו נחזור לענייננו…

כל מה שאתם צריכים לעשות זה לכתוב את הקוד הקצר הזה:

Selection.Borders.LineStyle = xlSolid

אם אתם מעוניינים לשנות את סוג קו הגבול, בדקו את האפשרויות הקיימות, לדוגמה – xlDouble לקו כפול, או xlDot לקו מקווקוו.

אני מזמינה אתכם להכנס לאפשרויות הגבולות השונים באקסל, ולראות אילו סוגי קווים נוספים אתם יכולים להחיל על טבלאות האקסל שלכם

מעוניינים בטיפ נוסף?

עברו לקריאת המאמר שמתאר מספר דרכים להצגת החלונית פתיחת קובץ

רוצים ללמוד VBA מספר? לחצו כאן

מעוניינים ללמוד בנוחות ביתכם בקורס מקוון? לחצו כאן

דילוג לתוכן