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

وعليكم السلام ورحمة الله وبركاته أرجو أن يكون الحل مناسباً يمكنك وضع المعادلة التالية في B2 ووضع معادلة ثانية في C2 كما يلي: B2: =IF(A2="";"";VLOOKUP(A2;Table1;2;0)) C2: =IF([رقم الموظف]="";"";LOOKUP(2;1/(Table1[[الاسم ]]=[[الاسم ]]);Table1[تاريخ اخر اجازة])) بالتوفيق إن شاء الله Book144.xlsm

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

وعليكم السلام ورحمة الله وبركاته يرجى التأكد من المعادلات التي فيها مرجع دائري ، هل تم وضع هذه المعادلات مثلاً وأنت بحاجة هذا المرجع الدائري أم نتيجة خطأ في وضع هذه المعادلات ....بمعنى آخر المرجع الدائري يشمل الخلية التي تريد القيام بمعادلة ما كطرف ... أما إلغاء ظهور التحذير على الرغم من وجود المرجع الدائري كما يلي: من File - Excel Options - Formulas - Enable Iterative Calculation بالعربي: من ملف - خيارات Excel - الصيغ - تمكين الحساب التكراري والسلام عليكم

جزاكم الله خيراً أخي الكريم @محمد هشام.

السلام عليكم تفضل أخي الكريم: تم وضع المعادلة التالية وهي معادلة صفيف Ctrl,Shift,Enter كما تم التعديل على أسماء الأشهر في الخلية C15 وما دونها بدلاً من كتابة اسم الشهر كنص كتبنا تاريخ أول كل شهر ثم التنسيق ليظهر اسم الشهر لإتمام المعادلة والله ولي التوفيق والسلام عليكم 152.xlsb

الحمد لله الذي بنعمته تتم الصالحات لا شكر على واجب حياكم الله

ولكم بمثل ما دعوتم أخي الحبيب @حسونة حسين 🌺

وبارك لكم وبكم وعليكم أستاذنا الكريم @أ / محمد صالح

السلام عليكم أخي الكريم طرحت سؤالك على برنامج دردشة ميكروسوفت فكان الجواب كالتالي: يتم استخدام خاصية StartUpPosition في إكسل لتحديد موقع ظهور UserForm عندما يتم فتحه لأول مرة. يمكن تعيين قيمة StartUpPosition إلى واحدة من أربع إعدادات. يمكنك استخدام الإعدادات التالية لـ StartUpPosition: Manual: لا يوجد إعداد أولي محدد. CenterOwner: يتم وضع UserForm في المركز على العنصر الذي ينتمي إليه UserForm. CenterScreen: يتم وضع UserForm في المركز على الشاشة بأكملها. WindowsDefault: يتم وضع UserForm في الزاوية اليسرى العليا من الشاشة. - يمكن تعيين خاصية StartUpPosition برمجيًا أو من نافذة الخصائص. يمكنك الرجوع إلى المصادر المذكورة أدناه لمزيد من المعلومات. رابط1 رابط2 أرجو لكم الفائدة. والسلام عليكم

السلام عليكم ورحمة الله وبركاته جواباً لطلبك الثاني أخي الكريم وبعد إذن من سبقني من الأساتذة الكرام وحسبما فهمت من سؤالك يمكنك وضع معادلة الأستاذ الكريم محمد صالح بشرطي المبلغ والسنتين والله أعلم في الخلية D14 :يمكنك وضع هذه المعادلة: =IF(AND($D$12=3521;$G$9=2);100%;SUM(G9*360;F9*30;E9)/720) والسلام عليكم.

الحمد لله الذي بنعمته تتم الصالحات

وعليكم السلام في الخلية F2 =IF(WEEKDAY([@[Date Doc.]]+45;16)=7;[@[Date Doc.]]+44;[@[Date Doc.]]+45) واسحب نزولاً تقبل تحياتي.

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

وعليكم السلام ورحمة الله وبركاته أخي الكريم بعد إذنك جرّب خاصية البحث في المنتدى فصل الأرقام عن الحروف --------> من هنا تقبل تحياتي والسلام عليكم مع الاعتذار من الأستاذ الكريم محمد صالح لأنني لم ألحظ مشاركته إلا بعد أن شاركت بها

وعليكم السلام أخي الكريم هذا الملف بعد التعديل فيه تم وضع كود لطباعة صفحة بذاتها ، وكود آخر لطباعة صفحات من رقم .... (الخلية O2)إلى رقم.....(الخلية P2) أما إذا أردت طباعة كل القائمة فامسح الخليتين المذكورتين أعلاه. وستتم طباعة كل الصفحات حسب معادلتين وضعتا في O1 & P1 اعتماداً على الخلية N5 في كل ماسبق بالتوفيق إن شاء الله والسلام عليكم ملاحظة: هذا الكود لأحد الأساتذة الفضلاء - وفقهم الله- آمين كود.xls

وعليكم السلام ورحمة الله وبركاته أخي الكريم @ابراهيم الحداد تحية طيبة وبعد: فكرت بالحل بعدة طرق منها: 1- في عمود مساعد نضرب الخلية A3 *1 2 - أو نستخدم دالة : =TEXT(A3;"YYYY/MM/DD") 3- من data >> text to columns >> date (YMD) مع ذلك لي رغبة أن توضح لنا طريقة التحويل - إن سمحت - حتى تعم الفائدة ...مستفسراً أيضاً عن بيانات جديدة في الصفوف التالية هل تحتاج إلى تحويل أيضاً أم لا؟!. تقبل تحياتي العطرة والسلام عليكم.

وعليكم السلام أخي الكريم إن كان كما قلت فقد سمح للناس باستخدامه دون إمكانية تحرير الأكواد كما ترى في الصورة المرفقة

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

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

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

السلام عليكم إثراء للموضوع وبعد إذن من سبقني إليكم الحل بطريقتين الأولى : باستخدام VlookUp حيث تم وضع الأرقام وتفقيطها في جدول بمجرد أن تكتب الرقم يتم تفقيطه =VLOOKUP($A2;Table1;2;0) الثانية: باستخدام المعادلة التي تعتمد على كود التفقيط NoToTxt الذي قمت بالتعديل على جزء يسير - بعد إذن صاحبه الذي أسأل الله تعالى أن يجعله بميزان حسناته - ليناسب الموضوع. =NoToTxt([@الرقم];"";"") راجياً أن يكون مقبولاً لديكم والسلام عليكم تحويل الأرقام الترتيبية إلى نصوص.xlsm

تفضل =TEXT(E5;"ddd") New Microsoft Office Excel Worksheet.xlsx

زادكم الله شرفاً ورفعة آمين

أسعدني مروركم العطر أخي الكريم @AbuuAhmed على موضوعي هذا جزاكم الله خيراً. أثريت موضوعنا بهذه المشاركة الطيبة تقبل تحياتي العطرة.

آمين يا رب العالمين ولكم بمثله آمين