علي المصري قام بنشر ديسمبر 23, 2013 مشاركة قام بنشر ديسمبر 23, 2013 استفساري عن هل يمكن عمل كود يخفي صفحة ويظهر صفحة اخرى عن اختيار اللغ من قائمة منسدلة في احدى الخلايا مثال برنامج باللغتين الانجليزية والعربية ارد عند اختيار الغة العربية يظهر الزر الخاص بالصفحة المكتوبة باللغة العربية ويختفي زر الصفحة المكتوبة باللغة الانجليزية والعكس ارجوا من الاخوة الاهتمام بالموضوع لاهميته رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر ديسمبر 23, 2013 مشاركة قام بنشر ديسمبر 23, 2013 تجد الحل في هذا الموضوع للاخ محمدي عبد السميع http://www.officena.net/ib/?showtopic=41708 رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر ديسمبر 23, 2013 الكاتب مشاركة قام بنشر ديسمبر 23, 2013 اخي الكريم ليس هذا قصدي ارجو قراءة الموضوع جيدا مرفق مثال المطلوب فيه انه عند اختيار اللغة العربية من القائمة المنسدلة يختفي زر اللغة الانجليزية وتختفي الصفحة English وعند الضغط على زر اللغة العربية تظهر ورقة Arabic والعكس Book1.rar رابط هذا التعليق شارك More sharing options...
رشراش علي قام بنشر ديسمبر 24, 2013 مشاركة قام بنشر ديسمبر 24, 2013 هنا أساتذة عباقرة لا يمكنهم الا ان يكونوا رمز العطاء والاثراء، ونحن نكون جاحدين ان لم ندعوا لهم بكل خير من ربنا الكريم، هنا اساتذة نعجز عن شكرهم، فنرجوا الله ان يجازيهم، لاننا مهما قلنا في حقهم، حقهم لا نوفيهم أكرمكم الله ورضى عنكم وارضاكم . == آمين. رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر ديسمبر 24, 2013 مشاركة قام بنشر ديسمبر 24, 2013 السلام عليكم اليك المرفق Abu_Ahmed_2014.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر ديسمبر 24, 2013 مشاركة قام بنشر ديسمبر 24, 2013 السلام عليكم بعد اذن اخي الحبيب احمد اثراءا للموضوع 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 رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر ديسمبر 24, 2013 الكاتب مشاركة قام بنشر ديسمبر 24, 2013 (معدل) بعد اذن الاستاذ عبدالله المجرب تعديل بحيث يخفي الشكل ولا يخفي العمود الحاوي للشكل 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 بواسطه علي المصري رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر ديسمبر 24, 2013 الكاتب مشاركة قام بنشر ديسمبر 24, 2013 والشكر موصول للاستاذ عبدالله باقشير على الكود سوف انهي برنامجي واقوم بادراجه في صورته النهائية ان شاء الله رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر ديسمبر 24, 2013 الكاتب مشاركة قام بنشر ديسمبر 24, 2013 زيادة في اثراء الموضوع اظهار واخفاء مربع نص مع زر مرفق Abu_Ahmed_2014.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان