نجوم المشاركات

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

تفضل اخى الكريم جرب المرفق وابدى ملاحظاتك بحث وتصفية. xls.rar بحث وتصفية. xls.rar

السلام عليكم اخى الكريم يمكنك استخدام المعادلة التالية =SUMPRODUCT(((D5:D20="محمد")+(D5:D20="سامي")+(D5:D20="عبد الله")+(D5:D20="وليد"))*E5:E20)

السلام عليكم ورحمة الله تعالى وبركاته مقدمة : لكى ننتقل من الخلية A1 مثلا الى آخر خلية بها بيانات فى نفس الصف الاول يكون بالطريقة الاتية : Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column).Select لكى ننتقل من الخلية A1 مثلا الى آخر خلية بها بيانات فى نفس العمود الاول يكون بالطريقة الاتية : Range("A" & Cells.Rows.Count).End(xlUp).Select ماذا لو كنا لا ندرى فى أى خلية نحن ...... اذن الانتقال سيكون من الخلية النشطة الى آخر خلية بها بيانات فى صفها أو عمود ها كيف نستخدم الخلية النشطة فى الوصول الى آخر خلية بها بيانات فى صفها أو عمود ها ؟ قبل الاجابة على السؤال نحاول نفهم الآتى : طبعا احنا عارفين أن اى خلية ليها صف وليها عمود ماشى لو عندنا الخلية النشطة هى $A$1 كيف نحصل على رقم الصف وكيف نحصل على اسم العمود من التركيبة $A$1 علامتى الدولار والحرف والرقم سنعتمد على الدالة MID وبنيتها كالتالى ( النص الذى سنستخرج منه + نقطة البداية + عدد الاحرف المطلوبة ) ( MID( text ; start position ; Number of characters وظيفتها استخلاص جزء من نص بداية من نقطة محددة فيه وعدد محدد من الحروف ضع النص $A$1 فى خلية ولتكن A1 نحصل على رقم الصف بالمعادلة =MID(A1; 4; 1048576) نحصل على اسم العمود بالمعادلة =MID(A1; 2; 1) المعادلة دى ستعطيك اسم العمود وهو A كيف نستفيد من ذلك فى الانتقال من الخلية النشطة الى آخر خلية بها بيانات فى صف أو عمود الخلية النشطة ؟ بسيطة : بص على سطر الكود الأول فيه الرقم 1 ومكرر مرتين ويمثل رقم الصف تعالى نشيل رقم الصف ونضع ما يساويه بالمعادلات Cells(Mid(ActiveCell.Address, 4, 1048576), Cells(Mid(ActiveCell.Address, 4, 1048576), Columns.Count).End(xlToLeft).Column).Select هذا السطر يستخدم فى الانتقال من الخلية النشطة الى آخر خلية بها بيانات فى نفس صف الخلية النشطة بص كمان على سطر الكود الثانى ستجد فيه "A" اسم العمود شيل اسم العمود وضع المعادلة التى هتطلع لنا اسم العمود Range(Mid(ActiveCell.Address, 2, 1) & Cells.Rows.Count).End(xlUp).Select هذا السطر يستخدم فى الانتقال من الخلية النشطة الى آخر خلية بها بيانات فى نفس عمود الخلية النشطة ناس هتقول ايه فائدة ده كله ؟ هقوله جرب المرفق التالى وأنت تعرف ممكن يعملوا ايه ! ملحوظة 1 : ده مش معناه أن السطرين دول وبس ممكن يعملوا ما فى المرفق ملحوظة 2 : فى المرفق تم اضافة الخاصية Offset على السطرين . find last entry in Rows and columns by mokhtar .rar والسلام عليكم ورحمة الله تعالى وبركاته

أبي الحبيب أبو يوسف الموضوع (الغنايم على قولك) موجود قبل ما أغيب الـ 3 أيام دول ..شكلك بطلت تتابع بشكل جيد (كله من خلال الموبايل وبس) في انتظار مساهماتك في خدمة إخوانك أخي الغالي ياسر العربي الموضوع مجرد تفتيح بس لأن كتير جداً من الأعضاء الجدد بيسألوا على البدايات دي بشكل كبير جداً ..فحبيت أعمل الموضوع عشان يكون مجرد مرجع ليهم (وتوفير لوقت بقية الأعضاء اللي بيقدموا المساعدة ..بحيث لما حد يسأل على البدايات يدله على الموضوع ويتفرغ من يريد تقديم المساعدة لما هو أهم) تقبلوا تحياتي

يمكن تجاهل المكرر عبر هذا الملف Find Salim without rep.zip

لا إله إلا الله وحده لا شريك له الملك وله الحمد وهو على كل شيء قدير

السلام عليكم تفضل اخى الحبيب ارجو ان يكون هو ذا ماتقصده احصاء من اكثر من ملف.rar

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

السلام عليكم ورحمة الله وبركاته أسعد الله أوقاتكم جميعا وكنتم جميعا فى أحسن حال أتقدم إليكم اليوم بمعادلة جميلة جدا جدا تقوم بعمل بحث فى عمود عن أول حرف عن طرق وضع الحرف المراد إظهار النتائج التى تبدأ بهذا الحرف فى خلية ما فيظهر فى العمود المقابل كل الاسماء التى تبدأ بهذا الحرف المعادلة معادلة صفيف يعنى الضغط على Ctrl+Shift-Enter وليس Enter {=IFERROR((IF(ROW()=2;INDIRECT("$A$"&(MATCH(1;(((--($B$2=LEFT($A$1:$A$100;1)))));0)));((INDIRECT("$A$"&(MATCH(1;(((--($B$2=LEFT(INDIRECT(IF(C1="";"";"$A$"&(MATCH(C1;$A$1:$A$101;0)+1))&":$A$100");1)))));0))+(MATCH(C1;$A$1:$A$101;0)))))));" ")} مرفق ملف به المعادلة والتنفيذ أرجوا من الله العلى القدير ان يستفاد منه الجميع Find.rar

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

اخي خالد الرشيدي عمل رائع تشكر عليه ومتابعة جيدة تقبل مروري المتواضع مرفق مثال الاخ خالد الرشيدي ولكن بعد ازالة Activate & Select اصل فيه مشرف هنا بيكره موضوع ال Activate & Select بحث وتصفية. xls.rar

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

تفضل اخى الكريم المطلوب بالمرفق بحث وتصفية. xls.rar

نعم و هو كذلك .. تجد هنا أغلب الامتدادات المسموحة ..شاهد لو سمحت أخي الكريم هنا ..

أخي الكريم سليم لم أقل أن الملف لا يعمل ..بالعكس ملفك يعمل بشكل فوق الممتاز والطريقة عملية جداً في تلبية الطلب لكن لاحظت أن طلب الأخ خالد ليس هذا هو مقصوده .. جرب تحفظ الملف بصيغة xlsx كما أخبرتك ..ستجد أن النطاق المسمى سيختفي لأنه يعامل معاملة الأكواد (تلك هي القضية)

جزاكم الله خيراً الاخ خالد الرشيدي عمل رائع ومميز

الملف جاهز و تحت الطلب وضعنه في صيغة 97-2003 كي يتمكن اكبر قدر من الاعضاء استخدامه has_formula.zip

شكرا اجابة رائعة ومفيدة

أخي الحبيب ياسر أبو البراء السلام عليكم ورحمة الله وبركاته الحمد لله على السلامة من طوّل الغيبات جاب(أحضر) الغنايم وحشتنا...تقبل تحياتي العطرة.

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

اخي خالد لتلافي عذه المشكلة قم بما يلي: 1- افتح الملف 2 هضغط F12 3- يطهر لك صندوق حوار 4 من الخانة Save As اختر اسماً جديديا للملف 5- من الخانة Save as Type اختر Excel workbook او Excel 2003 6- اضغط على SAve بهذا يكون عندك ملف جديد لا يحتوي غلى ماكرو تحت الاسم الجديد الذي اخترته اخي الغالي سليم حاصبيا مشكور لمجهودك االرائع ولكن عند الحفظ بامتداد xlsxمثلا سيطلب منه الاستغناء عن اكواد الماكرو الموجودة وتعد تعريف اسم cell_has_formula من ضمن الاكواد ويتم ازالتها ومما يترتب عليه الغاء عمل المعادلة والغاء التنسيق ونرجع تاني لنفس المشكلة الاخ الغالي يطلب تنسيق شرطي بدون تدخل لاي وحدات ماكرو اما لو محتاجه بوحدات ماكرو فحل اخي سليم الافضل تقبل مروري المتواضع

اخي خالد لتلافي عذه المشكلة قم بما يلي: 1- افتح الملف 2 هضغط F12 3- يطهر لك صندوق حوار 4 من الخانة Save As اختر اسماً جديديا للملف 5- من الخانة Save as Type اختر Excel workbook او Excel 2003 6- اضغط على SAve بهذا يكون عندك ملف جديد لا يحتوي غلى ماكرو تحت الاسم الجديد الذي اخترته

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

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

اخي الغال شاكر مجهودك الرائع ولكن جرب اكتب رقم فقط ستظلل بالاحمر

السلام عليكم ورحمة الله أخي الكريم مصطفى، في الحقيقة لم أفهم ما تريده بالضبط (هل تريد نقل بيانات شيت "عام" إلى شيت "جدول الحصص" أم العكس؟) وقد قمت في الملف المرفق بتحويل البيانات من شيت "عام" إلى شيت "جدول الحصص" مع إضافة ثلاثة أعمدة في شيت "عام" لتسهيل عملية تحديد المواد المسندة لكل معلم... أرجو أن يفي الملف بالغرض المطلوب... أخوك بن علية استدعاء عدد حصص كل معلم بشرط الفصل والمادة.rar

السلام عليكم ورحمة الله وبركاته يمكنكم تثبيت اللغة المطلوبة إلى أي لغة تريدها عن طريق تغيير اللغة من النمط (عادي) كما هو موضح بالمرفق. تمنياتنا لكم بالتوفيق

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

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

السلام عليكم الاستاذ / وائل احمد المصرى ... جزاكم الله خيراً اخى الكريم اليك كود الترحيل وفق النموزج المصمم من قبلكم الرشيدى - ترحيل.rar

لا إله إلا الله وحده لا شريك له الملك وله الحمد وهو على كل شيء قدير

جرب هذا الشيء large3.zip

السلام عليكم ارجو ان يكون هذا هو الحل كما فهمت جدول معيارى.rar

أخى سليم ويكتب أيضا هكذا ليشمل كل المعادلات النصية والرقمية Range("B2", Range("B" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeFormulas).Interior.ColorIndex = 38 لكن لا يصلح فى طلب الأخ نايف جرب الكود مع معادلة هتلاقى الكود أعطى المعادلة اللون 38 ثم شيل المعادلة ستجد اللون الجديد 38 كما هو و جرب ادخال نص مكان معادلة ستجد اللون كما هو أيضا الأخ نايف جرب الكود التالى Private Sub Worksheet_Change(ByVal Target As Range) Dim C As Range Dim rng As Range ' تحديد نطاق الفحص Set rng = Range("B2", Range("B" & Rows.Count).End(xlUp)) ' تحديد الخلايا التى تتضمن معادلات For Each C In rng If C.HasFormula And C.Offset(, -1) <> "" Then C.Interior.ColorIndex = 38 Else C.Interior.Pattern = xlNone End If Next C End Sub

السّلام عليكم و رحمة الله و بركاته هذه إحدى المحاولات أخي الكريم أبو الرحمن البغدادي .. لعلّها تفي بالغرض .. محركات بحث عديدة1.rar

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

لا إله إلا الله وحده لا شريك له الملك وله الحمد وهو على كل شيء قدير هناك اقسام كثيرة مهمشة من الاعضاء فلنحاول احيائها مرة اخرى ولكم جزيل الشكر

سبحان الله و بحمده .. سبحان الله العظيم لم ينتبه لها أحد منذ 7 يوليو2015 سبحان الله و بحمده .. سبحان الله العظيم أشكركم...

مشكور اخي الكريم علي اضافتك الجميلة كل الشكر والتقدير

حبيبى الغالى أخى فى الله أ / ياسر خليل جزيت خير الجزاء على كل تقدمه من أعمال وروائع مفيدة للجميع تقبل خالص تحياتى وتقديرى

السلام عليكم اخي الحبيب ياسر خليل حفظك الله ضروف ومشاغل الحياه هيا التي تبعدنا قليلاً امل ان اجد وقت كي نرد الجميل لهذا الصرح الكبير كلماتك على العين فوق الراس تقبل تحياتي وشكري

افتح مربع البحث والاستبدال CTRL+H في خانة البحث (الأولى) اضغط في لوحة المفاتيح على CTRL+I دون أن تكتب شيئاً فيها. سترى عبارة توضح أن البحث هو للحروف المائلة. في خانة الاستبدال، اضغط مرتين في لوحة المفاتيح على CTRL+I أيضاً دون أن تكتب شيئاً فيها. سترى عبارة توضح أن الاستبدال هو بما ليس مائلاً إن أردت الاستبدال دفعة واحدة، فانقر على استبدال الكل

https://www.youtube.com/watch?v=c1Bii6sCKG0

إخواني الكرام تم تحديث البرنامج في المشاركة الأولى نظراً لوجود بعض التطويرات الهامة في البرنامج تفضلوا بتحميل البرنامج من جديد

أنا عارف إنها عيب .. بس عيب متغطي بـ Cover أعتذر لكما إخواني إذا كنت قد أخطأت في حقكما وهاتوا راسكم أبوس عليها

السطر اللي نزل اجعل حجم الخط فيه 1 حتى لا تظهر مساحة سطر في الجدول ثم قم بالتحديد على كل الكتابات واختر فقرة ثم (كشيدة صغيرة). مثال.rar

مرفق مثال يعتمد علي تغيير مصدر بيانات النموذج الفرعي FiltreByCombo.rar

الي كل الاخوة الاعزاء تحية طيبة وبعد لدي نموذج عرض مستمر لبيانات نزلاء الفندق وقد وضعت في التصميم خانة اختيار فية اشار صح عندما يكون النزيل قد غادر الفندق المطلوب اريد زر عند الضغط علية يقوم بتصفية ( فلتر ) السجلات والابقاء فقط علي السجلات التي عندها اشارة صح اي النزلاء المغادرون فقط حاولات اعمل ذلك ولكن كل المحاولات باءت بفشل اعرف ان قيمة خانة الاختيار تكون اما 0 او 1 وادخلت الدالة Applyfilter ارجوكم اريد المساعدة

شكرا لك ، و أهلا بك فى المنتدي