ناصر سعيد قام بنشر يونيو 8, 2016 مشاركة قام بنشر يونيو 8, 2016 الاخوة الاحباب هذا كود يعمل جيدا ولكن مع اضافته في ملف به حمايه لايعمل رجاء .. اريده يعمل وكل عام وانتم بخير فلترة متقدمة.zip رابط هذا التعليق شارك More sharing options...
عبدالسلام ابوالعوافي قام بنشر يونيو 8, 2016 مشاركة قام بنشر يونيو 8, 2016 ActiveSheet.Unprotect "123" ActiveSheet.Protect "123" السطر الاول في بداية الكود والسطر الثاني في اخر الكود ... 123 هي كلمة السر رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر يونيو 8, 2016 الكاتب مشاركة قام بنشر يونيو 8, 2016 ActiveSheet.Unprotect "123" Const StudentData As String = "بيانات الطلبة" Const TopStudents As String = "الاوائل" Private Sub Worksheet_Activate() Application.DisplayAlerts = False Sheets(TopStudents).Range("S:S").ClearContents Sheets(StudentData).Range("V5:V212").AdvancedFilter Action:=xlFilterCopy, copytorange:=Sheets(TopStudents).Range("S8"), unique:=True Sheets(TopStudents).Range("S9").Value = "الكل" With Sheets(TopStudents).Range("S8") .Interior.Pattern = xlSolid .Interior.Color = 65535 .Borders.LineStyle = xlContinuous .Borders.Weight = xlThin .Font.Size = 16 End With With Sheets(TopStudents).Range("S9:S100") .Interior.Pattern = xlSolid .Interior.ColorIndex = 0 .Borders.LineStyle = xlContinuous .Borders.Weight = xlThin .Font.ColorIndex = 0 .Font.Size = 16 End With Application.DisplayAlerts = True ActiveSheet.Protect "123" End Sub لم اوفق فيها .. جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
ابو عبدالبارى قام بنشر يونيو 8, 2016 مشاركة قام بنشر يونيو 8, 2016 Const StudentData As String = "ÈíÇäÇÊ ÇáØáÈÉ" Const TopStudents As String = "ÇáÇæÇÆá" Private Sub Worksheet_Activate() ActiveSheet.Unprotect "123" Application.DisplayAlerts = False Sheets(TopStudents).Range("S:S").ClearContents Sheets(StudentData).Range("V5:V212").AdvancedFilter Action:=xlFilterCopy, copytorange:=Sheets(TopStudents).Range("S8"), unique:=True Sheets(TopStudents).Range("S9").Value = "Çáßá" With Sheets(TopStudents).Range("S8") .Interior.Pattern = xlSolid .Interior.Color = 65535 .Borders.LineStyle = xlContinuous .Borders.Weight = xlThin .Font.Size = 16 End With With Sheets(TopStudents).Range("S9:S100") .Interior.Pattern = xlSolid .Interior.ColorIndex = 0 .Borders.LineStyle = xlContinuous .Borders.Weight = xlThin .Font.ColorIndex = 0 .Font.Size = 16 End With Application.DisplayAlerts = True ActiveSheet.Protect "123" End Sub اخى الكريم ناصر سعيد ضعها فى هذا المكان 2 رابط هذا التعليق شارك More sharing options...
عبدالسلام ابوالعوافي قام بنشر يونيو 8, 2016 مشاركة قام بنشر يونيو 8, 2016 بداية السب ورتين وليس بداية الموديول كما وضح اخونا ابوعبدالباري جزاه الله خير 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان