طارق محمود

السلام عليكم أخي العزيز/ عماراللهيبي بعد إذن أخونا العزيز الغالي / ياسر ============ في ملف "نموذج" الخطأ عندما استخدمت القطر في الحساب أن العلاقات الرياضية لها أولويات في التفيذ بمعني أنك حين تترك المعادلة بلا محددات يبدأ معالج الإكسل في معالجة الأقواس فلها الأولوية ثم الضرب والقسمة ثم الجمع والطرح ولنفهم ذلك أكثر ، خذ جزءا من المعادلة الخطأ بالخلية I9 ، مثلا '=ACOS((G9/2-E9)/G9/2) ستجد الإكسل يبدأ بحساب ماداخل القوس وهذا لاخلاف فيه بعد ذلك يقسم الناتج علي G9 ثم يقسم الناتج مرة أخري علي 2 قسمة ÷ قسمة أي ضرب وهنا يحدث الخطأ فإما أن تغير /2 إلي *2 وأنا لاأفضل ذلك وإما (وهذا الأصح) أن تستبدل كل G9/2 في المعادلة إلي (G9/2) أي بإضافة الأقواس حولها وستجد النتيجة صحيحة شكل المعادلة النهائي =(G9/2)*(G9/2)*(2*ACOS(((G9/2)-E9)/(G9/2))-SIN(2*ACOS(((G9/2)-E9)/(G9/2))))/2*C9

السلام عليكم أخي الكريم مرفق شرح وافي مدعم بالصور للكود الذي طلبته أرجو أن يكون واضح تفضل شرح الكود_mka1761975.rar

السلام عليكم معذرة ليس لدي وقت للمعادلات الآن الأسهل بالأكواد بالمرفق إن شاء الله يكون كل ماتريد ============= بالمناسبة يتم الرفع علي الموقع عن طريق 3 خطوات اضغط الملف باستخدام winrar أو winzip ثم إختر الملف المضغوط زرChoose File ثم إرفع الملف المضغوط زر رفع الملف ارشيف الاستلام2.rar

السلام عليكم أخي العزيز سواء يسر الله لي الحل أو لغيري أرجو أن توضح جيدا ماتريد أعد قراءة مشاركتك رقم 3 واحكم بنفسك ، لو أنك غريب عن الموضوع ، ماذا تفهم من السائل أو المكتوب في تلك المشاركة ؟؟؟؟

لرفع الملفات ، الموقع لايقبل صيغة الاكسل فقط اضغطها باستخدام winrar أو winzip ثم إرفع الملف المضغوط

السلام عليكم أرجو أن يكون هذا ماتريد إضغط الزر الأزرق علي اليسار بالورقة "invoice" 2015_2.rar

السلام عليكم تفضل المرفق إن شاء الله يكون هو ماتريد وقد أضفت لك أيضا عمود باللون الأحمر في ورقة "موقف تفصيلي" لاظهار آخر تاريخ تم ذكره للمحطة ارشيف الاستلام.rar

السلام عليكم أخي العزيز أولا معذرة علي التأخر في الرد ثانيا أريد بعض الاستفسارات تقول في الملف الكود الموجود علي الزر "BACKUP" في صفحة "invoice" يحفظ نسخة من تلك الورقة "invoice" في المجلد "D:\abdalwahd\" بنفس الإسم الموجود بالخلية E5 بالورقة وهو يقوم بنقل نسخة كاملة من الورقة ================= أرجو شرح طلبك بهذه الطريقة مثلا تغيير الكود علي الزر "كذا" بالورقة "كذا" ليفعل كذا وكذا

السلام عليكم أخي الفاضل /MAHMOUD ALSADEQ أنظر المرفق تستطيع أن تضع يدويا عدد أيام الحضور للثلاثة في الأعمدة الثلاثة الأولي وتضع قيمة العمولة الشهرية في العمود E وستجد العمولة تتقسم بالمعادلات في الأعمدة الزرقاء الثلاثة الأخيرة أيضا يمكنك زيادة عدد العمال كما تشاء بإدراج أعمدة بين س، ص أو بين ص، ع --->> فقط ستنسخ المعادلات تفضل المرفق هل هذا ماتريد Equal-Tips.rar

لا أدري أرسلت لك رسالة علي الخاص

نظام الاوفس عندي انجليزي لكن ممكن تتابع الخطوات الأربع من الصورة التالية

إذهب لضبط الملف واجعل الحساب أوتوماتيكيا File > options < ?? Calculation > Automatic

السلام عليكم أخي الكريم إذا لاحظت رد الأخ السائل بالمشاركة #8 تجد أن الملف يعمل عنده بلا مشاكل إذن راجع ضبط الويندوز والأوفيس خصوصا أن الاوفيس 2013

السلام عليكم عندك حق تم تعديل الكود كالتالي Function Mrk(a As Range) As Variant 'Next jn If a.Value >= 50 Or a.Value < 45 Then Mrk = a.Value: GoTo 10 njh = Cells(a.Row, 18): rsb = Cells(a.Row, 19) Dim sbj(9), rf(9), ord(9) For c = 2 To 9 sbj(c - 1) = Cells(a.Row, c) If sbj(c - 1) < 50 And sbj(c - 1) > 44 Then i = i + 1 'previous n_rf , i.e number of raf3 subj ord(i) = c rf(i) = 50 - sbj(c - 1) t_rf = t_rf + rf(i) End If Next c 'Re-Sorting For j = 1 To i - 1 For x = j + 1 To i If rf(j) > rf(x) Then k = rf(j): kc = ord(j) rf(j) = rf(x): ord(j) = ord(x) rf(x) = k: ord(x) = kc End If Next x Next j For j = 1 To i T = T + rf(j) If T > 5 Then T = T - rf(j): j = j - 1: GoTo 5 Next j 5 If rsb - j < 3 Then For x = 1 To j If a.Column = ord(x) Then Mrk = 50: GoTo 10 Next x End If Mrk = a.Value 10 End Function وهذا هو الملف بعد التعديل تغير شرط القرار4.rar

اخي العزيز هل استخدمت نفس الملف في المشاركة # 6 من الموضوع المشار اليه؟؟ إذا الاجابة نعم ، راجع ضبط الويندوز والأوفيس إذا الاجابة لا ، إرسل الملف تبعك

اخي العزيز هل استخدمت نفس الملف في المشاركة # 6 إذا الاجابة نعم ، راجع ضبط الويندوز والأوفيس إذا الاجابة لا ، إرسل الملف تبعك

جرب تضغط F9

السلام عليكم أخي العزيز شاهد الموضوع التالي مشابه جدا لهذا الموضوع فقط عليك تعديل الكود قليلا ليناسب حالتك http://www.officena.net/ib/index.php?showtopic=59212&hl=

جرب تقف علي الخلية التي بها الدالة Mrk واللي مفروض ترتفع الي 50 ثم اضغط F2 ثم إنتر أو جرب تضغط F9 لو اتعدلت بعد الضغط علي F9 يبقي تضبيط الملف في الجهاز الحسابات غير آلية وسهل علاجها

هذا الملف اللي انت أرسلته "تغير شرط القرار3.xlsm" يعمل عندي بلامشاكل لعل تحديث الشاشة عندك أو الحساب (Calculation) لايعمل أوتوماتيك مرفق صورة من شاشة الملف ، لم أفعل شيئا فقط فتحته

السلام عليكم أخي الحبيب / ابو القبطان جزاك الله خيرا مرورك شرف كبير أخي الكريم / Ultimate Power تفضل المرفق به كل ماطلبت لاحظ الآتي: في ورقة الموظف ستجد زر أصفر يرجعك للورقة DailyDatabase عند الضغط علي الزر الأحمر (Delete + Shift to Monthly) سيحذف البيانات بعد أن يرحلها للتقرير الشهري في ورقة (Main) ستجد زر (تحديث القائمة) لانشاء وتحديث قائمة ارتباط باسماء الموظفين New2_sample.rar

لم أفهم السؤال جيدا ولكن بالمرفق شرح كود الدالة المستحدثة تفضل شرح الدالة المستحدثة.rar

السلام عليكم أخي الفاضل تجد بالفيديو المرفق خطوات استعراض التنسيق الشرطي ستجد بالملف أصلا شرطين الأول =AND(E7<$B$1,C7<100%) إذا تحقق يكون التنسيق أن الفونط أحمر ومركز Bold وهذا الشرط تم استخدام الدالة AND فيه ويعني أي كلا من الشرطين داخل القوس يتحقق الشرطين داخل القوس هما E7<$B$1 و C7<100% أما التنسيق الشرطي الثاني فهو لتلوين سطر وسطر أوتوماتيكيا Cond_Format.rar

السلام عليكم مرفق الملف مع أول طلبين إستحداث صفحات الموظفين والترحيل إليها بالضغط علي زر Shift مع امكانية حذف البيانات بعد الترحيل بالضغط علي الزر الأحمر تفضل المرفق New_sample.rar

السلام عليكم بعد إذن أخي وحبيبي الفاضل / بن علية تفضل أخي المعاون الملف بالتنسيق الشرطي كما إقترح أخونا / بن علية AAAA2.rar