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

الشكر واصل لجميع المشاركين حفظكم الله ورعاكم وكل عام وانتم بخير خبور خير

السلام عليكم كل عام وانتم بخير شكرا اخي نادر جزاك الله خيرا والشكر واصل لجميع المشاركين حفظكم الله ---------------- اخي ايسم موضوع التوزيع ليس بالسهل ويحتاج الكثير من التجارب حتى نصل الى ما تريدون ان شاء الله ساعمل بتطويره وساوافيك بالجواب ودمتم في حفظ الله

السلام عليكم هذه لمن ارادها بهذا الشكل هذه يتم تغييرها من الكود اذا توفرت المعلومات المطلوبة لديك في هذه السطر . Range("E" & RR - 2).Value = "الفصل " & R

السلام عليكم الاخ الفاضل / كيماس _________حفظه الله شاهد الرابط التالي: توزيع الفصول باختيار النوع (ولد او بنت) او مشترك وبميزة تساوي الدرجات وكل عام وانتم بخير

السلام عليكم بارك الله فيك اخي طارق شاهد الرابط توزيع الفصول باختيار النوع (ولد او بنت) او مشترك وبميزة تساوي الدرجات وكل عام وانتم بخير

السلام عليكم توزيع الفصول باختيار النوع (ولد او بنت) او مشترك وبميزة تساوي الدرجات سمي نطاق البيانات myDate وهنااعدادات الكود الاخرى '*********************************************** '*********************************************** ' اسم ورقة الفصول Const ShName As String = "فصول" ' عدد صفوف العمليات الخارجة عن نموذج الفصل ' المظللة باللون الرمادي Const Rows_operations As Byte = 10 ' عدد صفوف نموذج الراس ' kh_top_rows Const FirstRow As Byte = 4 ' عدد صفوف نموذج التذييل ' kh_end_rows Const EndRow As Byte = 3 '*********************************************** '*********************************************** وهنا يتم اختيار الاعمدة التي تريد '*********************************************** '*********************************************** ' اختيار الاعمدة المطلوب استدعائها ' myDate التسمية تكون لاعمدة النطاق ' وليس لاعمدة الورقة MyColumn = Array("A", "B", "C", "D", "J", "O", "P") '*********************************************** '*********************************************** وفي المرفق ما يغني عن الشرح وكل عام وانتم بخير توزيع الفصول باختيار النوع وبتساوي الدرجات.rar

السلام عليكم بارك الله فيك وكل عام وانتم بخير

السلام عليكم لم نستكمل بعد عمل زر الخطة الاتوماتيكية بشكل صحيح وانما تم اضافته فكرة لاحد الاعضاء لذا قد ياتيك بنتائج عشوائية اتركه او احذفه حتى ياتي دوره في اصدار آخر وكل عام وانتم بخير

الاخ الفاضل / آيسم و

======================== الاخ الفاضل / احمد ======================= كل عام وانت بخير ========================

الاخ الفاضل/ Mr Said__________حفظه الله تقبل الله منا ومنكم وعفا عنا وعنكم وجميع المسلمين وخواتم مباركة خبور خير

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

السلام عليكم في بداية الكود تضع معطياتك '*********************************************** '*********************************************** ' اسم ورقة الطباعة Const ShName As String = "طباعة 2" ' رقم اول صف لنموذج الطباعة Const FirstRow As Integer = 4 ' عدد صفوف نموذج الطباعة Const CountRow As Integer = 9 'عدد الاعمدة التي تريد اظهارها في الطباعة Const CountColumn As Integer = 5 ' خلية عدد الموظفين Const CountAll As String = "D2" تفضل المرفق مرتبات الجديد بعد التعديل.rar

السلام عليكم استخدم الكود التالي لو فرضنا ان الخلية ذات التعليق هي D6 والخلية التي تريد اضافة نص التعليق فيها الخلية النشطة ActiveCell Sub kh_Add_Comment() If Not Range("D6").Comment Is Nothing Then ActiveCell.Value = Range("D6").Comment.Text Else MsgBox "Nothing" End If End Sub

السلام عليكم ولك بمثل دعائك اضعاف مضاعفة اكرمك الله في الدارين تقبل تحياتي وشكري

السلام عليكم بارك الله فيك اخي هشام ولاثراء الموضوع حل آخر بالكود التالي: Sub kh_Filter() Dim Col As Range, Rng As Range Dim Last As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Last = Range("A65536").End(xlUp).Row Range("F2:F" & Last).ClearContents Set Rng = Range("A1:B" & Last) Rng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("D1:E1"), Unique:=True Last = Range("D65536").End(xlUp).Row For Each Col In Range("F2:F" & Last) Col.Value = Application.CountIf(Rng.Columns(1), Cells(Col.Row, "D")) Next Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Set Rng = Nothing End Sub خبور خير اسماء وارقام مكررة.rar

السلام عليكم ممكن نبقي عمود المسلسل في العمود الاول لكن السؤال هل لديك عمود لاكواد العملاء؟؟

الاخ الفاضل/ آيسم__________حفظه الله الاخ الفاضل/ محمدي__________حفظه الله شكرا على التعاون المثمر بارك الله فيكما الاخ الفاضل/ abo_alaa__________حفظه الله الاخ الفاضل/ alyfahem__________حفظه الله تقبل الله منا ومنكم وعفا عنا وعنكم وجميع المسلمين وخواتم مباركة خبور خير

الاخت الفاضلة/ ايناس __________حفظها الله الاخ الفاضل/ محمدي __________حفظه الله الاخ الفاضل/ دغيدي__________حفظه الله الاخ الفاضل/ هشام__________حفظه الله تقبل الله منا ومنكم وعفا عنا وعنكم وجميع المسلمين وخواتم مباركة خبور خير الاخ الفاضل/ دغيدي__________حفظه الله هل هو الملف اللي في المشاركة لا يظهر الصور او في ملف آخر لشخصك بعد التعديل عليه؟

السلام عليكم تم اضافة خاصية اضافة صور الطلبة في الشهادة في الرابط استخراج الشهادات مع اضافة صور للطلبة خبور خير

السلام عليكم استخراج الشهادات مع اضافة صور للطلبة ============================= الصور في فولدر photo في نفس فولدر ملف الاكسل وتسمى بحسب تسلسل الطلبة ويمكنك تعيين العمود الذي توضع فيه الصورة في الجزئية الجديدة التالية من الكود ' رقم عمود وضع صورة الطالب Const STPic As Integer = 15 ============================= ويمكنك تغيير اعدادات الكود بشكل عام من هنا '*********************************************** '*********************************************** ' اسم ورقة الشهادات Const ShName As String = "الشهادات" ' رقم اول صف للشهادة Const FirstRow As Integer = 12 ' عدد صفوف الشهادة Const CountRow As Integer = 12 'عدد اعمدة الشهادة التي تريد اظهارها في الطباعة Const CountColumn As Integer = 15 ' خلية موقع الطالب لمعادلات الشهادة Const Range_Index As String = "A12" ' رقم عمود وضع صورة الطالب Const STPic As Integer = 15 '===================================== ' اسم ورقة البيانات Const Sh As String = "بيانات اساسية" ' نطاق ناجح دور ثاني في ورقة البيانات Const MyND As String = "BK10:BK1000" ' نطاق الاسماء في ورقة البيانات Const MyNSearch As String = "B10:B1000" '===================================== ' خلية عدد كل المتقدمين Const CountAll As String = "C3" ' خلية عدد الناجحين Const CountNA As String = "C4" ' كلمة البحث عن الناجحين Const NA_G As String = "ناجح" ' خلية عدد دور ثاني Const CountDT As String = "C5" ' كلمة البحث عن دور ثاني Const DT_G As String = "دور تان" '************************************************ '************************************************ شهادات جديد مع اضافة صور للطلبة.rar

السلام عليكم من اين نستدل على اسم الصورة