ياسر خليل أبو البراء

اطرح طلبك الجديد في موضوع مستقل ليساعدك الأخوة الأعضاء تقبل تحياتي

الأخ الكريم أبو ياسر ارفق الملف للإطلاع عليه قم بضغط الملف ثم رفعه

لنفرض أن الرقم في الخلية A1 استخدم المعادلة التالية =IF(MOD(A1,1)=0.5,A1,TRUNC(A1))

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

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

الأخ الكريم الطاير إذا لم يكن يعجبك الحل بالتنسيق الشرطي (رغم أنه أفضل في هذه الحالة) إليك الحل بالأكواد عله ينال إعجابك Sub HighlightBetweenTwoDates() 'يقوم الكود بتظليل الخلايا طبقاً لتاريخين : تاريخ بداية وتاريخ نهاية '------------------------------------ Dim R As Range 'إعلان المتغير من النوع ثابت ليمثل بداية التاريخ المراد التعامل معه Const myDate As Date = #6/1/2015# 'بدء التعامل مع النطاق المستخدم بدايةً من الصف الخامس لنهاية الصفوف المستخدمة With Intersect(ActiveSheet.UsedRange, Rows("5:" & Rows.Count)) 'إزالة خلفية الألوان بدايةً من العمود السابع وحتى آخر عمود في النطاق المستخدم .Columns("G").Resize(, .Columns.Count).Interior.ColorIndex = xlNone 'حلقة تكرارية لكل خلية من خلايا العمود الخامس For Each R In .Columns("E").Cells 'إذا كانت الخلية داخل الحلقة التكرارية عبارة عن تاريخ وكذلك الخلية المجاورة لها في العمود السادس If (IsDate(R.Value)) * (IsDate(R(, 2).Value)) Then 'R(, DateDiff("D", myDate, R.Value) + 3) 'يمثل هذا الجزء بداية النطاق المراد تظليله ، ويتم حساب فرق الأيام بين تاريخ الخلية والتاريخ الثابت مضافاً إليه 3 ليبدأ من العمود السابع 'Resize(, DateDiff("D", R.Value, R(, 2).Value) + 1) 'يمثل هذا الجزء الامتداد لنقطة البداية بحساب فرق الأيام بين التاريخ في العمود السادس والتاريخ في العمود الخامس R(, DateDiff("D", myDate, R.Value) + 3).Resize(, DateDiff("D", R.Value, R(, 2).Value) + 1).Interior.ColorIndex = 14 Else 'سطر للخروج من الحلقة التكرارية Exit For End If 'الانتقال للخلية التالية في العمود الخامس Next End With End Sub تقبل تحياتي Highlight Vacation Periods.rar

بارك الله فيك أخي الفاضل نضال وجزاك الله كل خير

الأخ الفاضل الطاير إليك حل الأستاذ الكبير سليم مع حذف التنسيق الشرطي الغير مطلوب .. ولن يكون هناك إرهاق في حالة زيادة عدد الموظفين ..فقط ستغير نطاق Applies to في التنسيق الشرطي طبق على الملف الأصلي وشوف النتائج Highlight Vacation Periods.rar

الأخ الفاضل أبو حازم إليك الملف التالي عله يفي بالغرض ويرجى فيما بعد توضيح المطلوب في المشاركة نفسها مع التوضيح داخل الملف (زيادة الخير خيرين) Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("H3:H134")) Is Nothing Then If IsEmpty(Target.Offset(, -6)) Then Exit Sub Else Sheet2.Range("B1").Value = Target.Offset(, -6).Value Sheet2.Activate End If Cancel = True End If End Sub تقبل تحياتي New Statement.rar

روعة أخي الغالي الزباري هو دا الشغل ولا بلاش .. صحي الناس النايمة ربنا يبارك فيك ويجعله في ميزان حسناتك

ذكرت لك أخي الكريم سامي يعني البارامتر دا ليس له أهمية كبيرة .. فقط يفيد عند سحب المعادلة ، غعندما تكون الخلايا نسبية ويتم سحب المعادلة يتغير المرجع الخاص بالخلايا مع السحب .. ولكن أفضل أن تراجع كل معادلة حتى تتأكد من صحة البيانات التي يتم جلبها

أخي الفاضل يرجى تغيير اسم الظهور للغة الزهور (لغتنا العربية) إليك الملف التالي . وضعت لك معادلة في الخلية C9 وعليك تجربة المعادلة في باقي الخلايا بنفسك حاول ألا تلتفت إلى البارامتر الخاص بالخلايا النسبية والمطلقة ، فهو اختياري ويمكن التغاضي عنه ... هو المفترض أن يكون رقم 4 حتى تكون الخلايا نسبية أي متغيرة عند سحب المعادلة !! الملف.rar

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

أخي الفاضل يرجى تغيير اسم الظهور للغة العربية في حالة عدم استجابة الأعضاء للموضوع فتأكد أن الموضوع مبهم وغير مفهوم وأن رفع الموضوع لن يجدي نفعاً طالما أن الموضوع غير مفهوم .. يرجى توضيح طلبك بأسلوب آخر والتوضيح يكون بالمشاركة ويكون أيضاً بالملف المرفق لتأكيد الفكرة تقبل تحياتي

ارفق الملف الذي تريد العمل عليه ، ويرجى الصبر بين كل مشاركة وأخرى حتى يتسنى للأعضاء الرد على مشاركة مشاركة كما يرجى تغيير اسم الظهور للغة العربية يا مستر سامي تقبل تحياتي

وعليكم السلام ورحمة الله وبركاته أخي في الله ياسين .. يا سيد الحلوين الحمد لله أن تم المطلوب على خير ، وجزيت خيراً على دعائك الطيب ، ولك بمثل إن شاء الله ومشكور على تحديد أفضل إجابة ليظهر الموضوع مجاب :wink2: تقبل ودي واحترامي وتحياتي

كدا مظبوط .. الـ 4 تمثل الخيار الرابع اللي شرحناه من شوية ..

البارامتر التالت لدالة العنوان (لجعل عنوان الخلية نسبي وليس مطلق ..وعشان منطولش معناها إن الخلية تكون من غير علامات الدولار ..) لما جبنا رقم الصف طلع 7 ورقم العمود طلع 4 معني كدا إن الخلية اللي عليها العين والنن هي D7 .. البارامتر اللي إحنا بنشرحه هيخليها D7 من غير علامات الدولار بشكل تفصيلي >>> فيه 4 اختيارات : الاختيار الأول الرقم 1 ودا بيخلي الخلية مطلقة (ثابتة) يعني يسبق اسم العمود ورقم الصف علامة الدولار لتكون بهذا الشكل $E$6 على سبيل المثال الاختيار الثاني الرقم 2 ودا بيخلي رقم الصف ثابت والعمود متغير ليصبح بهذا الشكل E$6 الاختيار الثالث الرقم 3 ودا بيعكس اللي فات بيخلي العمود ثابت والصف متغير ليصبح بهذا الشكل $E6 الاختيار الرابع الرقم 4 ودا بيخلي الخلية نسبية أغير متغيرة للعمود والصف لتصبح بهذا الشكل E6

أخي الفاضل ياسين أبو وسام كان من المفترض طبقاً للتوجيهات إرفاق الملف الخاص بالكود عموماً أنا كنت قد جهزت الملف بالفعل ، وفي انتظار موضوعك الجديد (اعذرني للتقيد بالتوجيهات) إليك الكود بعد تعديلات جوهرية فيه ليتناسب مع طلبك الجديد Sub TransferData() Dim WS As Worksheet, SH As Worksheet Dim X As Long, I As Long, Arr Set WS = Sheets("ترحيل"): Set SH = Sheets("MP LIST") X = SH.Cells(Rows.Count, 2).End(3).Row + 1 Application.ScreenUpdating = False If Not SH.Range("B:B").Find(WS.Range("G9"), , , xlWhole, , False) Is Nothing Then MsgBox "تم إدراج رقم الموظف من قبل", vbInformation: Exit Sub Else Arr = Array("G9", "G10", "G11", "G14", "G15", "G16", "G17", "G18", "G19", "G20", "G22", "G24", "G25", "G26", "G27", "G28", _ "I28", "G30", "", "", "", "G32", "", "", "", "G13", "I13", "G44", "H44", "I44", "G47", "H47", "I47", "", "G34", _ "G35", "G36", "G37", "G38", "G39", "G40", "J41", "G49") For I = LBound(Arr) To UBound(Arr) If Arr(I) <> "" Then Arr(I) = WS.Range(Arr(I)).Value If IsEmpty(Arr(I)) Then MsgBox "البيانات غير كاملة يرجى إكمال كافة الحقول": Exit Sub Next I With SH .Cells(X, 1) = .Cells(X, 1).Row - 2 .Cells(X, 2).Resize(, UBound(Arr) + 1) = Arr End With 'WS.Range("G9:J11,G13:H13,I13:J13,G14:J20,G22:J22,G24:J27,G28:J28,G30:J30,G32:J32,G34:J40,G44:J44,G47:J47,G49:J49").ClearContents MsgBox "تم الترحيل بنجاح", vbInformation End If Application.ScreenUpdating = True End Sub أرجو أن يكون المطلوب بالنسبة لهذا السطر 'WS.Range("G9:J11,G13:H13,I13:J13,G14:J20,G22:J22,G24:J27,G28:J28,G30:J30,G32:J32,G34:J40,G44:J44,G47:J47,G49:J49").ClearContents خاص بمسح البيانات بعد الترحيل ..تم وضع تعليق لإلغاء تنفيذه لتجربة الكود قم بتغيير رقم الموظف لتجربة الكود .. تقبل تحياتي Transfer Data Using Arrays YasserKhalil.rar

خليها بالشكل ده (بس دا مجرد مثال على رقم العمود 7) =IF(OR($M$3<MIN(رقم_الجلوس);$M$3>MAX(رقم_الجلوس));"";INDIRECT(ADDRESS(MATCH($M$3;رقم_الجلوس;0)+10;7;3;;$X$1)))

أخي الفاضل يمكن الاستغناء عن هذا الجزء COLUMN() مش لازم نستخدم الدالة دي طالما إنها مسببة مشكلة بالنسبة لكم يمكن كتابة رقم العمود الموجود في البيانات الأساسية بشكل مباشر يعني لو كانت البيانات موجودة في العمود رقم 7 يبقا تكتب في المعادلة 7 بشكل مباشر ..

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

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

الأخت الفاضلة رشا يوسف جرب المعادلة التالية في الملف التالي وأعلمينا بالنتائج ... =IFERROR(IF(B4="ادارى",LOOKUP(C4,{300;310;320;330;340;350;360;370;380;390;400;410;420;430;440;450;460;470;480;490;500;510;520;530;540;550;560;570;580;590;600;610;620;630;640;650;660;670;680;690;700;710;720;730;740;750;760;770;780;790;800;810;820;830;840;850;860;870;880;890;900;910;920;930;940;950;960;970;980;990;1000;1010;1020;1030;1040},{0;0;0;0;0;0;1;1.25;1.5;1.75;2;2.25;2.5;2.75;3;3.25;3.5;3.75;4;4.25;4.5;4.75;5;5.25;5.5;5.75;6;6.25;6.5;6.75;7;7.25;7.5;7.75;8;8.25;8.5;8.75;9;9.25;9.5;9.75;10;10.25;10.5;10.75;11;11.25;11.5;11.75;12;12.25;12.5;12.75;13;13.25;13.5;13.75;14;14.25;14.5;14.75;15;15.25;15.5;15.75;16;16.25;16.5;16.75;17;17.25;17.5;17.75;18}),IF(B4="مدرس",LOOKUP(C4,{300;310;320;330;340;350;360;370;380;390;400;410;420;430;440;450;460;470;480;490;500;510;520;530;540;550;560;570;580;590;600;610;620;630;640;650;660;670;680;690;700;710;720;730;740;750;760;770;780;790;800;810;820;830;840;850;860;870;880;890;900;910;920;930;940;950;960;970;980;990;1000;1010;1020;1030;1040},{5;5.25;5.5;5.75;6;6.25;6.5;6.75;7;7.25;7.5;7.75;8;8.25;8.5;8.75;9;9.25;9.5;9.75;10;10.25;10.5;10.75;11;11.25;11.5;11.75;12;12.25;12.5;12.75;13;13.25;13.5;13.75;14;14.25;14.5;14.75;15;15.25;15.5;15.75;16;16.25;16.5;16.75;17;17.25;17.5;17.75;18;18.25;18.5;18.75;19;19.25;19.5;19.75;20;20.25;20.5;20.75;21;21.25;21.5;21.75;22;22.25;22.5;22.75;23;23.25;23.5}))),"") توضع المعادلة في الخلية C4 شرائح الضريبة.rar

طالما أنك وجدت الحل أخي عبد الله فلتقم بإفادة الأعضاء به .. هذا الفورم لا يعمل معي من الأساس يعطيني خطأ في سطر ما من الكود !.. هل الفورم يحتاج لإضافة مكتبات محددة ؟؟