טיפ 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

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

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

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

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

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