سليم حاصبيا

اخي وائل الدالة celling تقوم بالتقريب دائماً نحو الحد الاقصى مثلاُ 2*20.1=40.2 و هنا هذه الدالة تغطينا 50 و المطلوب 40 للتقريب الى اسفل هناك دالة اسمها floor

لو فرضنا ان الاعداد في العامود A ابتداءمن A1 انسخ هذه المعادلة الى الخلية B1 , واسحب نزولاً =IF(A1="","",MROUND(A1,10))

انسخ هذه المعادلة الى الخلية D4 ,واسحب نزولاً =IF($B4="","",IF($C4="a",$B4,0))

ماذا تقول عن الصفوف من 5 الى 11

الحمد لله .....كل شيء بعونه تغالى ولكن هناك شي لم تكتشفه بهد جرب ان تدخل في خانة النصاب رقماً اكبر من النصاب القانوني لكل معلم و انطر ماذا يجري و أخيراً اين الاعجاب؟

ربما كان هذا المطلوب Price and Qty.rar

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

بعد اذن اخي ياسر جرب هذا الملف ورقة للماليين salim.rar

هناك طريقة ثانية بدون الشيت المساعد انظر الى الملف الزر : Print2 Test_Print_Areas 2 way.rar

جرب هذا الملف عندك خلايا مدمجة في الاعمدة (X / AB)جيث من الصعب اجراء المعادلات عليها لذا قدر الامكان الغ الدمج و اسحب المعادلات الترحيل1 salim.rar

اكتب هذه المعادلى اينما تريد ثم اسحب نزولاً =ROWS($A$1:A1)

اليك المطوب الصفحة( Salim) Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 16 And Target.Row > 1 And Target.Count = 1 _ And Target.Offset(0, -1) = "" Then Target.Offset(0, -1).Select End Sub Message 1.rar

هناك طريقة افضل لهذا العمل وهي ان لا تسمح للمستحدم تحديد اي خلية في العامود p اذا كانت تقابلها خلية فارغة في العامود O

استبدل الكود بهذا Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 16 And Target.Row > 1 And Target.Count = 1 _ And Target.Offset(0, -1) = "" Then Application.EnableEvents = False MsgBox Target.Offset(0, -1).Address & " " & "لقد نسيت الكتابة في الخلية " Target.Offset(0, -1).Select Target.Value = "" End If Application.EnableEvents = True End Sub هناك طريقة افضل لهذا العمل وهي ان لا تسمح للمستحدم تحديد اي خلية في العامود p اذا كانت تقابلها خلية فارغة في العامود O

التطاقات بعيدة جداً عن بعضها لذلك لا مجال لوصغها في ورقة واحدة ثم طباعتها و ما الفرق اذا كانت الورقة الجديدة تحذف مباشرة بعد انتهاء دورها

بمكن ان يكون المطلوب Message.rar

يمكنك اخذ فكرة من الملف التالي(تم الاستعاتة بورقة اضافية يستعملها اكسل للطباعة ثم يمحيها بعد ذلك) Test_Print_Areas.rar

ممكن ذلك لكن هذا الشيئ سوف يتطلب اكثر من ورقة(أو اذا ورقة واحدة يكون الخط صغيراً)

يجب ان تعطي امر الطباعة بواسطة (Ctrl+P) ثم Enter او اذا اردت ذلك من خلال الماكرو اضف هذا السطر في نهاية الكود مباشرة فبل عبارة end sub ActiveSheet.PrintOut

جرب هذا الكود Sub set_pr_Area() With ActiveSheet .Rows("21:28").EntireRow.Hidden = True .PageSetup.PrintArea = "" .PageSetup.PrintArea = "$A$8:$H$20,$A$30:$H$34" With .PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With End With ActiveSheet.PageSetup.PrintArea = "$A$8:$H$34" End Sub

انسخ نفس المعادلة الى الشيت الثاني واستبدل sheet!2 بــ Sheet!1

مغك كل لحق من هذه الناحية لكن ما رأيك ان نقوم بذلك بواسطة المعادلات(غلى صفحتين فقط) انظر الى الصفحة 4 من المرفق tarhil_from_multi_sheets 1.rar

بهد اذن اخي ياسر جرب هذا الملف بواسطة هذا الكود Sub tarhil_unique_items() Dim Sh1, Sh2, Sh3 As Worksheet Dim lr1, lr2, lr3, k As Integer k = 1 Set Sh1 = Sheets("sheet1"): Set Sh2 = Sheets("sheet2"): Set Sh3 = Sheets("sheet3") lr1 = Sh1.Cells(Rows.Count, 1).End(3).Row lr2 = Sh2.Cells(Rows.Count, 1).End(3).Row lr3 = Sh3.Cells(Rows.Count, 1).End(3).Row + 1 Sh3.Range("a1:a" & lr3).ClearContents For i = 1 To lr1 x = Application.WorksheetFunction.CountIf(Sh1.Range("a1:a" & i), Sh1.Cells(i, 1)) If x = 1 Then Sh3.Cells(k, 1) = Sh1.Cells(i, 1): k = k + 1 End If Next For i = 1 To lr2 y = Application.WorksheetFunction.CountIf(Sh3.Range("a1:a" & 100), Sh2.Cells(i, 1)) If y = 0 Then Sh3.Cells(k, 1) = Sh2.Cells(i, 1): k = k + 1 End If Next End Sub tarhil_from_multi_sheets.rar

1-حدد اي خلية من العامود A الصفحة الاولى 2- مغ الاستمرار بالضغط Alt اضغط جرفي O & D ( حرف ال O اولاً) 3-تظهر لك نافذة اختر منها Edite rule تظهر لك الاعدادات

طبعاً يمكن ذلك (فقط بدّل الاعدادات)