עזרה באקסל שילוב באקסל של גובה שורה וגלישת טקסט

[רוחי]

יוצא לי הרבה לעצב טבלאות באקסל, גובה השורה שמופיע כברירת מחדל קטן מידי בשבילי, והייתי רוצה משהו כמו 30, אבל יש הרבה תאים שיש שם טקסט שדורש מעבר לגובה של 30, 2 התכונות הללו לא עובדים ביחד, או שהוא נצמד לגובה השורה שהגדרתי, או שהוא משאיר את כל השורות בגובה הברירת מחדל, ואז נותן גלישת טקסט רק איפוא שיש הרבה טקסט,
אולי מישהו יודע איך אני עושה את זה, שגם יהיה מינימום של גובה שורה 36, וגם בתאים שיש ריבוי טקסט שיהיה גלישת טקסט אוטומטי, ממש מטרד בשבילי לעבור שורה שורה ולהגדיל ידני

 

[xl3391]

אפשר בקוד. (בתיבה שנפתחת לרשום את גובה השורה המינימלי המבוקש):

Sub AdjustRowHight()
    Dim rh As Double
    rh = Application.InputBox(prompt:="insert row hight", Type:=1)
    Selection.Rows.AutoFit
    Selection.WrapText = True
    For Each r In Selection.Rows
        If r.RowHeight < rh Then
           r.RowHeight = rh
        End If
    Next
End Sub

 

[רוחי]

אפשר בקוד. (בתיבה שנפתחת לרשום את גובה השורה המינימלי המבוקש):

Sub AdjustRowHight()
    Dim rh As Double
    rh = Application.InputBox(prompt:="insert row hight", Type:=1)
    Selection.Rows.AutoFit
    Selection.WrapText = True
    For Each r In Selection.Rows
        If r.RowHeight < rh Then
           r.RowHeight = rh
        End If
    Next
End Sub

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

 

[xl3391]

אנסה להסביר:
באקסל בפס הירוק שבתחתית הגיליון בצד ימין יש לחצן הקלטת מאקרו. ללחוץ עליו.

(אם אצלך אין אז אפשר דרך כרטיסיה 'תצוגה'> 'פקודות מאקרו'> 'הקלט מאקרו')
בחלון שנפתח לבחור אחסון מאקרו ב 'חוברת מאקרו אישית' > אישור.
הלחצן הפך לריבוע. ללחוץ עליו.

(שוב, אם אין אצלך אז בכרטיסיה תצוגה>'פקודות מאקרו'> 'עצור הקלטה').
כעת ללחוץ ALT+F11
ובחלון השמאלי למעלה לפתוח את ה Modules המשויך ל PERSONAL.XLSB וללחוץ דאבל קליק על Module1

למחוק את הקוד הרשום הזה:

ולהדביק את הקוד הנ"ל במקומו.

הקצאת לחצן:
ללחוץ בסרגל העליון על 'התאמה אישית של סרגל גישה מהירה'
כאן:

לבחור 'פקודות נוספות'
ב'בחר פקודות מתוך' לבחור 'פקודות מאקרו'
לסמן את זה:

וללחוץ על 'הוסף'
הפקודה נמצאת כעת גם בצד השמאלי. (אפשר גם לשנות את האייקון על ידי לחיצה על 'שינוי').
ללחוץ אישור.
הלחצן התווסף למעלה לסרגל גישה מהירה וניתן להפעיל אותו בכל קובץ שתפתחי באקסל.

חשוב! כשיוצאים מאקסל תתקבל שאלה אם לשמור את השינויים שנעשו בחוברת המאקרו האישית. לענות כן.

בכדי להפעיל:
לבחור את הטווח עליו את רוצה גובה שורה וגלישת טסט> ללחוץ על הלחצן > לרשום גובה שורה מינימלי> אישור.

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

 

[רוחי]

מי כעמך ישראל!
עזרתם לי מאוד!! סוף וסבל לפעולה שחוזרת על עצמה כל הזמן ולא מצאתי לה פתרון אלא לעבור שורה שורה ולסדר אותה באופן ידני, עם פספוסים של שורות שהתוכן נבלע בהם. ישלם ה' גמולכם הטוב.

 

[יכג]

רציתי לשאול בדומה להנ"ל. כשיש לי כמה תאים מוזגים ביחד, גובה שורה אוטומטית לא עובד. האם משהו יודע פתרון לזה