ناصر سعيد قام بنشر أبريل 19, 2017 مشاركة قام بنشر أبريل 19, 2017 السلام عليكم ورحمة الله في هذا الملف كود في حدث صفحه شهاده 1 خاص بالفلتره ولكنه لايعمل في هذا المرفق كلمات السر والمستخدم 1 برجاء تضبيطه https://up.top4top.net/downloadf-47498nnd1-rar.html رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أبريل 19, 2017 مشاركة قام بنشر أبريل 19, 2017 السلام عليكم ورحمة الله موقع التحميل يعلن عن وجود فيروس... حمله من جديد عبر المنتدى... بن علية رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر أبريل 20, 2017 الكاتب مشاركة قام بنشر أبريل 20, 2017 الاستاذ المحترم بن عليه ربنا يبارك فيك ويجزيك خيرا الملف حجمه اكبر من تحميل على المنتدى تم تحميل الملف على موقع اخر والملف ان شاء الله نظيف https://gulfsup.com/ace79ax رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر أبريل 20, 2017 الكاتب مشاركة قام بنشر أبريل 20, 2017 للرفع رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر أبريل 21, 2017 الكاتب مشاركة قام بنشر أبريل 21, 2017 Const studentData As String = "رصد الترم الثانى" Const shehada As String = "شهادة1" 'هذا الكود للمحترم ياسر خليل 'جزاه الله خيرا 'الهدف من الكود هو الفلتره Private Sub Worksheet_Activate() 'Application.Calculation = xlCalculationManual Application.ScreenUpdating = False 'Application.EnableEvents = False Application.DisplayAlerts = False Sheets(shehada).Range("U:U").ClearContents Sheets(studentData).Range("D7:D500").AdvancedFilter _ Action:=xlFilterCopy, _ CopyToRange:=Sheets(shehada) _ .Range("U5"), Unique:=True 'Sheets(Shehada).Range("Y4").Value = "الكل" With Sheets(shehada).Range("U5") .Interior.Pattern = xlSolid .Interior.Color = 65535 .Borders.LineStyle = xlContinuous .Borders.Weight = xlThin .Font.Size = 16 End With With Sheets(shehada).Range("U5:U15") .Interior.Pattern = xlSolid .Interior.ColorIndex = 0 .Borders.LineStyle = xlContinuous .Borders.Weight = xlThin .Font.ColorIndex = 0 .Font.Size = 16 End With Application.DisplayAlerts = True ' Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True ' Application.EnableEvents = True End Sub هذا هو الكود الذي لايعمل في ملفي .. لماذا لااعرف رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر أبريل 21, 2017 الكاتب مشاركة قام بنشر أبريل 21, 2017 للرفع رفع الله مقداركم رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أبريل 21, 2017 مشاركة قام بنشر أبريل 21, 2017 السلام عليكم ورحمة الله الملف تم تحميله ولكن عند فتحه يقوم الإكسيل بإصلاحه فيمسح كل أكواد VBA ولا يترك سوى الشيتات دون أكواد... والذي لم أفهمه هو: ما الذي تريد تصفيته (فلترته) في ورقة "شهادة1" ؟؟؟ أخوك بن علية 1 رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر أبريل 21, 2017 الكاتب مشاركة قام بنشر أبريل 21, 2017 اريد فلترة الفصول لتظهر في ورقه شهاده1 فنعمل منها قائمه منسدله ليتم استخراج الشهادات بمعيه اسم الفصل ولا ادري لما ذا يتم معك هذا بالنسبه للملف اخي الكريم بن عليه رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر أبريل 22, 2017 الكاتب مشاركة قام بنشر أبريل 22, 2017 للرفع رفع الله كقداركم رابط هذا التعليق شارك More sharing options...
عبدللرحيم قام بنشر أبريل 22, 2017 مشاركة قام بنشر أبريل 22, 2017 يوجد رشيت ناقص (تجميع المرصود) اصبر قليلا جارى البحث بإذن الله رابط هذا التعليق شارك More sharing options...
عبدللرحيم قام بنشر أبريل 22, 2017 مشاركة قام بنشر أبريل 22, 2017 انت رفعت ملف شهادات ساجدة العزاوى قبل ذلك وبه اكواد الشهادات المطلوبة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.