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

[علي المصري]

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

 

مثال

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

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

والعكس

 

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

 

[شوقي ربيع]

تجد الحل في هذا الموضوع للاخ محمدي عبد السميع 

http://www.officena.net/ib/?showtopic=41708

[علي المصري]

اخي الكريم

ليس هذا قصدي

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

مرفق مثال

المطلوب فيه

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

Book1.rar

[رشراش علي]

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

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

 

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

[عبدالله المجرب]

السلام عليكم 

اليك المرفق 

Abu_Ahmed_2014.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

تم تعديل ديسمبر 24, 2013 بواسطه علي المصري

[علي المصري]

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

 

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

[علي المصري]

زيادة في اثراء الموضوع

اظهار واخفاء مربع نص مع زر

مرفق

Abu_Ahmed_2014.rar