سليم حاصبيا

هل يمكن ان يكون هذا ما تقصده (مثال) exemple.rar

تم معالجة الامر طباعة محددة salim advanced_majmou3 b.rar

لا اعلم السبب لكن عندي بغمل الكود بامتياز جرب اضافة هذا السطر على الكود (مباشرة بعد السطر الخامس) ليصبح هو السادس Sheets("البيانات").Range("b2:e" & lr).Value = Sheets("البيانات").Range("b2:e" & lr).Value طباعة محددة salim advanced_majmou3 A.rar

اسمجوا لي بهذه الاضافة حيث اذا قمت بزيادة او حذق صفوف لا يتأثر الترقيم =IF(B2<>"",MAX($A$1:A1)+1,"") توضع المعادلة ابتداءً من الخلية A2

تم معالجة الامر بالنسبة لاسم الشيت ما الفرق في ذلك (يمكنك مسح شيت الطباعة و التعامل مع شيت test) صراحة انا لا احب التعامل مع اللغة العربية بالنسبة للأكواد نظراً لمشاكلها المعقدة طباعة محددة salim advanced_majmou3.rar

تم معالجة الامر ,ذلك باضافة صفحة مساعدة test طباعة محددة salim advanced.rar

انسخ هذه المعادلة الى الخلية C5 واسجب نزولاً =IF(OR($B5="",$A5=""),"",$B5+$A5)

لمزيد من التوضيح هذا الملف شكراً اخي محمد غلى هذه المعادلة الرائعة في مشاركتي الاولى تم عرض معادلة شاملةأخرى (اذا لاجظت ذلك)

لمزيد من التوضيح هذا الملف y salim.rar

جرب هذا الماكرو Sub Hide_Show() If Range("A1").Value = 4 Then Range("C1:E1").EntireColumn.Hidden = Not (Range("C1:E1").EntireColumn.Hidden) End If End Sub

جرب هذا الملف (تم حماية المعادلات لعدم العبث بها عن طريق الخطأ) احسب يدوياً بغض النتائج لنغرف اين الخطأ من المثال الثالي manuel_copmt.rar

جرب هذا الملف (تم حماية المعادلات لعدم العبث بها عن طريق الخطأ) Book1.rar

جرب هذا الماكرو على اساس ان البيانات تبدأ من الخلية A1 وحتى العامود D Sub InsertRowsAfter() Dim rg, MyCell, First_rg As Range Dim lr, x As Integer lr = Cells(Rows.count, 1).End(3).Row Set rg = Range("a1:a" & lr) Set First_rg = Range("a1:d1") For i = 2 To lr * 2 If Cells(i, 1).Value <> "" Then Cells(i, 1).Offset(1, 0).EntireRow.Insert End If Next x = Cells(Rows.count, 1).End(3).Row For i = 2 To x If IsEmpty(Cells(i, 1)) Then Range(Cells(i, 1), Cells(i, 4)).Value = First_rg.Value End If Next Cells(x + 2, 2) = "المجموع" t = "=SUM(D2:D" & x & ")" Cells(x + 2, 4) = Evaluate(t) End Sub

ما المعنى اذن من وجود r في الجدول الثاني

جرب هذا الماكرو Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns(4)) Is Nothing And IsNumeric(Target) _ And Target.Row > 1 Then Application.EnableEvents = False: Application.ScreenUpdating = False With Columns("d").Validation .Delete .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=and(isnumber($d1),len($d1)=10)" End With End If Application.EnableEvents = True: Application.ScreenUpdating = True End Sub تفضل الكود مرفق مع الملف الكود لا يسمح بادخال اية قيمة في العامود D الا اذا كانت رقماً مؤلفاً من 10 خانات CAI-KRT 3-2016 macro.rar

جرب هذا الماكرو Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns(4)) Is Nothing And IsNumeric(Target) _ And Target.Row > 1 Then Application.EnableEvents = False: Application.ScreenUpdating = False With Columns("d").Validation .Delete .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=and(isnumber($d1),len($d1)=10)" End With End If Application.EnableEvents = True: Application.ScreenUpdating = True End Sub

يمكن ان يكون المطلوب طباعة محددة salim.rar

لقد وضغت لك المعادلة المطلوبة في اول حالة اللون الاصفر غليك بتكملة المعادلات فبي بقية الحالات بالنسبة لـ 2003 يمكن استعمال هذه المعادلة (تصلح ايضاً لـ 2010 و غيرهما) دالة Countifs موجودة غي 2007 و ما بعد =SUMPRODUCT(--($C$3:$C$147<=100),--($C$3:$C$147>90),--($A$3:$A$147="1/1"))

لقد وضغت لك المعادلة المطلوبة في اول حالة اللون الاصفر غليك بتكملة المعادلات فبي بقية الحالات معادلة احصاء salim.rar

اكتب في B3 هذه المعادلة: (تنسيق الخلية كتاريخ) (ازالة الخلايا المدمجة من الغامود D) =LOOKUP(2,1/(Sheet1!D:D<>""),Sheet1!D:D) و في C3 هذه الاخرى =LOOKUP(2,1/(Sheet1!F:F<>""),Sheet1!F:F)

تم معالجة الامر Ramadan 1.rar

جرب هذا الملف Ramadan.rar

جرب هذا الملف القائمة المنسدلة مطاطة(تستجيب لاي نعديل في البيانات ولا تذكر المكرر الا مرة واحدة و تتجاهل الفراغات) لائحة متناقصة salim.rar

جرب هذا الماكرو (يوضع في حدث الصفحة Sheet1) Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Columns(5)) Is Nothing _ And Target.Count = 1 And Target.Row > 8 Then my_hour = Evaluate("=hour(now())") m = Target.Value Select Case my_hour Case Is < 12 Myval = "AM" & Format(Date, "yyyymmdd") Case Else Myval = "PM" & Format(Date, "yyyymmdd") End Select Target.Value = Myval & "" & m End If Application.EnableEvents = True End Sub

جرب هذا الملف ارقام فريدة salim.rar