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

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

טיפ VBA – העתק הדבק ב VBA

VBA Tip

טיפ VBA – העתק הדבק ב VBA

VBA Tip

העתק – הדבק

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

חלקנו עובדים עם התפריטים או הרצועה, וחלקנו (אני, אני…) שנחשבים "פריקים של מקלדת" משתמשים בקיצור מקשים:

להעתקה אנחנו משתמשים בקיצור המקשים Ctrl+C שמשמש להעתקת תוכן התא, כולל העיצוב שלו.

מיד לאחר ההעתקה, נשתמש בקיצור המקשים Ctrl+V,  ונוכל לבחור מבין מספר אפשרויות של הדבקת תוכן/ עיצובים וכו'.

אם נקליט את פעולת ההעתקה וההדבקה הסטנדרטיות ב VBA  נקבל את הקוד הבא:

    Range("E3:E4").Select

    Selection.Copy

    Range("H5").Select

    ActiveSheet.Paste

בשורת הקוד הראשונה בחרנו את התאים E3:E4

בשורה השנייה: התוכן הנבחר מועתק לזכרון המחשב

בשורה השלישית: בחרנו את תא H5 (כתובת התא הזה תשמש כנקודת ההתחלה של היעד להדבקה, גם אם הטווח המודבק מכיל יותר מאשר תא אחד)

בשורה הרביעית: התוכן שהועתק קודם לכן לזכרון המחשב מודבק בגיליון הפעיל, בתא שנבחר בשורה השלישית של הקוד (במקרה שלנו H5).

אז נכון שזוהי שיטת ההעתקה וההדבקה הבסיסית ביותר, וזה הקוד שמתקבל בעת ההקלטה, אך היא לא היעילה ביותר…

ראו את הקוד הבא:

Range("E3:E4").Copy Range("H5")

הקוד הזה מורכב משני חלקים:

  1. העתקת הטווח : Range("E3:E4").Copy
  2. ציון היעד: ("Range("H5

בשורת קוד בודדת אקסל העתיק את הטווח (כלומר, את התאים E3:E4) אל היעד (שמתחיל בתא H5)

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

ועכשיו בואו נבחן את הקוד הבא:

Range("E3:E4").Copy
Range("L4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False

כאן נוספו 4 פרמטרים:

  1. Paste – מציין את שיטת ההדבקה. במקרה שלנו – הדבקת ערכים, תוך התעלמות מעיצוב או מנוסחאות.
    תוכלו לבחור בכל אחת מהאפשרויות שקיימות בחלונית ההדבקה המיוחדת, כמו נוסחאות, ערכים, אימות וכו', כפי שמוצג בצילום המסך הבא:
    PasteSpecial
  2. Operation – מאפשר להוסיף, להחסיר, להכפיל או לחלק את הערך המועתק לטווח שנבחר (כברירת מחדל לא מתבצעת אף אחת מהפעולות הנ"ל).
  3. SkipBlanks אם קיימים תאים ריקים בטווח שהעתקנו, ניתן לבחור שלא להדביק אותם ביעד.
    שימו לב שהפקודה לא מצמצת את הטווח כך שלא יכיל תאים ריקים, אלא משאירה את התאים המקוריים ביעד, בכל מקום שבו התא הריק היה אמור לדרוס אותם.
  4. Transpose – מאפשר לבצע חילוף בין עמודות ושורות

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

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

דילוג לתוכן