مطلوب تعديل كو د : يقوم بتغيير اتجاه الصفحة

[علي المصري]

السلام عليكم ورحمة الله وبركاته

الكود التالي إذا وضعته في صفحة عند  تغيير الخلية J14 إلى English  تتحول الصفحة الموجود بها الكود الاتجاه من اليسار إلى اليمين

والعكس خلاف ذلك

 

ارجو من حضراتكم تعديل الكود بحيث

يتم تغيير اتجاه ورقة اخرى غير المكتوب يها الكود

الكود موجود في ورقة Ali_Data

أريد تحويل اتجاه ورقة Grade 6-11

Private Sub Worksheet_change(ByVal Target As range)
If Not Intersect(Target, [J14]) Is Nothing Then
    Application.ScreenUpdating = False
Select Case Target.Value
Case Is = "English"

ActiveSheet.DisplayRightToLeft = Not ActiveSheet.DisplayRightToLeft

Case Else

ActiveSheet.DisplayRightToLeft = Not ActiveSheet.DisplayRightToLeft

   End Select
    Application.ScreenUpdating = False
End If
End Sub

analysis.rar

تم تعديل أبريل 22, 2014 بواسطه علي المصري

[عبدالله باقشير]

السلام عليكم

 

غير  ActiveSheet

الى الورقة التي تريدها

 

تحياتي

[علي المصري]

شكرا لك استاذنا الفاضل الاستاذ عبدالله

قمت بالفعل تغيير ما ذكرته

ولكن عند حدوث أي تغيير في الخلية J15 يقوم بتغير اتجاه الصفحة

مثلا لو تركت الخلية فارغة يقوم بتغيير الاتجاه وبالتالي لو اختر اللغة العربية بعدها يمكن ان يحدث عد ترتيتب ويكون اتجاه الصفحة من اليسار إلى اليمين

 

فلو سمحتم اريد كود يرتبط فقط في عملية التحويل بمحتويات الخلية وهم اختياران فقط ( English  و   اللغة العربية )

 

كما انني اريد تغير الكود من

Private Sub Worksheet_change(ByVal Target As range)

إلى

Private Sub Worksheet_activate()

وتغيير ما يلزم

وشكرا جزيلا

تم تعديل أبريل 22, 2014 بواسطه علي المصري

[عبدالله باقشير]

السلام عليكم

 

امسح الكود الموجود في موديل الورقة  Ali_data

 

وضع هذا الموديل في الورقة  Grades 6-11

Private Sub Worksheet_Activate()
Select Case CStr(ورقة1.Range("j14"))
Case Is = "English"

    Me.DisplayRightToLeft = False

Case Is = "اللغة العربية"

Me.DisplayRightToLeft = True

End Select
End Sub

تحياتي

[علي المصري]

شكرا استاذ عبدالله

هذا هو المطلوب

 

لكن عندما اضفت إلى الكود السطر التالي حتى لا تظهر الحركة اثناء التبديل لم تأتي بفائدة

Application.ScreenUpdating = False

فهل من حل آخر

 

شكرا جزيلا على الكود

[علي المصري]

الكود

Private Sub Worksheet_Activate()
'شكر خاص للاستاذ
'عبدالله باقشير
'منتديات اوفيسنا

'
Application.ScreenUpdating = False
Select Case CStr(AliElbasry2.range("c15"))

Case Is = "English"

    Me.DisplayRightToLeft = False

Case Is = "اللغة العربية"

    Me.DisplayRightToLeft = True

End Select

End Sub

[علي المصري]

الشكل النهائي للبرنامج

 

 

Desktop.rar