היפוך טקסט בעברית שכתוכ הפוך

[חיים_]

היפוך טקסט בעברית שכתוכ הפוך

יש לי קובץ דוס ובקליטה העברית הפוכה. איך אפשר להפוך ?

 

[iyyi]

סמן בקובץ עמודות שאתה רוצה להפוך

והרץ את המקרו הבא:

Sub ReveseHeb()
Lr = Cells(Rows.Count, Selection.Column).End(xlUp).Row
For Each c In Selection
    If c.Row > Lr Then Exit Sub
    For i = Len(c) To 1 Step -1
        t = t & Mid(c, i, 1)
    Next i
    c.Value = t
    t = ""
Next
End Sub

אתה יכול לסמן גם מספר עמודות.
שים לב שזה הופך הכל כולל ספרות ומילים באנגלית.
בקובץ המצורף יש את המקרו וגם גיליון גיבוי של הנתונים.
כדי להפעיל את המקרו הקש על Alt+F8 ולאחר מכן הפעל

 

[iyyi]

אפשרות נוספת (עדיפה על מה שהצעתי) היא באמצעות אתר ייעודי

באתר [URL]http://www.pixiesoft.com/flip/[/URL] אתה יכול להדביק את הטקסט שהעתקת מעמודה שלמה). לחיצה על "בצע" תיתן לך בחלק התחתון טקסט תקין.
תוכל להדביק אותו בחזרה בגיליון
בחר באפשרות של "עברית ויזואלית ללוגית"