- הוסף לסימניות
- #1,081
קוד vba שפותר את אותה בעיה (מאפשר העתקה והדבקה לא יחסית)אגב, למי שלא מנוי על רשימת התפוצה של "תותח אקסל" לא אמנע מכם טוב מרעיון שהוא שלח היום:
רוצים להעתיק טווח של נוסחאות מבלי שאקסל יעדכן את ההפניות היחסיות (אין לכם כוח להתחיל לעבור על כל ההפניות ולהוסיף סימוני דולר/F4 כדי להפוך אותם לקבועות).
- בוחרים את כל הטווח.
- החלף "=" בתו כלשהו/מילה כלשהי (שלא נמצא בתאים שנבחרו)
- הטווח חדל להיות נוסחאות ונהיה טקסט רגיל.
- העתק הדבק איפה שרוצים.
- החלף בחזרה את התו שבחרנו קודם לסימן שווה "="
- הכל חזר להיות נוסחאות פעילות וזהות ללא שינוי ביחסיות ההפניות.
- הטווח חדל להיות נוסחאות ונהיה טקסט רגיל.
- העתק הדבק איפה שרוצים.
- החלף בחזרה את התו שבחרנו קודם לסימן שווה "="
- הכל חזר להיות נוסחאות פעילות וזהות ללא שינוי ביחסיות ההפניות.
בהצלחה
קוד:
'העתקה והדבקה של טווח עם נוסחאות כנוסחאות לא יחסיות
Sub Pastfrml()
Dim rngC As Range, rngP As Range
Set rngC = Selection
r = rngC.Rows.Count
c = rngC.Columns.Count
Set rngP = Application.InputBox(Prompt:="בחר אזור להדבקה", Type:=8)
Set rngP = rngP.Resize(r, c)
rngP.Formula = rngC.Formula
On Error GoTo es
rngP.Parent.Activate
Range(rngP.Address).Select
es:
End Sub
הנושאים החמים