פורום שאלות ותשובות

ברוכים הבאים לפורום שאלות ותשובות באופיס

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

א' שואל:

שלום,

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

תודה רבה

תשובה:

ניתן לפתור את הנושא בשתי דרכים -

 דרך א'

 1. נניח קיימת באקסל טבלה המכילה את הנתונים הבאים: שם פרטי, שם משפחה, כתובת ועמודה נוספת המכילה שרשור של ערכי השם והכתובת.

 2. נסמן את התא D2 ונלחץ על "גלישת טקסט" או "Wrap Text" בסרגל הכלים של אקסל.

 3. נבחר את תא D2 ונסמן את הנוסחה בשורת הנוסחאות.

 4. נלחץ על F9 ואקסל יציג בשורת הנוסחאות את הערך המחושב של הנוסחה.

     במצב הזה - לחיצה על Enter תמיר את הערך בתא D2 מנוסחה לערך טקסט. לחיצה על Esc תשאיר בתא D2 את הנוסחה.

 דרך ב'

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

 יש לבצע את הפעולות הבאות:

1. נשמור את קובץ האקסל עם סיומת XLSM שתאפשר הפעלת קוד VBA (תפריט קובץ -> שמור בשם -> סיומת XLSM).

 2. נלחץ על ALT שמאלי + F11 לפתיחת עורך VBA של אקסל. יש לבחור בצד שמאל של עורך VBA את הגיליון בו שמורה הטבלה (לדוגמה: Sheet1) 

    ובצד ימין להדביק את הפונקציה הבאה:

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column = 4 Then
    MsgBox Target.Value, vbOKOnly + vbMsgBoxRtlReading + vbMsgBoxRight, ""
End If

End Sub

 

  הפונקציה תפעל בגליון Sheet1 בכל פעם שתבוצע לחיצה כפולה על הלחצן הימני של העכבר.

  במידה והתא המסומן הוא בעמודה D (עמודה 4) אז הפונקציה תציג בתיבת טקסט את ערך התא.

  יש לעדכן בקוד את מספר העמודה המתאים לעמודה עבורה רוצים להפעיל את הפונקציה (לדוגמה: אם נדרש להפעיל את הפונקציה עבור עמודה W אז יש להחליף את הערך 4 ל-23).

 

 3. התוצאה בלחיצה כפולה על התא D2 היא שמוצגת תיבת הודעה עם השם המלא והכתובת.

 

 דרך ג'

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

1. נשמור את קובץ האקסל עם סיומת XLSM שתאפשר הפעלת קוד VBA (תפריט קובץ -> שמור בשם -> סיומת XLSM).

2. נלחץ על ALT שמאלי + F11 לפתיחת עורך VBA של אקסל. יש לבחור בצד שמאל של עורך VBA את הגיליון בו שמורה הטבלה (לדוגמה: Sheet1)  ובצד ימין נדבק את הפונקציה הבאה:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


If Target.Column = 4 Then
   Target.ClearComments
    If Len(Target.Value) > 0 Then
        Target.AddComment
        Target.Comment.Text Target.Value
    End If
End If
   

End Sub


 

 

  3. התוצאה בבחירת התא D2 מוצגת הערה עם השם המלא והכתובת.

     הבהרה - יש לבחור את התא (ולא רק להצביע עליו עם העכבר) על מנת שההערה תתעדכן.

 

 

 

בברכה,

צוות AnyFit