AbuuAhmed

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

البحث عن المدينة يعمل

هذا للأجل التعليم، فكرة باستخدام خاصية Tag للصناديق بكتابة حرف العمود لصفحة الإكسل وهي تقلل من أخطاء أرقام الأعمدة. فقط أحببت تقديم هذه الفكرة لا غير، والتكملة لكم. ملاحظة: أتمنى من يرفع ملف جديد بتغيير رقم الملف مثلما أنا أفعل بزيادة رقم مع كل مرة. كروت_04.xlsb

أخي أنا لم أكتب الأكواد، والطلب كان يخص البحث فقط، وما قمت به فقط تنظيم لإجراء البحث فقط. عموما الآن انتبهت أنك تريد البحث في العمود الثاني وليس الأول. بدل هذا السطر: SearchCol = IIf(IsNumeric(TextBox22), 1, 11) بهذا السطر: SearchCol = IIf(IsNumeric(TextBox22), 2, 11) وأعتذر عن المواصلة.

محاولة أخرى يمكنك الآن البحث في حقلي الرقم والمدينة. كروت_03.xlsb

محاولة ثانية مع أني غير متأكد من فهمي لمطلبك عادة أنا لا أحب المعادلات الطويلة وأستخدم أعمدة مخفية لتجهيز بعض القيم ولكن في ملفك لا أعرف مدى رغبتك فيها فلجأت إلى تجنبها. محاولتي عملتها في صفحة أخرى. ضبط اليوم مع التاريخ_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

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

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