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

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

לפעמים חייבים את הנוסחאות ואין בררה.

אבל במקרים רבים הנתונים סטטיים ,

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

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

קובץ ללא נוסחאות הוא הרבה יותר קל.

להמרת כל הנוסחאות בגיליון לערכים תוך כדי ריצת מאקרו אקסל VBA:

 

הדרך הכי פשוטה היא להקליט מאקרו.

נעמוד בתא אחד בגיליון ונקליט מאקרו.

נלחץ על F5 או CTRL + G תפתח התיבה מעבר אל , מיוחד , נבחר נוסחאות , אישור.

כל הנוסחאות בגיליון בבחירה.

נעתיק ונדביק בהדבקה מיוחדת כערכים.

זה הקוד שמתקבל:

Sub formulas_to_values()

Selection.SpecialCells(xlCellTypeFormulas, 23).Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False

End Sub

מומלץ להימנע ההל האפשר מבחירה במאקרו ולכן נשנה קצת את הקוד שיעבוד ללא בחירה , ללא select

Sub formulas_to_values()

Selection.SpecialCells(xlCellTypeFormulas, 23).Copy

Selection.SpecialCells(xlCellTypeFormulas, 23).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False

End Sub

הסבר:

2 הפקודות הראשונות אוחדו לפקודה אחת.

אין select

אתגר עבורך ,

אם לא רוצים להיות בגיליון בו ממירים את הנוסחאות לערכים,

איזה שינוי צריך לעשות בקוד?

ב ה צ ל ח ה !