ترجمه به روش اكسل

[afshin3a]

سلام بر اساتيد گرامي!
من فايلي دارم شبيه به مثال پيوست، [ATTACH]7740[/ATTACH] بنا به دلايلي برخي از كلمات اين متن انگليسي هستند. در شيت 2 يك فرهنگ لغت از كلمات انگليسي و معناي فارسي آنها تشكيل دادم. حالا بايد كدي كه مي نويسيم در شيت 1 در ستون a بگرده و هرجا كلمات انگليسي پيدا كرد با معناي فارسيش جايگزين كنه. چه كدي را بايد بنويسيم؟
پيشاپيش سپاسگزارم.

[generalsamad]

با سلام
بنظر من به جای فرمول از Reaplace خود اکسل استفاده کنید
Ctrl+H رو بزنید سپس کلمه انگلیسی رو وارد کنید و ترجمه فارسیش رو وارد کنید در نهایت Reaplace All رو بزنید
البته این روش بستگی داره چه تعداد کلمه انگلیسی باشه که مقرون به صرفه هست یا نه

[afshin3a]

با سلام
بنظر من به جای فرمول از Reaplace خود اکسل استفاده کنید
Ctrl+H رو بزنید سپس کلمه انگلیسی رو وارد کنید و ترجمه فارسیش رو وارد کنید در نهایت Reaplace All رو بزنید
البته این روش بستگی داره چه تعداد کلمه انگلیسی باشه که مقرون به صرفه هست یا نه

دوست گرامي! خير! من بيش از 2000 كلمه مختلف دارم متاسفانه! حدود 5000 ركورد هم دارم!! با Ctrl+H اذيت ميشم قاعدتا!

[generalsamad]

این روش چه طوره؟
از ابزار text to coulmns در ریبون data استفاده کنید
سپس یه شیت ایجاد کنید و هر سلول رو با یه شرط بررسی کنه که اگه اون سلول انگلیسی بود توی دیتابیستون جستجو کنه و معادل فارسی اون کلمه رو در شیت جدید قرار بده در غیر اینصورت همون کلمه (کلمه فارسی) توی شیت جدید قرار بگیره
در نهایت یک تابع متنی استفاده میکنیم و کلمات هر سطر رو به هم میچسبونیم
خواستید یک فایل نمونه قرار میدم

[generalsamad]

این هم فایل نمونه
البته اگه تعداد کلماتتون توی سطر بیشتر شد باید فرمول ادغام کردن رو نیز گسترش دهید

فایل ضمیمه گردید

[afshin3a]

پاسخ به اين شكل است:

Public Sub ReplaceText()
    Dim endrow, i As Integer
    endrow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To endrow
          Cells.Replace What:=Sheet2.Cells(i, "A"), Replacement:=Sheet2.Cells(i, "B")
     Next
End Sub
Sub Button1_Click()
     Call ReplaceText
End Sub
Call ReplaceText
End Sub 

منبع:
********************/post/8