علي المصري قام بنشر ديسمبر 23, 2013 قام بنشر ديسمبر 23, 2013 استفساري عن هل يمكن عمل كود يخفي صفحة ويظهر صفحة اخرى عن اختيار اللغ من قائمة منسدلة في احدى الخلايا مثال برنامج باللغتين الانجليزية والعربية ارد عند اختيار الغة العربية يظهر الزر الخاص بالصفحة المكتوبة باللغة العربية ويختفي زر الصفحة المكتوبة باللغة الانجليزية والعكس ارجوا من الاخوة الاهتمام بالموضوع لاهميته
شوقي ربيع قام بنشر ديسمبر 23, 2013 قام بنشر ديسمبر 23, 2013 تجد الحل في هذا الموضوع للاخ محمدي عبد السميع http://www.officena.net/ib/?showtopic=41708
علي المصري قام بنشر ديسمبر 23, 2013 الكاتب قام بنشر ديسمبر 23, 2013 اخي الكريم ليس هذا قصدي ارجو قراءة الموضوع جيدا مرفق مثال المطلوب فيه انه عند اختيار اللغة العربية من القائمة المنسدلة يختفي زر اللغة الانجليزية وتختفي الصفحة English وعند الضغط على زر اللغة العربية تظهر ورقة Arabic والعكس Book1.rar
رشراش علي قام بنشر ديسمبر 24, 2013 قام بنشر ديسمبر 24, 2013 هنا أساتذة عباقرة لا يمكنهم الا ان يكونوا رمز العطاء والاثراء، ونحن نكون جاحدين ان لم ندعوا لهم بكل خير من ربنا الكريم، هنا اساتذة نعجز عن شكرهم، فنرجوا الله ان يجازيهم، لاننا مهما قلنا في حقهم، حقهم لا نوفيهم أكرمكم الله ورضى عنكم وارضاكم . == آمين.
عبدالله المجرب قام بنشر ديسمبر 24, 2013 قام بنشر ديسمبر 24, 2013 السلام عليكم اليك المرفق Abu_Ahmed_2014.rar
عبدالله باقشير قام بنشر ديسمبر 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
علي المصري قام بنشر ديسمبر 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 بواسطه علي المصري
علي المصري قام بنشر ديسمبر 24, 2013 الكاتب قام بنشر ديسمبر 24, 2013 والشكر موصول للاستاذ عبدالله باقشير على الكود سوف انهي برنامجي واقوم بادراجه في صورته النهائية ان شاء الله
علي المصري قام بنشر ديسمبر 24, 2013 الكاتب قام بنشر ديسمبر 24, 2013 زيادة في اثراء الموضوع اظهار واخفاء مربع نص مع زر مرفق Abu_Ahmed_2014.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.