ناصر سعيد

=SUMPRODUCT((الشــيت!$I9:$I65000=J$3)*(الشــيت!$J9:$J65000=L$4)*(الشــيت!$T9:$T65000=M$5)) معادله ب3 معايير .. جزاك الله كل خير الاستاذ المحترم بن عليه

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

بسم الله الرحمن الرحيم احبابنا في الله السلام عليكم ورحمة الله وبركاته نريد كودا لنسخ صف معين الى صفوف بعدد معين للصفوف المنسوخ لها في عده اوراق مختلفه الشروط ينسخ الخلايا بتنسيقاتها ومعادلاتها قبل النسخ يمسح البيانات القديمه في نفس الاوراق المنسوخ لها ========= نسخ صفوف و المسح.rar والمرفق يوضح اكثر جزاكم الله خيرا

هذا الكود من الكنوز الخاصه برجال التربيه والتعليم بارك الله لك استاذ زيزو ويحفظك وشكرا للسائل جزاه الله خيرا ===== ارجو ان تشرح اسطره لكي يكون سهلا للجميع كي يتم توافقه مع ملفاتهم وجزاك الله خيرا

السلام عليكم جميعا ===== البرنامج معمول لتوزيع الطلاب على الفصول و طباعة قوائم بأسماء الطلاب في كل فصل و الإحصائيات الخاصة بكل فصل. البرنامج يصلح لكل المراحل و الفصول التعليمية ( ابتدائي - إعدادي - ثانوي ) البرنامج به تسهيلات كثيرة في التوزيع حيث يمكنك التوزيع آليا بضغطة زر واحدة و يمكنك أيضا التعديل على التوزيع الآلي بوضع طالب ما في فصل ما حسبما تريد و أيضا يمكنك التوزيع كله يدويا دون الالتزام بأي شيء ما عليك إلا كتابة رقم الفصل أمام اسم الطالب. جربوا و منتظر آرائكم و تعليقاتكم للتعديل و التطوير البرنامج هدية شهر رمضان المعظم لا تنسونا و بلدنا الحبيب من صالح الدعاء. منقول للفائده https://up.top4top.net/downloadf-5708ps611-rar.html برنامج عمل قوائم الفصول .rar‏ (117.1 كيلوبايت, المشاهدات 13054)

Sub SortData() Dim LR As Long LR = Range("B" & Rows.Count).End(xlUp).Row 'مدى الفرز .. ثم معيار الفرز الاول 'ثم معيار الفرز التاني Range("B9:K" & LR).Sort Key1:=Range("E9:E" & LR), Order1:=2, Key2:=Range("B9:B" & LR), Order2:=1, Header:=xlNo End Sub لفرز البنون والبنات ثم فرز البنون هجائيا وفرز البنات هجائيا

Sub SortData() Dim LR As Long LR = Range("B" & Rows.Count).End(xlUp).Row 'مدى الفرز .. ثم معيار الفرز الاول 'ثم معيار الفرز التاني Range("B9:K" & LR).Sort Key1:=Range("E9:E" & LR), Order1:=2, Key2:=Range("B9:B" & LR), Order2:=1, Header:=xlNo End Sub لفرز البنون والبنات ثم فرز البنون هجائيا وفرز البنات هجائيا

Sub SortData() Dim LR As Long LR = Range("B" & Rows.Count).End(xlUp).Row 'مدى الفرز .. ثم معيار الفرز الاول 'ثم معيار الفرز التاني Range("B9:K" & LR).Sort Key1:=Range("E9:E" & LR), Order1:=2, Key2:=Range("B9:B" & LR), Order2:=1, Header:=xlNo End Sub لفرز البنون والبنات ثم فرز البنون هجائيا وفرز البنات هجائيا

اسلوبك في التخاطب راق جزاك الله خيرا

اهم سؤال بالنسبه لي بعد محرر الاكواد ماعمل الكود اللي احنا عايزينه ولكن بطريقه طويله شويه كيف ام الاختزال ؟

Sub SortData() Dim LR As Long LR = Range("B" & Rows.Count).End(xlUp).Row Range("B9:C" & LR).Sort Key1:=Range("E9:E" & LR), Order1:=2, Key2:=Range("B9:B" & LR), Order2:=1, Header:=xlYes End Sub جزاك الله خيرا استاذ ياسر

Sub Sort_Male() Dim lr As Long lr = Range("E" & Rows.Count).End(xlUp).Row Range("E7:Q" & lr).Sort Key1:=Range("F7:F" & lr), _ Order1:=2, Header:=xlNo End Sub ماهي الاضافه في هذا الكود حتى يعمل الفرز بمعيار عمودين مثل الكود الاسبق

ربنا يبارك لك .. الاستاذ المحترم ابو تامر Sub SortMe() Application.Goto Reference:="MyData" Selection.Sort Key1:=Range("R5"), Order1:=xlAscending, Key2:=Range("E5") _ , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _ , Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _ xlSortNormal Range("A1").Select End Sub

بارك الله لك

Sub Sort_Male() Dim lr As Long lr = Range("E" & Rows.Count).End(xlUp).Row Range("E7:Q" & lr).Sort Key1:=Range("F7:F" & lr), _ Order1:=2, Header:=xlNo End Sub كود فرز الطلاب ضع هذا الكود في موديول واعمل له .. زر بصفحه بيانات المصدر لاتقلق هذا فرز ليأتي بالذكور اولا واذا اردت ان تجعله يأتي بالبنات اولا فما عليك الا ان تغير الرقم 2 الموجود في الكود وتجعله الرقم 1

مامعنى هذه الارقام ومامعنى الكلمه الحمراء .. افادكم الله ؟ ======================= 2 - يوجد 2 Sub في الكود .. لماذا ؟ معذره .... 3 Sub ... وليس 2 لماذا ؟

للرفع

هذا هو الملف شرح كود.rar =============== عرفت حزء احببت ان تشاركوني فيه ان المعادله الموجوده بالصف التاني انسخها في الصف السابع بالعدد الموجود في الخليه بي 1 برجاء اكمال الشرح جزاكم الله خيرا

وجدت هذا الكود اريد من احد الاخوة الكرام تخفيفه ما امكن وشرح بعض اسطره جزاكم الله خيرا Sub kh_Copy_Formula() On Error GoTo kh_Err تصفير_محدد kh_Application False '============================================= 'kh_cFormula Range("شيت_الصف_الرابع!$c$2:$g$2"), 7, ورقة8.Range("b1") 'kh_cFormula Range("شيت_الصف_الرابع!$k$2:$L$2"), 7, ورقة8.Range("b1") 'kh_cFormula Range("شيت_الصف_الرابع!$p$2:$t$2"), 7, ورقة8.Range("b1") 'kh_cFormula Range("شيت_الصف_الرابع!$x$2:$y$2"), 7, ورقة8.Range("b1") 'kh_cFormula Range("شيت_الصف_الرابع!$ac$2:$ag$2"), 7, ورقة8.Range("b1") 'kh_cFormula Range("شيت_الصف_الرابع!$ak$2:$al$2"), 7, ورقة8.Range("b1") 'kh_cFormula Range("شيت_الصف_الرابع!$ap$2:$at$2"), 7, ورقة8.Range("b1") 'kh_cFormula Range("شيت_الصف_الرابع!$ay$2:$ba$2"), 7, ورقة8.Range("b1") 'kh_cFormula Range("شيت_الصف_الرابع!$bf$2:$bk$2"), 7, ورقة8.Range("b1") 'kh_cFormula Range("شيت_الصف_الرابع!$bo$2:$bp$2"), 7, ورقة8.Range("b1") 'kh_cFormula Range("شيت_الصف_الرابع!$bt$2:$bx$2"), 7, ورقة8.Range("b1") 'kh_cFormula Range("شيت_الصف_الرابع!$ca$2:$cb$2"), 7, ورقة8.Range("b1") 'kh_cFormula Range("شيت_الصف_الرابع!$ce$2:$ci$2"), 7, ورقة8.Range("b1") 'kh_cFormula Range("شيت_الصف_الرابع!$cl$2:$cm$2"), 7, ورقة8.Range("b1") 'kh_cFormula Range("شيت_الصف_الرابع!$cp$2:$ct$2"), 7, ورقة8.Range("b1") 'kh_cFormula Range("شيت_الصف_الرابع!$cw$2:$cx$2"), 7, ورقة8.Range("b1") 'kh_cFormula Range("شيت_الصف_الرابع!$da$2:$de$2"), 7, ورقة8.Range("b1") 'kh_cFormula Range("شيت_الصف_الرابع!$dh$2:$di$2"), 7, ورقة8.Range("b1") 'kh_cFormula Range("شيت_الصف_الرابع!$dl$2:$dr$2"), 7, ورقة8.Range("b1") 'kh_cFormula Range("شيت_الصف_الرابع!$dv$2:$dw$2"), 7, ورقة8.Range("b1") 'kh_cFormula Range("شيت_الصف_الرابع!$ea$2:$ek$2"), 7, ورقة8.Range("b1") 'kh_cFormula Range("شيت_الصف_الرابع!$em$2:$em$2"), 7, ورقة8.Range("b1") 'kh_cFormula Range("شيت_الصف_الرابع!$eo$2:$ew$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$c$2:$ey$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$eg$2:$eg$2"), 7, ورقة8.Range("b1") kh_cFormula Range("شيت_الصف_الرابع!$ef$2:$ef$2"), 7, ورقة8.Range("b1") '============================================= kh_Err: kh_Application True If Err Then MsgBox "Err.Number : " & Err.Number Err.Clear ' Else: MsgBox " تم نسخ المعادلات بنجاح", vbMsgBoxRight, "الحمدلله" End If End Sub ' MyRng : الصف المخفي الذي يحوي المعادلات ملحوق باسم الورقة ' iRow : اول صف للبيانات ' Lastrow : آخر صف للبيانات Sub kh_cFormula(MyRng As Range, iRow As Integer, Lastrow As Long) Dim col As Range Dim R As Long '======================== For Each col In MyRng.Cells If col.HasFormula Then For R = iRow To Lastrow With MyRng.Worksheet .Cells(R, col.Column).FormulaR1C1 = col.FormulaR1C1 .Cells(R, col.Column).Value = .Cells(R, col.Column) End With Next R End If Next '======================== Set col = Nothing End Sub Sub kh_Application(ibol As Boolean) With Application .ScreenUpdating = ibol .Calculation = IIf(ibol, -4105, -4135) .EnableEvents = ibol End With End Sub جزاكم الله خيرا وبارك فيكم

=========================

هذا ملف خاص بخاصيه نقل صف الى صفوف بكل تنسيقاتها ومعادلاتها بالعدد بخاصيه AutoFill Destination نسخ بطريقه الاوتو فيل.rar

=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= خاصيه AutoFill Destination من الروائع

طريقه اخرى لنسخ صف معين بكل تنسيقاته ومعادلاته الى صفوف اخرى بالعدد المطلوب رائعه استخدام خاصيه ال Destination Sheets("ادخال بيانات اساسيه").Range("a7:v7").Select Selection.AutoFill Destination:=Range("a7:v" & ['بيانات المدرسة'!b10] + 6) Sheets("رصد الترم الأول").Select Range("a7:dd7").Select Selection.AutoFill Destination:=Range("a7:dd" & ['بيانات المدرسة'!b10] + 6) Sheets("انجاز فصل اول").Select Range("a7:z7").Select Selection.AutoFill Destination:=Range("a7:z" & ['بيانات المدرسة'!b10] + 6) Sheets("أعمال السنة").Select Range("a7:z7").Select Selection.AutoFill Destination:=Range("a7:z" & ['بيانات المدرسة'!b10] + 6) Sheets("الشيت الرئيسي").Select Range("a7:gg7").Select Selection.AutoFill Destination:=Range("a7:gg" & ['بيانات المدرسة'!b10] + 6) Sheets("كنترول شيت").Select Range("a11:gg11").Select Selection.AutoFill Destination:=Range("a11:gg" & ['بيانات المدرسة'!b10] + 10) Sheets("ادخال بيانات اساسيه").Select Range("A4").Select Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True رائعه استخدام خاصيه ال Destination