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

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

قام بنشر

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

 

مثال

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

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

والعكس

 

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

 

قام بنشر

اخي الكريم

ليس هذا قصدي

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

مرفق مثال

المطلوب فيه

انه عند اختيار اللغة العربية من القائمة المنسدلة يختفي زر اللغة الانجليزية وتختفي الصفحة 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

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

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