اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر
السلام عليكم ممكن من الاساتذة الكرام التفضل بأجابتي حول كيفية ترتيب الاسماء العربية مقابل الاسماء الانكليزية

مثلا اسم أحمد يكون مقابل اسم Ahmed وشكرا جزيلا

يوجد مثال في المرفقات

Names.rar

قام بنشر

السلام عليكم ممكن من الاساتذة الكرام التفضل بأجابتي حول كيفية ترتيب الاسماء العربية مقابل الاسماء الانكليزية

مثلا اسم أحمد يكون مقابل اسم Ahmed وشكرا جزيلا

يوجد مثال في المرفقات

اخي thaer younis

تفضل المرفق

*قد تكزن الترجمة حرفية ولكن قد تساعد نوعاً ما

* للتشكيل دور مهم في الترجمة

ابواحمد

Names.rar

قام بنشر

الاستاذ ابو احمد اولا شكرا على الاجابة ثانيا اذا لم يكن فيها ازعاج ممكن شرح اكثر

بمعنى هل هناك دوال معينة يمكن استخدامها كما

ان المرفق لم يفتح بشكل صحيح عندي . كما لايفوتني ان اكرر شكري العميق الى حضرتك

قام بنشر

الاستاذ ابو احمد اولا شكرا على الاجابة ثانيا اذا لم يكن فيها ازعاج ممكن شرح اكثر

بمعنى هل هناك دوال معينة يمكن استخدامها كما

ان المرفق لم يفتح بشكل صحيح عندي . كما لايفوتني ان اكرر شكري العميق الى حضرتك

اخي الفاضل المرفق في المشاركة السابقة فيه هذه الدالة

Function TransA2E(W As String) As String

    On Error GoTo err:

    Dim AL(), EL()

    AL = Array(" ال", "َا", "ا", "أ", "آ", "ى", "إ", "ؤ", "ئ", "ب", "ت", "ث", "ج", "ح", "خ", "د", "ذ", "ر", "ز", "س", "ش", "ص", "ض", "ط", "ظ", "ع", "غ", "ف", "ق", "ك", "ل", "م", "ن", "ه", "ة", "ُوْ", "و", "ِيْ", "ي", "َ", "ً", "ُ", "ٌ", "ِ", "ٍ")

    EL = Array(" al-", "a", "a", "a", "a", "a", "i", "u", "i", "b", "t", "th", "j", "ha", "kh", "d", "th", "r", "z", "s", "sh", "s", "sh", "t", "th", "a", "g", "f", "q", "k", "l", "m", "n", "h", "h", "u", "w", "i", "y", "a", "tn", "u", "un", "i", "in")

    Do

        p = InStr(p + 1, W, "ّ")

        If p > 0 Then W = Left(W, p - 1) & Mid(W, p - 1, 1) & Mid(W, p + 1)

    Loop While p > 0

    For R = LBound(AL) To UBound(AL)

        W = Replace(W, AL(R), EL(R))

    Next

    TransA2E = W

err:

End Function

ضعها في محرر الاكواد

وبعدها ستجدها اصبحت دالة من دوال الاكسل باسمTransA2E ضع الخانة المكتوب فيها الاسم المراد ترجمته

وراعِ التشكيل للحصول على ترجمة مقاربة

قام بنشر

:fff: :fff: :fff: السلام عليكم

اخي عبد الله تحية طيبة وبعد

اتمني للك دوام التوفيق

كود جميل جدا

وجعله الله في ميزان حسناتك

اخوك في الله محمود علي :clapping: :clapping: :clapping:

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information