علي المصري

شكرا لك استاذنا الفاضل الاستاذ عبدالله قمت بالفعل تغيير ما ذكرته ولكن عند حدوث أي تغيير في الخلية J15 يقوم بتغير اتجاه الصفحة مثلا لو تركت الخلية فارغة يقوم بتغيير الاتجاه وبالتالي لو اختر اللغة العربية بعدها يمكن ان يحدث عد ترتيتب ويكون اتجاه الصفحة من اليسار إلى اليمين فلو سمحتم اريد كود يرتبط فقط في عملية التحويل بمحتويات الخلية وهم اختياران فقط ( English و اللغة العربية ) كما انني اريد تغير الكود من Private Sub Worksheet_change(ByVal Target As range) إلى Private Sub Worksheet_activate() وتغيير ما يلزم وشكرا جزيلا

السلام عليكم ورحمة الله وبركاته الكود التالي إذا وضعته في صفحة عند تغيير الخلية 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

شكرا على مجهودك بارك الله فيكم

إبداع متميز

هل من مجيب

برجاء تعديل الكود بحيث يتم طباعة الأوراق مجمعه في ملف واحد شكرا للجميع

السلام عليكم ورحمة الله وبركاته لعل الكود التالي يكون هو المطلوب ( الكود منقول ) ووانا لا اتذكر من اين وجدته لكي يعمل الكود حدد في كل صفحة تضع الكود فيه Print Area Book1.rar

هل يمكن اضافة الازرار الموضحة بالشكل حيث أن طريقة السحب والإلقاء تحتاج لوقت في حالة عدد الأوراق الكثيرة Doc1.pdf

شكرا للجميع حيث انني كنت ابحث عن هذا الكود كثيرا

شكرا أخي الكريم وبارك الله فيك

ملف اكسيل لرصد متابعة المعلمين من تاخر وغياب وخلافة فكل اسم ممكن ان يتكرر بتواريخ مختلفة فالمطلوب عمل احصائية لجمع عدد الغياب والتأخر وغيرها لكل معلم فكيف يمكن عمل ذلك شكرا 12.rar

شكرا وبارك الله فيكم

أعمال رائعة بارك الله فيكم جميعا ً

بالتوفيق ان شاء الله

تفضل اخي الكريم لعله يكون المطلوب كيف اتخلص من كلمه ( !VALUE# ).rar

عمل مميز بارك الله فيكم

زيادة في اثراء الموضوع اظهار واخفاء مربع نص مع زر مرفق Abu_Ahmed_2014.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

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

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

الامر كله عايزين ان احنا نستخدم ازرار ولا نريد ان نستخدم برامج الفكرة ان احنا بنتعامل مع الاكسيس يعني برمجه شكرا

كود لادراج اسماء أوراق العمل الموجودة بملف اكسل ( ادراجها مع عمل ارتباط تشعبي لها ) Option Explicit Sub ListAllSheets2() Dim sht As Worksheet Dim i As Integer i = 2 For Each sht In Worksheets i = i + 1 ActiveSheet.Hyperlinks.Add _ anchor:=Cells(i, 2), _ Address:="", _ SubAddress:=sht.Name & "!a1", _ TextToDisplay:=sht.Name Next sht End Sub ارتباط تشعبي.rar

اخي عبدالله المجرب هل هذا ما تقصده Sub ss() Application.ScreenUpdating = False ActiveSheet.Unprotect For i = 5 To 100 If Mid(Cells(i, 1), 1, 1) = "" Then Cells(i, 1).Value = "" End If Next i Range("A5:A100").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Hidden = True Range("A1").Select ActiveSheet.Protect Application.ScreenUpdating = True End Sub Sub ss2() Application.ScreenUpdating = False ActiveSheet.Unprotect For i = 5 To 100 If Mid(Cells(i, 1), 1, 1) = "" Then Cells(i, 1).Value = "" End If Next i Range("A5:A100").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Hidden = False Range("A1").Select ActiveSheet.Protect Application.ScreenUpdating = True تم ولكن يستطيع اي شخص بمجرد ما يضغط على إلغاء حماية الورقة يستطيع التعديل على محتوياتها ولكني اريد حماية برقم سري شكرا على متابعتك للموضوع