اذهب الي المحتوي
أوفيسنا

مطلوب كود تبديل بين اللغتين العربية والانجليزية


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

استفساري عن هل يمكن عمل كود يخفي صفحة ويظهر صفحة اخرى عن اختيار اللغ من قائمة منسدلة في احدى الخلايا

 

مثال

برنامج باللغتين الانجليزية والعربية

ارد عند اختيار الغة العربية يظهر الزر الخاص بالصفحة المكتوبة باللغة العربية ويختفي زر الصفحة المكتوبة باللغة الانجليزية

والعكس

 

ارجوا من الاخوة الاهتمام بالموضوع لاهميته

 

رابط هذا التعليق
شارك

اخي الكريم

ليس هذا قصدي

ارجو قراءة الموضوع جيدا

مرفق مثال

المطلوب فيه

انه عند اختيار اللغة العربية من القائمة المنسدلة يختفي زر اللغة الانجليزية وتختفي الصفحة English وعند الضغط على زر اللغة العربية تظهر ورقة Arabic والعكس

Book1.rar

رابط هذا التعليق
شارك

هنا أساتذة عباقرة لا يمكنهم الا ان يكونوا رمز العطاء والاثراء، ونحن نكون جاحدين ان لم ندعوا لهم بكل خير من ربنا الكريم،

هنا اساتذة نعجز عن شكرهم، فنرجوا الله ان يجازيهم، لاننا مهما قلنا في حقهم، حقهم لا نوفيهم

 

أكرمكم الله ورضى عنكم وارضاكم . == آمين.

رابط هذا التعليق
شارك

السلام عليكم

 

بعد اذن اخي الحبيب احمد


اثراءا للموضوع

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ib As Boolean
If Not Intersect(Target, [D6]) Is Nothing Then
    Application.ScreenUpdating = False

    If Target.Value = "English" Then ib = True Else ib = False
    Sheets("Arabic").Visible = Not ib
    Sheets("English").Visible = ib
    Me.Shapes("Rectangle 1").Visible = Not ib
    Me.Shapes("Rectangle 2").Visible = ib
    Application.ScreenUpdating = True
End If
End Sub

 المرفق 2010

Visible.rar

 

رابط هذا التعليق
شارك

بعد اذن الاستاذ عبدالله المجرب

 

تعديل بحيث يخفي الشكل ولا يخفي العمود الحاوي للشكل

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [D6]) Is Nothing Then
 Application.ScreenUpdating = False
 Select Case Target.Value
 Case Is = "English"
 Sheets("Arabic").Visible = False
 
ActiveSheet.Shapes("Rectangle 1").Visible = False
 Sheets("English").Visible = True
 
ActiveSheet.Shapes("Rectangle 2").Visible = True
 
Case Else
 Sheets("Arabic").Visible = True
 ActiveSheet.Shapes("Rectangle 1").Visible = True
 Sheets("English").Visible = False
 ActiveSheet.Shapes("Rectangle 2").Visible = False
 End Select
 Application.ScreenUpdating = False
 End If
 End Sub

تم تعديل بواسطه علي المصري
رابط هذا التعليق
شارك

والشكر موصول للاستاذ عبدالله باقشير على الكود

 

سوف انهي برنامجي واقوم بادراجه في صورته النهائية ان شاء الله

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information