محمد حسن المحمد

ولكم بمثل ما دعوتم أخي الحبيب @Yasser Fathi Albanna فائق شكري وامتناني لمروركم العطر وكلماتكم الطيبة

وعليكم السلام ورحمة الله وبركاته بارك الله فيكم وجعله الله في ميزان حسناتكم أحسنتم أخي الكريم @أبوأحـمـد أحسن الله إليكم جزاكم الله خيراً.

تجربة معرفة بداية الأسبوع ونهايته بالذكاء الاصطناعي للويب فكرة طرأت ببالي أعرضها على سبيل الاطلاع فقط : ظهرت النتيجة كما يلي:

السلام عليكم أخي الكريم @Yasser Fathi Albanna كيف حالكم تم الحل بالنظر إلى المعادلة التي تحوي على النطاق المعرف مطروحاً من النطاق الصف( Y_7 ) - 3 كما يظهر في الصورة: رجعت إلى النطاق المعرف وحددته بالضبط ليس كما وجدت حيث كان معظم الشيت معرف على أنه ( Y_7 ) ولضبط ارتفاع الصفوف وضعت 3 صفوف فوقه هذا والله أعلى وأعلم والسلام عليكم ورحمة الله وبركاته

الحمد لله الذي بنعمته تتم الصالحات بخدمتكم أخي الكريم.

تفضل أخي الكريم أرجو أن يكون الحل: Retails Sales Report (2).xlsx

جزاكم الله خيراً على حسن قولكم ...ولكم بمثل ما دعوتم آمين الملف الجديد يثبت أن الملف مرتبط بآخر علماً أنه ليس في ملفك نطاق معرف بـ: Y_3 على الإطلاق حسب بحثي فيه ، لكن النطاق المعرف وموجود تعريفه على كلا الملفين هو Y_5 علماً أن في الملف الثاني فيه : =IFERROR(IF($C$2="";"";INDEX(Y_3;SMALL(IF(Y_3=$C$2;ROW(Y_3)-3;"");ROW(C1));MATCH(C$3;'Form Responses 1'!$A$1:$S$1;0)));"") تقبل تحياتي العطرة

وعليكم السلام ورحمة الله وبركاته أخي الكريم @Yasser Fathi Albanna كيف الحال ؟ إن شاء الله بخير رأيت أن أقدم نصيحة لتكون الإجابة على تساؤلكم بشكل دقيق أن ترفق الملف التالي الذي يفترض وجوده لديكم على الـ: D برنامج حساب المعاينات والصرف والإدخار والكوبونات كون المعادلات متعلقة به حصراً في الشيت المرفق.. حيث تعريف Name manager كجزء من المعادلة Y_5 ='D:\[برنامج حساب المعاينات والصرف والإدخار والكوبونات.xlsx]Calculating Points'!$A$4:$DS$1003 أرى أن تقوم بوضع الملف المذكور أعلاه ضمن المسار المحدد، فإن بقي الخطأ في المعادلة يمكنك طرح السؤال ... وفقكم الله لما يحب ويرضى والسلام عليكم.

ما شاء الله بارك الله أحسنتم أحسن الله إليكم آمين.

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

جزاكم الله خيراً بميزان حسناتكم إن شاء الله

ولكم بمثل ما دعوتم أخي الحبيب @Ali Mohamed Ali

أحسنتم بارك الله بكم أخي الكريم أبو أحمد

السلام عليكم ورحمة الله وبركاته إخوتي الكرام: أحببت أن أشارككم موضوعاً يتعلق بتحديد تاريخ بداية كل أسبوع ونهايته، وذلك بعد أن احتجت لذلك عدة مرات توصلت إلى هذا الحل أحببت مشاركتكم به ومن كان لديه أية إضافة أو تعديل أرجو أن يتحفنا بها ...مرحباً وأهلاً.. قمت بتحديد تاريخ بداية الأسبوع ونهايته وفق المعادلتين التاليتين: تاريخ بداية الأسبوع: =MAX(DATE(YEAR(TODAY());1;1);DATE(YEAR(TODAY());1;1)-WEEKDAY(DATE(YEAR(TODAY());1;1);16)+(WEEKNUM(TODAY();16)-1)*7+1) تاريخ نهاية الأسبوع: =MIN(DATE(YEAR(TODAY())+1;1;0);DATE(YEAR(TODAY());1;1)-WEEKDAY(DATE(YEAR(TODAY());1;1);16)+WEEKNUM(TODAY();16)*7)-1 أو حسب يومي بداية الأسبوع ونهايته تقبلوا تحياتي العطرة والسلام عليكم تحديد يوم وتاريخ بداية كل أسبوع ونهايته حسب التاريخ الحالي.xlsx

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

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

أخي الكريم عندما تدخل الاسم في Data ستتم كتابة الرقم الوظيفي والقسم آلياُ ... وجزاكم بمثل ما دعوتم أخي الكريم

السلام عليكم أخي الكريم ...... ولكم بمثل ما دعوتم آمين بناء على طلبك - أخي الكريم - تم التعديل، مع ملاحظة أن الورقتين Data & Result تعتمدان في معرفة القسم والرقم الوظيفي على الورقة الأولى Data1 وكذلك يمكنك التحديث لكتابة الأسماء آلياً بتحديث Pivot table بجانب الجدول في ورقة Result أما إن أردت كتابة الاسم يدوياً ستقوم بإلغاء المعادلة التي تربط خلايا الاسم بالجدول المجاور لكن لا يضمن أن تكتب الاسم بحذافيره دون زيادة أو نقصان فتكون النتائج تابعة لدقة كتابتك للاسم تقبل تحياتي والسلام عليكم. Abu Rafat (1).xlsx

السلام عليكم أخي الكريم أبو رأفت عساكم من عواده، أسأل الله تعالى أن يتقبل منا ومنكم صالح الأعمال،كل عام وأنتم إلى الله تعالى أقرب ...آمين أما بعد: لم توضح أخي الكريم شكل النتائج المتوقعة وفي أي ورقة تريد التعديل، وبما أنك لم تحدد ذلك فإنني قمت بإضافة شيت - سمه ما شئت - تضع فيه القسم ورقم الموظف واسمه لمرة واحدة وفي شيت النتائج قمت بالتعديل وليس كل ما طلبت، حيث أنك طلبت خصم الأشهر الثلاثة يمكن إضافة ذلك حسب أرباع السنة وفيما يلي أعرض لك نتيجة ما قمت به ضمن الملف المرفق: تقبل تحياتي Abu Rafat.xlsx

السلام عليكم من فضلك راجع الرابط التالي: والله أعلم

وعليكم السلام يمكنك استخدام التحقق من الصحة أقل من أو يساوي تاريخ معين ثم تطلب منه إيقاف أي رقم يتجاوز هذا التاريخ لما بعده أرجو أن يكون الحل مناسباً عدم قبول ادخال تاريخ قبل سنة معينة.xlsx

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

وعليكم السلام يمكنك استبدال الكود لتصبح النتائج كما تريد مرفق ربطاً الملف أما إن كانت لا تزال هناك مشكلة في ظهور اللغة فأنت بحاجة إلى تعديل الإعدادات من لوحة التحكم خيارات اللغة كما أن الكود السابق الموجود لديك يعمل بشكل صحيح وقد رأيت أنك استخدمته كمعادلة الصفيف بضغط Ctrl+shift+enter >>> جرب كتابة المعادلة ثانية بالضغط فقط على Enter وستحل المشكلة لديك بإذن الله تقبل تحياتي. المصنف1.xlsm

أشكرك أخي الكريم @ابوحبيبه على كلامك الطيب المشجع ،وأقول لك أخي الكريم ولكم بمثل ما دعوتم....آمين نحن كما ذكرت نكبر ببعضنا ونتشارك العلم الذي وهبنا الله إياه ...وكما رأيت لكلِ أسلوبه ولذلك فإن هذا المنتدى هو مرتع خصب للتحصيل العلمي ولشرف الريادة والسبق في ميادين العلم الذي قال الله تعالى عنه: (وقل ّربّ زدني علماً) وقال تعالى أيضاً : ( وفوق كل ذي علمٍِ عليمٌ) جزاك الله خيراً على حسن الظن بإخوانك ، تقبل تحياتي العطرة والسلام عليكم

بارك الله بكم أخي الكريم @Mohamed Hicham وبعلمكم آمين كان جوابي على قدر سؤال الأخ السائل إذ تم فصل الأسطر فيما بينها بأسطر فارغة في الكود المدرج من قبله Private Sub Workbook_Open() MyPassword = "123" For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:=MyPassword, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ UserInterfaceOnly:=True Next MySheet End Sub وبعد ضبط الكود كما يجب تمت تجربته وتزويد الأخ السائل به أشكرك أخي الكريم على حسن استئذانك و لين جانبك ... وأزيدك من الشعر بيتاً أنني معجب بعلمك ومساعدتك للآخرين وهذا ما نتوسمه بالجميع ولذلك فإنني أغبطك وأسعد بذلك تقبل تحياتي العطرة. والسلام عليكم