AbuuAhmed

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

لو كان فهمي صحيحا، ضع هذا المعادلة في الخالية B2: =D2-MOD(WEEKDAY(D2),7)

جيدة، أوافق.

ما كان المطلوب واضح عندي بشكل كامل. النسب_02.xlsx

تم تبديل المرفق بعد تصحيح بعض الأخطاء في دالتي. وتم إضافة سطر تصحيح في دالة الفقيط الأصل. TextToNum_02.xlsb

جرب وزد في الفحص الدالة مبنية على نتائج دالة NoToTxt لذلك أي تعديل فيها سوف يعطل عمل الدالة العكسية.

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

موضوعك بسيط لا يحتاج إلى أكواد لكنه لم يكن واضح لي بشكل كامل وخصوصا باستخدامك مسلسل من 1 إلى 9 والتي توقعتها مضاعافات الساعة. توقيت البداية_03.xlsx

حسب ما فهمته: توقيت البداية_02.xlsx

آخر تحديث الأستاذ @Foksh تم التعديل على أحد السطور حتى لا ترجع لي بطلب جديد. الأكواد في الملف. أرجو حذف المرفقات السابقة، (ملفات الإكسل فقط مع الإبقاء على المشاركات والصور). أرجو قفل هذا الموضوع. CustomCeiling_03.xlsm

الحمد لله وفرت علي الكثير وصدق حدسي وصدقت كل ردودي عنكم. صورة مع التحية لـ @محمد طاهر عرفه

أطلب من الأستاذ @محمد طاهر عرفه زيارة موضوع "دوال التقريب" فقد يساعده في الدراسة قبل اتخاذ القرار النهائي.

انتقادي لكم كفريق لامسك، فلذلك تركت أصل الموضوع وتفرغت لأبي أحمد، لو كانت التسمية من التسميات المقتراحة في هذا الموضوع لما "اعترضت" أو قدمت رأيي، وصفين/تسميتين أصر على دراستها "أفضل إجابة" و "إجابة صحيحة" وأطالب بتغييرها فضلا وليس أمرا. أنا قدمت للمشاركين مقارنة علمية ضمن ملف إكسل وصورة، والنتائج واضحة لكل من زار الموضوع إلا لمن لا يريد أن يتعلم أو يفهم!! أنا أعرف سلوككم جيدا وكنت متوقع هذه النتيجة، لا عجب.

أفهم من كلامك أنك تستصغرني أو تستنقصني؟!! وأي قوانين التي طالبت فيها أنا بتغييرها! ولماذا أفتح موضوعا جديدا لأناقش فيه "نظرة رياضياتية" ولماذا لا أشارك في الموضوع الأساس؟!! هل فعلا كلامي غير مفهوم؟ أنا مع أهمية الخاصية ومع حق السائل في يناسبه وملاحظتي وغيري كذلك على التسمية. ياريت المراقبين يتركون المجاملات البينية ويركزون في موضوع التسمية. على فكرة أنا كنت من المفترض أن أكون ضمن فريقكم ولكني رفضت عرض أحدكم بسبب خاص. يعني لو كنت ضمن الفريق أعتقد لن تتجرأ أن تتحدث عني بهذه الطريقة.

للأسف المشكلة ليست في أهمية هذه الخاصية أو عدم أهميتها، وهذه ليست أول مرة أناقش معكم هذا الموضوع!! نحن نعي جيدا فائدتها ولكن مشكلتنا في إساءة استعمالها مع وجود وصف قد يلبس على الأعضاء بأن هذه أفضل إجابة مع وجود الأفضل وقد تكون إجابة خاطئة بالأساس فضلا أن تكون الأفضل ولكن قدرة السائل على التقييم والتمييز قاصرة فهو سائل ويحتاج إلى مساعدة الخبراء فكيف به يقيم عمل الخبراء؟!! أنا لا أريد أن أعطي المراقبين والمشرفين فرصة لممارسة "صلاحياتهم" ضدي، وأكثركم يعلم أني هجرت منتدى الأكسس لمهاجمة أحد المراقبين لي وأنا لا أريد أن أكرر ما حدث. وللأسف هناك حلول غير علمية يقدمها غير السائلين ومناقشة حلولهم تسبب لهم حرج كبير وهذا ملخص بعض سلوكهم الحاد تجاهي. كما أن مسمى مراقب أو مشرف لا يعني أنه أفضل من الآخرين ويستطيعون تقديم الحلول الأفضل، أتمنى من المشرفين أو المراقبين عندما يرون إجابة خاطئة التدخل ولو بتقديم رأيهم العلمي للآخرين ولكن أكثرهم يلتزم الصمت وكثيرة هي الأخطاء التي تمرر للأعضاء. وتقديم رأيهم ليس لثني السائل عن خياره. لا أعرف لماذا تبديل مسمى/"تسمية" يشكل لكم مشكلة وعبئا!!

تم استبدال دالة @Foksh وتم إضافة دالة جديدة لـ @AbuuAhmed تم تلوين النتائج الخاطئة بالأصفر. CustomCeiling_02.xlsm

Chosen Selected أختيرت تم اختيارها

دالة أخيرة في حال أن السائل لا يريد جبر النصف إلى واحد، وهي تعتمد على دالة الإكسل: Function vbCEILING(ByVal Arg1 As Double, ByVal Arg2 As Double) As Double 'AbuuAhmed Arg2 = Abs(Arg2) * Sgn(Arg1) 'اختياري vbCEILING = WorksheetFunction.Ceiling(Arg1, Arg2) End Function

اختارها السائل ناسبت السائل استحسنها السائل راقت للسائل أو اقتراح أبو خليل اعتمدها السائل

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

أشكركم أستاد @Foksh على اهتمامكم، حاول تعدل على ملف الإكسل بإزالة دالتك القديم واستبدالها بالحديثة واطلعنا على المقارنة. أنا عملت دالة vba أخرى باستخدام دوال الإكسل ولو كنت أعرف عنها قبل دوالي الأربع للأكسس لما أجهدت نفسي في تصميمها.

يا لحساسية هذه المواضيع والتي أحاول أن أتجنب الظهور فيها، قبل أن أشارك راسلت السائل وقدمت له دالتي وسمحت له بنشرها دون ذكر اسمي، ولكن في الأخير حسمت قراري بالمشاركة. أكثر الأخطاء حصلت بسببين: الأول: أن أكثركم ذهب لمعالجة الكسر إذا كان أصغر من نصف أو (أكبر أو يساوي نصف) ولكن غفل عن الكسر إذا كان صفرا والذي لا يحتاج إلى معالجة. الآخر: عدم اختبار دوالكم مع الأرقام السالبة، وهذه تحتاج إلى مزيد من العناية والحرص ومعرفة تامة بالتعامل مع دالتي int و fix أو trunc في لغات أخرى. عموما مهما تعملق المبرمج فلن ينجح دائما من صنع دوال الأرقام والتاريخ من أول محاولة وبدون تجارب ومقارنات عدة. لا تغلقون الموضوع قبل إزالة أفضل إجابة واتركوها للمختصين في الرياضيات والهندسة والمحاسبة.

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

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

كنت أبحث عن موضوع سابق لي لعمل بعض الدوال شبيهة للإكسل ووجدتها بعد وقت طويل. استخدمت أحد الملفات وزدت عليه دالتك، أرجو الاطلاع. CeilingFunction4Access_04.xlsm