דף הבית > VBA > עברית הפוכה באקסל? אין בעיה

עברית הפוכה באקסל? אין בעיה

פתחתם קובץ CSV והעברית הפוכה? אין בעיה! מסתבר שקיימת פונקציה מובנית באקסל להפיכת הכיוון של מחרוזת טקסט

 

 

 

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

 

StrReverse(text)

 

אלא שכאן הקאץ': הפונקציה מיועדת לשימוש בקוד VBA בלבד. כלומר, אי אפשר לקרוא לפונקציה הנ"ל ישירות מגיליון האקסל.

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

1. לחיצה על ALT+F11

2. הוספת מודול: Insert – > Module

3. קופי-פייסט לקוד הבא:

 

Function StrRev(text As String) As String

    StrRev = StrReverse(text)

End Function

 

4. בגיליון האקסל, שימוש בפונקציית המעטפת על התא עם הטקסט ההפוך:

 

דוגמא לשימוש ב-revtext

 

בהצלחה!

 

 

קטגוריות:VBA
  1. אביב
    21 אוגוסט, 2015 מתוך 11:29 | #1

    ומה יקרה עם המחרוזת מעורבבת עם מספרים (שאינם מהופכים)?

    • admin
      18 ספטמבר, 2015 מתוך 09:29 | #2

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

      -צוות אא

  2. עדי מלוק
    22 מאי, 2017 מתוך 11:27 | #3

    ואיך אני שומרת קובץ כזה ?
    אומר לי שלאניתן לשמו קובץ עם VB

    • admin
      22 מאי, 2017 מתוך 21:44 | #4

      שלום

      על מנת לשמור קובץ עם קוד VBA, יש לבצע "שמירה בשם", ולבחור בפורמט: Excel Macro-Enabled Workbook.
      הסיומת היא xlsm במקום xlsx.

      בהצלחה

  3. ענבל
    6 ספטמבר, 2017 מתוך 11:35 | #5

    אחרי שמדביקים את הקוד, איך מפעילים אותו שיצטרף לנוסחאות?
    זה מחזיר NAME

  4. ענבל
    6 ספטמבר, 2017 מתוך 11:39 | #6

    אה הסתדרתי…תודה!

  5. 10 ינואר, 2018 מתוך 15:52 | #7

    היי
    האם ניתן להוסיף לפונקציה TRUE .FALSE – לגבי התוכן של התא
    כך שיחזיר תוצאת היפוך רק של הטקסט
    StrRev = StrReverse(text,TRUE .FALSE)

  6. דפנה
    12 מאי, 2018 מתוך 12:36 | #8

    מעולה! תודה!

  7. עדן
    24 אוקטובר, 2018 מתוך 11:02 | #9

    אחרי שמדביקים את הקוד, איך מפעילים אותו שיצטרף לנוסחאות?
    זה מחזיר NAME

    אני לא מצליחה להתגבר על זה? אחרי שהדבקתי את הקוד מה צריך לעשות כדי להפעיל את הפונקציה??

  8. אוראל
    17 ינואר, 2020 מתוך 15:34 | #10

    תודה רבה! עובד מצוין

  1. אין הפניות עדיין.