א' שואל:
שלום,
כתבתי נוסחה שמשרשרת טקסט, הטקסט יוצא ארוך אני מכווץ את התא להתאמה.תודה רבה
תשובה:
ניתן לפתור את הנושא בשתי דרכים -
דרך א'
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