أ / محمد صالح

تجديد حتى تعم الفائدة للجميع وتكون فرصة لنشر ثقافة العلم قبل العمل تحياتي القلبية

لعدم عرض الخطأ يتم إضافة Iferror ثم فتح قوس قبل المعادلة وفي نهايتها فاصلة ثم علامتي تنصيص ثم غلق القوسلتصبح المعادلة =iferror(INDEX(Sheet1!$A$2:$A$1000; MATCH(0; COUNTIF($D$1:D5; Sheet1!$A$2:$A$1000); 0)):"") بالتوفيق

توضع البيانات المكررة في العمود a في sheet1 توضع المعادلة في الصفحة الثانية في الخلية d2 ثم تسحب لأسفل مع مراعاة نظام الفاصلة بين أجزاء المعادلات في جهازك هل هي , أو ; حسب إعدادات اللغة هدانا الله جميعا لما فيه الخير

يبدو أنه لم يتم تنفيذ المطلوب بصورة صحيحة يوجد خطأ في الخطوات

بارك الله لك أستاذي إذا لم تفي طريقة البحث الجديدة بالمطلوب يمكنك الرجوع للطريقة الأولى في النموذج المستقل المهم أنه تم حل معظم المطلوب القديم

يمكنك تعديل المعادلة ومصدر البيانات إلى =INDEX(sheet1!$a$2:$a$1000,MATCH(0,COUNTIF($D$1:D1,sheet1!$a$2:$a$1000),0)) حيث الشيت هو sheet1 والعمود الذي به البيانات هو a2:a1000

جرب هذا المرفق تم تعديل المطلوب الأول والثاني والثالث وتم الاجتهاد في تغيير طريقة البحث بحيث يمكن الاستغناء عن النموذج 2 وكذلك تعديل تخيط الصفحات في الطباعة وفقنا الله وإياكم للخير MAS_2017صيفية برمجية المعتمدة استعلام.rar

وفقكم الله لكل خير حبيبي في الله أبا عبد الرحمن ويمكن الجمع بين الحدثين في المصنف والشيت

جزاك الله خيرا أستاذ إبراهيم كلنا يفيد صاحبه ويتعلم من الآخر علمنا الله ما ينفعنا ونفعنا بما علمنا

ما شاء الله أخي خبور خير رائع وجميع أكواده بسيطة وفعالة أعاده الله لنا وسلمه من كل سوء ولإثراء الموضوع أقدم هذه المعادلة لنفس الغرض =INDEX($a$2:$a$1000,MATCH(0,COUNTIF($D$1:D1,$a$2:$a$1000),0)) حيث وجود البيانات في العمود a ويتم كتابة المعادلة في الخلية d2 مع الضغط على Ctrl+shift+enter لأنها معادلة صفيف array formula ثم تسحب لأسفل وفقنا الله جميعا للخير دمتم في رعاية الله وحفظه

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

علشان حدث التنشيط يشتغل ممكن تضغط على أي شيت تاني وبعدين تضغط على الشيت المطلوب وزيادة في التأكيد ممكن تحط الكود في حدث فتح المصنف Private Sub Workbook_Open() وإذا كان الملف أكثر من شيت يجب تحديد شيت العمل المطلوب With Worksheets("Sheet1") ووضع الكود هنا ثم إنهاء التعامل مع الشيت المطلوب End With

ليه تدخل محرر الأكواد؟! يكفي دخول الشيت وتنشيطه

جزاك الله خيرا أخي زيزو العجوز الكود صحيح للغرض المطلوب ويمكنك وضع الكود السابق في حدث تنشيط الشيت Private Sub Worksheet_Activate() Application.ScreenUpdating = False Dim dat As Byte dat = Month(Now) If dat = 1 Then Columns("DI:DE").Hidden = False Else Columns("DI:DE").Hidden = True End If If dat = 6 Then Columns("DK").Hidden = False Else Columns("DK").Hidden = True End If If dat = 7 Then Columns("DK").Hidden = False Else Columns("DK").Hidden = True End If Application.ScreenUpdating = True End Sub كما هو مطلوب

أنت الأروع أستاذ حمادة رجاء حذف الموضوع الآخر بنفس الاسم تقريبا بسبب خلل في الانترنت وقت النشر

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته عودة إلى فيديوهات الشروح المبسطة والتي تحتوي على الكثير من التريكات tricks والحيل التي يرغبها المحترفون الجزء الثاني من خيارات إكسل 365 و إكسل 2016 جاري مونتاج الفيديو ورفعه وهذه بعض محتوياته إن شاء الله شرح خيارات إكسل 2016 وإكسل 365 بالتفصيل من الصفر إلى الاحتراف تبويب الصيغ Formulas تغيير طريقة حساب المصنف workbook calculation إضافة خيارات الإكسل لشريط الوصول السريع add excel options to QAT فهم الحساب التكراري وخطأ المرجع الدائري Iterative calculation and circular reference فهم نمط المراجع R1C1 reference style الإكمال التلقائي للمعادلات في شريط الصيغة formula auto complete تفعيل فحص الأخطاء ولون تأشير الخطأ error checking & error indicator colorr قواعد فحص الأخطاء error checking rules خيارات الإكمال التلقائي auto correct options صيغة الحفظ الافتراضية default file format حفظ معلومات الاسترداد التلقائي كل 1 دقيقة save auto recovery تحديد مكان الاسترداد التلقائي auto recover file location تحديد مكان الحفظ والفتح الافتراضي default save , open location إضافة وحذف لغات التحرير add & remove editing languages إضافة لغات العرض والمساعدة add display and help languages تغيير لغات العرض والمساعدة change display and help languages والكثير اترككم مع الفيديو وهذا هو الجزء الأول من شرح خيارات إكسل وهذا رابط لسلسلة الفيديوهات لتعليم أساسيات إكسل 2013 وما بعدها وفقنا الله وإياكم لكل خير يا ترى كام حبيب في الله سيجعنا من أجل الاستمرار

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته عودة إلى فيديوهات الشروح المبسطة والتي تحتوي على الكثير من التريكات tricks والحيل التي يرغبها المحترفون الجزء الثاني من خيارات إكسل 365 و إكسل 2016 جاري مونتاج الفيديو ورفعه وهذه بعض محتوياته إن شاء الله شرح خيارات إكسل 2016 وإكسل 365 بالتفصيل من الصفر إلى الاحتراف تبويب الصيغ Formulas تغيير طريقة حساب المصنف workbook calculation إضافة خيارات الإكسل لشريط الوصول السريع add excel options to QAT فهم الحساب التكراري وخطأ المرجع الدائري Iterative calculation and circular reference فهم نمط المراجع R1C1 reference style الإكمال التلقائي للمعادلات في شريط الصيغة formula auto complete تفعيل فحص الأخطاء ولون تأشير الخطأ error checking & error indicator colorr قواعد فحص الأخطاء error checking rules خيارات الإكمال التلقائي auto correct options صيغة الحفظ الافتراضية default file format حفظ معلومات الاسترداد التلقائي كل 1 دقيقة save auto recovery تحديد مكان الاسترداد التلقائي auto recover file location تحديد مكان الحفظ والفتح الافتراضي default save , open location إضافة وحذف لغات التحرير add & remove editing languages إضافة لغات العرض والمساعدة add display and help languages تغيير لغات العرض والمساعدة change display and help languages والكثير اترككم مع الفيديو وهذا هو الجزء الأول من شرح خيارات إكسل وهذا رابط لسلسلة الفيديوهات لتعليم أساسيات إكسل 2013 وما بعدها وفقنا الله وإياكم لكل خير يا ترى كام حبيب في الله سيجعنا من أجل الاستمرار

السلام عليكم ورحمة الله وبركاته أستاذنا الإكسل رائع ولا يتعب أحدا ولكن احنا اللي بنستعجل وعايزين نكتب معادلات وأكواد بسرعة وربما ننسى أن نهتم في بداية الأمر أن نتعلم كيف يتم ذلك لذا أنصحك بمتابعة الدورات ومعرفة المزيد وبإذن الله تنفعك هذه المعادلة =indirect (b9 &"!E1") في الخليةd9 وفقنا الله وإياكم لكل خير

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

تفضل يا أمير ولكن الأفضل أن تحاول وتسأل في النقطة التي لم تعرفها فقط ويفضل تغيير اسم الظهور للغة العربية حتى تكون موافقا لقواعد المنتدى وفقكم الله وسدد خطاكم حل الواجب الرابع.rar

كمعلم لغة عربية أود أن أوضح أن إهمال التشكيل غير صحيح في عمل برنامج القاموس لأنك لن تستطيع إعادة التشكيل للكلمات المتبقية

تفضل أخي الكريم هذا الملف يحتوي على المطلوبين الأول والثاني وفي أقرب فرصة سأحاول مع المطلوب الثالث إذا لم يفعلها أحد العباقرة MAS_المصنف.rar

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

وإياكم أخي الكريم

يمكنك تغيير المعادلة إلى =IF(AND(L14>=1800;L14<3600);L14;0)