התקשרו אלינו: 052-2928949
ימים א'-ה' בין השעות 9:00-17:00

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

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

VBA Tip

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

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 לקו מקווקוו.
אני מזמינה אתכם להכנס לאפשרויות הגבולות השונים באקסל, ולראות אילו סוגי קווים נוספים אתם יכולים להחיל על טבלאות האקסל שלכם
מעוניינים בטיפ נוסף?
עברו לקריאת המאמר שמתאר מספר דרכים להצגת החלונית פתיחת קובץ

דילוג לתוכן