برنامج ترجمة

[husain alhammadi]

السلام عليكم و رحمة الله و بركاتة

ارجوا مساعدتي في كود خاص بالبرنامج المرفق و الخاص بالترجمة اللغات

بداية الادخال B2 و يتم نقل الكلمة الى C4 و بموجبه يتم البحث في جميع الصفحات من A3 الى A10000 و يتم نقل النتيجة B3 الى B10000في صفحة الرئيسية من C5 الى C13 حسب اللغة

وشكرا لكم

 

ترجمة.xlsx

[احمد عبدالحليم]

وعليكم السلام ورحمة الله وبركاته 

تفضل اخى @husain alhammadi

ملحوظة مهمة جدا يجب ان يكون اسماء الشيتات هى نفسها فى شيت الرئيسية (وذا كان هناك اسم شيت غير متطابق مع نفس اسم الشيت فى الشيت الرئسيى سوف تظهر رسالة تخبرك بهذا الشيت غير متطابق

واتمنى بعد وضع الكلمات وترجمتها لهذه اللغات ان ترفع الملف لنا مرة اخرى 

فكرة رائعة بل اكثر من رائعة

تقبل تحياتى

ترجمة.2xlsm.xlsm

تم تعديل سبتمبر 12, 2023 بواسطه احمد عبدالحليم

[أ / محمد صالح]

بعد إذن أخي الغالي @احمد عبدالحليم

يمكنك استعمال هذا الاجراء لوضع أسماء الشيتات ايا كان عددها في العمود B

Sub sheetsnames()
n = 4
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "الرئيسية" Then
Range("b" & n) = sh.Name
n = n + 1
End If
Next sh
MsgBox "ok"
End Sub

واستعمال هذا الكود في حدث تغيير قيمة الخلايا في شيت الرئيسية

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
    Range("C4:C12").Formula = "=VLOOKUP($B$2,INDIRECT(""'""&B4&""'!a2:b10000""),2,0)"
    Range("C4:C12").Value = Range("C4:C12").Value
End If
End Sub

بالتوفيق

[احمد عبدالحليم]

استاذنا الفاضل ومعلمنا @أ / محمد صالح

حل اكثر من رائع وغاية السهولة واليسر

تقبل تحياتى 

 

[husain alhammadi]

استاذ احمد عبدالحليم و استاذ أ / محمد صالح جزاكم الله خير الجزاء و جعله الله في ميزان حسناتكم