عبدالله المجرب

الاستاذ ياسر الحافظ (حفظ الله شعب سوريا من كل مكروه) افعل ما تراه مناسباً الاخ الفاضل الشهابي لا شكر على واجب ابواحمد

ماهذا الاستاذ الفاضل جمال كرم ما بعده كرم من استاذ كريم في شهر كريم سلمت لنا اخاً عزيزاً علينا وعسى الله لا يحرمنا طلتك البهية في بيتنا العزيز أوفيسنا ابواحمد

الاستاذ الفاضل احمد (هنكوك) الظاهر انا الذي حضرت متاخر وليس ابو الحارث لاجد هذا الكم من عمالقة المنتدى يشيدون بالاصدار الثالث ويقبلون الهدية. سلمت يمينك وهدية مقبولة وكل عام وانت بخير ابواحمد

اخي الفاضل (الشهابي) هذا الكود لعمل معاينة فقط مع تكرار الصف الاول في جميع الصفحات Sub Preview() With ActiveSheet.PageSetup .PrintTitleRows = "$1:$1" End With ActiveWindow.SelectedSheets.PrintPreview End Sub وهذا الكود لتحديد النطاق ($A$4:$H$100") ثم معاينة هذا النطاق مع تكرار الصف الاول في جميع الصفحات Sub Preview1() With ActiveSheet.PageSetup .PrintTitleRows = "$1:$1" End With ActiveSheet.PageSetup.PrintArea = "$A$4:$H$100" ActiveWindow.SelectedSheets.PrintPreview End Sub

الاساتذة الكرام ياسر الحافظ كيماس محمود علاء nart lebzo احمد فضيلة (هنكوك) مروركم شرف كبير لي ودعمكم وتشجيعكم يحملني مسئولية اكبر شكراً لكم ابواحمد

السلام عليكم ورحمة الله وبركاته اوجه الشكر الجزيل للمهندس محمد طاهر مدير الموقع على ثقته فيني واسال الله العظيم ان ييسر لي الامور واكون عن حسن ظن الجميع ابواحمد

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

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

السلام عليكم ورحمة الله و بركاته الاخ الحبيب الغالي الاستاذ / ياسر الحافظ" ابو الحارث " جزاك الله كل خير احسنت يا ابا الحارث و السلام عليكم ورحمة الله و بركاته

اخي الفاضل تفضل المرفق يمكنك اختيار الصف والعمود ليتم التجميد ابواحمد تجميد و تقسيم الشاشة.zip

الاستاذ يحيى شكراً للتنبيه ابواحمد

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

اخي ابو الحارث شكراً على الفاظك الرائعة المشجعة لا داعي للاستاذان في عمل الخير استاذنا واخونا جمال الله ينور عليك دنياك وشكراً لمرورك بارك الله لنا ولك ابواحمد

الدالة int حسب معرفتي هي دالة بمدخل واحد فقط وتستخدم لارجاع الرقم الصحيح بدون تقريب وبدون فواصل مثل 4.95 مع الدالة يصبح الناتج 4 ويمكن استبدالها بالدالة TRUNC والتي لها نفس العمل في حال كان البارومتر الثاني 0 ويمكنك تجربة الدالة =TRUNC((F3*12*30+E3*30+D3)/2;0)-I3*30*12-H3*30 في الخانة G3 وستلاحظ ان النتيجة واحدة والله اعلم

اخي شمس صوماً مقبولاً وإفطاراً هنيئاً تفضل المرفق كود التنقل.rar

الاستاذ جمال حل مميز وطريقة مبدعة جمعة مباركة ابواحمد

اخي القومي تم اضافة هذه الجزئية للكود If C.Value = "" Then V.Delete End If ليصبح الكود كالتالي Sub Circles1() Dim C As Range Dim MyRng As Range, V As Shape Dim X As Integer, G As Integer, R As Integer, D As Integer '================================================ G = 1 ' ÚãæÏ ÑÞã ÇáÌáæÓ R = 6 ' ÕÝ ÇáÏÑÌÇÊ Set MyRng = Range("i7:i30,m7:m30,q7:q30,u7:u30,y7:y30,ac7:ac30,ad7:ad30,ah7:ah30") ' äØÇÞ ÇáÎáÇíÇ ÇáÐí ÊÑíÏ ÇÖÇÝÉ ÇáÏæÇÆÑ ÝíåÇ '================================================ X = ActiveWindow.Zoom Application.ScreenUpdating = False ActiveWindow.Zoom = 100 For Each C In MyRng If Cells(C.Row, G) = 0 Then GoTo 1 If IsNumeric(Cells(R, C.Column)) And Not IsEmpty(Cells(R, C.Column)) And (C.Value < Cells(R, C.Column) Or C.Value = "Û" Or C.Value = "ÛÜ") Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left + 1, C.Top + 1, C.Width - 2, C.Height - 2) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 3 V.Line.Weight = 3 D = D + 1 If C.Value = "" Then V.Delete K = K + 1 End If End If 1 Next ActiveWindow.Zoom = X Application.ScreenUpdating = True MsgBox "Êã ÅÖÇÝÉ " & D - K & " ÏÇÆÑÉ ÈäÌÇÍ", vbMsgBoxRtlReading, "ããÏæÍ ãÍÈ" End Sub شيت منازل.rar

اخي ابو الحارث لن اجد كلام ابلغ من كلام الاستاذ نارت والسلام عليكم ورحمة الله وبركاته

الاستاذ معتصم محمد كودر رائع وشرح اروع كل سنة وانت طيب تقبل مروري ابواحمد

اخي الفاضل اولاً تم اضافة دالة حساب عدد ايام الاجازة خلال الشهر المطلوب (بفرض انه الجمعة والسبت) ثانياً اصبح حساب الخلايا الغير ملونة لا يعتمد على الرقم 31 الذي وضعته انت في المعادلة بل يعتمد على عدد ايام الشهر المطلوب ثالثاً يجب ان تنتبه اثناء ادخالك لايام الغياب الى تواريخ الجمعة والسبت حتى يصبح الحساب صحيح رابعاً تم اضافة شيت جديد لحساب عدد ايام الغياب والله اعلم ابواحمد الغياب.rar

اخي شمس جرب الملف المرفق فيه تعديل طفيف على معادلة الاستاذ يحيى الايتام.rar

اخي d911 بعد اذن الاستاذ يحيى تفضل المرفق فيه ما طلبت بإذن الله والف شكر للاستاذ يحيى على معادلة التنسيق الشرطي الجميلة ابواحمد الغياب.rar

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

اولاً نوجه الشكر الجزيل للاستاذ دغيدي على سرعة الاستجابة والحل المميز اخي شمس ضع الارقام في العمودين C و D ثم قم بوضع الشرط الخاض بكل عمود في التحقق من الصحة ثم اضغط الزر ولاحظ النتيجة والله اعلم

الاستاذ جمال دغيدي عمل مميز وجهد واضح تشكر عليه كل سنة وانت طيب اخيك في الله عبدالله المجرب