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

السلام عليكم ورحمة الله وبركاته اخوانى الكرام رجعنا لكم بعد غياب لظروف واحمد الله اننى وسطكم اخوانى الاعزاء وجزاكم الله خيرا اخوانى الكرام على السؤال انى احبكم فى الله طبعا لم استطع تكملة باقى الجزء المشروح لاسباب لم يظهر مع الاكسيل بالادد ريفرانس وساقوم بعمل نسخة وينددوز لانى حاسس بان فى حاجه مش مظبطه ولكن كنت بحاول اعمل حاجه انا كنت عملتها على الاكسيل والحمد لله تمت ارفقها لكم لابداء الراى والتعديل والتعقيب جزاكم الله كل خير WindowsApplication1.rar

كل الشكر والتقدير لك اخي الكريم سليم حاصبيا اذاً الخلطة السرية هي : Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Application.ScreenUpdating = False Application.EnableEvents = False special_format3 Application.ScreenUpdating = True Application.EnableEvents = True End Sub بارك الله فيك وجزاك الله كل خير

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

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

استعمل هذه المعادلة في الخلية BA4 و اسجب نزولاً (لا تنسَ استعمال Ctrl+Shift+Enter)لانها معادلة صفيف =IF(ROWS($BA$4:BA4)>COLUMNS(Loading),"",SMALL(TRANSPOSE(COLUMN(Loading)),ROWS($BA$4:BA4)))

السّلام عليكم و رحمة الله و بركاته الحمد لله على رؤية اسمك أخيرًا .. عودًا حميدًا ألف شكر أخي الغالي " أحمد الفلاحجي " على الملف الرّائع بأكواده البسيطة جزاك الله خيرًا و زادها بموازين حسناتك و زادك من علمه و فضله فائق إحتراماتي و إعجاباتي أخي الفاضل

نظم إدارة قواعد البيانات في Access.zip

برنامج الفوتوشوب كما نعلم هو افضل و اشهر برنامج للتعديل على الصور على الاطلاق ، و كذلك يستخدمه المصممين في عمل الشعارات و تصميم اللافتات و المطبوعات المختلفة، لذلك انصح اي أحد بتعلمه و لو حتى الاساسيات لتكون قادر على التعديل على اي صورة كما تشاء و بدون الحاجة الى مصمم مدفوع الأجر سوف نتعرف في هذا الموضوع على شرح اساسيات فوتوشوب بالصور و الفيديو و كذلك مميزات الاصدار الاخير من الفوتوشوب مع رابط التحميل ملحق في نهاية الموضوع ( يفضل تحميل البرنامج من المصدر حيث يحتوي المصدر على رابط مباشر لتحميل الفوتوشوب ) شرح سريع لواجهة برنامج الفوتوشوب 1- خلال هذا الشريط تستطيع التحكم في اعدادات الفوتوشوب و بعد الاوامر المفيدة في التعديل على الصور و كذلك لبدء تصميم او صورة جديدة من قائمة File 2- عند استخدام اي اداه من ادوات الفوتوشوب يتغير هذا الشريط تبعاً لنوع الاداة و هو يعطي ميزات اضافية للاداة 3- و هذا يشبه شريط التبويب الموجود في المتصفحات لفتح اكثر من تصميم او صورة في وقت واحد 4- هذا الصندوق يحتوي على جميع الطبقات التي يتم العمل عليها مثل الصور و المربعات و الاشكال و التأثيرات و النصوص لتنسيقها و ترتيبها ايهم يظهر اولاً فوق الآخر و هكذا 5- و هذه هي جميع الادوات الرئيسية للفوتوشوب و هي ادوات احترافية للغاية اذا تعلمتها ستكون قادر على فعل اي شىء مثلما مشروح في الفيديو اعلاه 6- ادوات مساعدة في الاضاءات و الالوان و التأثيرات على الصور 7- و هذه هي مساحة العمل التي تعرض لك جميع الطبقات الموجودة في صندوق الطبقات و تعتبر حدود الصورة او التصميم الذي تصنعه. شرح بالفيديو اساسيات و ادوات الفوتوشوب للمبتدئين في 3 ساعات فقط https://www.youtube.com/watch?v=ssmH...GUpyeE&index=1 طريقة تثبيت الفوتوشوب على الكمبيوتر بعد التحميل من المصدر اسفل الموضوع مميزات برنامج الفوتوشوب 2016 الاصدار الجديد من الفوتوشوب photoshop cc يحتوى على مميزات تفوق مميزات فوتوشوب cs6 و بذلك يساعدك اكتر في تعديل الصور و من مميزات البرنامج التالي - امكانية التعديل على الكتب الالكترونية و الملفات بصيغة PDF - امكانية اضافة تأثيرات و فلاتر اضافية و التي تغير من رونق و الوان الصورة و ذلك في طبقة منفصلة Layer و ليس مدمجة مع الطبقة الأساسية. - الاصدار الجديد من الفوتوشوب سريع في التعامل و يتميز بالسرعة في اضافة لوجو على اكثر من صورة في وقت واحد. - تعديل الاهتزازات التي غالباً توجد بالخطأ في الصور الملتقطة بالكاميرا - يمكنك تعديل واجهة البرنامج مثل جعل شريط الادوات لونها ابيض شفاف عند التحريك و ترتيب اللوحات و الاشرطة. - تحويل الصورة الى ابيض و أسود في برنامج فوتوشوب cc 2016 أصبح اكثر احترافية مما سبق حيث تظهر نافذة خاصة بـ Black and white على عكس الاصدارات القديمة التي فيها يعتبر ابيض و اسود عبارة عن أمر فقط بدون اضافات. - تطويل خواص الانيماشن و الـ Vanishing Poing. - تطوير التعديل على الأشكال من خلال نقاط الشكة و زواياه و المنحنيات. تحميل البرنامج المصدر: برنامج فوتوشوب من الموقع الرسمي

صدر بحمد لله كتاب (مشروعي) و هو كتاب متكامل باللغة العربية في إدارة المشاريع والاعداد لشهادة PMP. الكتاب من تأليف كلٍ من: د/عمرو مسلم و م/ محمد طاهر عرفه ويقع في أكثر من 800 صفحة تغطي المجالات المعرفية الأساسية لإدارة المشروع ،كما يمثل الكتاب مرجع عربي متكامل لمن يرغب في الاستعداد لشهادة مدير المشروع المحترف PMP. اعتمد الكاتبان بالأساس على تبسيط الإصدار الخامس من الدليل المعرفي لإدارة المشروعات ليس من خلال الاختصار ولكن عن طريق الشرح والتوضيح وإضافة أمثلة وتلميحات ورسومات توضيحية وخرائط ذهنية ومعلومات يحتاجها كل مدير مشروع مع الكثير من التمارين المتنوعة في أسلوبها وذلك لضمان استيعاب القارئ لما جاء في كل فصل من معلومات. ويحوي الكتاب خاصية فريدة لتوضيح أين سيتم استخدام أهم مخرجات كل عملية كمدخلات للعمليات الأخرى، مما يؤدي لمساعدة القاريء على الربط المتميز بين كافة العمليات و المجالات المعرفية الواردة في الكتاب. بالإضافة الى ذلك، يحوي الكتاب ما يقارب 500 سؤال تدريبي للاستعداد لاختبار شهادة مدير المشروع المحترف PMP بالإضافة الى 60 نموذج من أهم النماذج المستخدمة في إدارة المشاريع ، فضلا عن تطبيق عملي لاستخدام أهم النماذج ضمن فصول الكتاب، وأخيرا قائمة بأهم المصطلحات المستخدمة في إدارة المشاريع وترجمتها. أخيراً، فإن الكتاب مُوَجه لكل من يفتقد مادة علمية متكاملة في إدارة المشاريع باللغة العربية والتي قد تمثل عاملاً مهماً لتخطي حاجز اللغة الانجليزية والتي جاءت بها معظم الكتب والمراجع في هذا المجال. لمعلومات التوزيع و التواصل ووصلة الكتاب على موقع أمازون إضغط هنا

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

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

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

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

لا افهم كيف يمكن ان تلصق شيئاً ما دون ان تقصه او تنسخه

اهلا بكى اخى عبدالعزيز اشتقت اليكم جميعا اخى الحبيب والرائع هو صحبتكم الجميله اخى الغالى جزاك الله كل خير ونتمنى ان نتعلم منكم اكثر واكثر وزادكم الله من فضله وعلمه تقبل تحياتى ياغالى

الأستاذ محمد الريفي أنا جربت دالة TEXTJOIN فعلاً جمعت الخلايا وتخطت الفراغات

هههههههههههه ولو أنى ماليش فى الاكسيل أحببت أن أقول انتم أحلى منتدى يجمع بين التعاون والجدية والفكاهة

السلام عليكم اخي احمد كيف حالك تم تعديل مربع تحرير وسرد على الشكل التالي اضف المدن في المربع فإذا كانت موجودة في جدول المدن لا يضيفها الى القائمة واذا كان غير موجود يقوم بإضافتها تلقائيا أما بشأن التقرير فقد ارسلت لك الكود سابقا وعندما فتحت التقرير لم اجد مربعات نص باسم z - z2 فإذا ممكن ان تكتب اسماء الحقول المطلوب تعديلها فقط عمل.rar

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

جرب هذا الملف تكرار حسب الرغبة.rar

تفضل اخي الكريم حل بطريقة سهلة ويعتمد على خلية في حالة التشغيل والايقاف اما بالنسبة لكود اخي في الله فيحتاج الى زيادة اسم اليوزر فورم قبل الكومند بوتن حتى يصل له الامر اما حاليا فسيتعامل مع الزر على انه موجود داخل الفورم النشط والكود هكذا Private Sub CommandButton1_Click() UserForm2.CommandButton1.Visible = False End Sub Private Sub CommandButton2_Click() UserForm2.CommandButton1.Visible = True End Sub إخفاء زر.rar

شرح الله صدرك اخى الكريم وكان في عونك كما تكون في عوننا دائما إليك ما يلى أخى العزيز 1- أنا متابع المدونة تقريبا فيها خمسة دورس حفظت صفحتها وإن شاء الله أقوم قرائتها بعناية وتطبيق ما فيها فأسلوبه جميل بالصور جزاك الله خير وادام الله عطائك. 2- اليوم بإذن الله أطرح تعريف بموضوعى الأساسي والاستفسار الأول الخاص به والذى سيكون بمثابة الأساس لهذا العمل ففضلا كن متابعا. 3- ما تفضلت به هو ما استقرت عليه نفسي وهو طرح العمل وبمساعدتكم واتعلم من خلال محاولتى اجتهادى في القيام ببعض الأمور فيه قدر ما ييسر لى ربى ففضلا عن ضيق الوقت بين العمل والبيت لا أجد في البيت مواضعا للتركيز والحمد لله. 4- بالفعل بدات فى قراءة درسكم الأول من درس القوائم المنسدلة لكم وسأحاول التطبيق في البيت لضيق الوقت أثناء فى العمل. 5- لى رجاء أخير قبل الانتقال للموضوع الجديد من جميع الأخوة المتابعين لأنه سيكون له أولوية في خدمة العمل ومن ثمة في تركيزى عليه وهو تجميع على الأقل ما يفيد النصوص في الاكسل شكر الله لكم

لم أفهم المشكلة الأخيرة يا ريت توضح بالصور ..لأن بالفعل يتم حذف الصفوف بالكامل باستخدام السطر التالي Ws.Rows(sRow + 1 & ":" & lngRow).Delete صراحة بدأت لا أفهم المطلوب بشكل واضح ... وهذا يشتتني بشكل كبير

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

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

تفضلوا ،،،،،، مع ملاحظة الوضع في المرفق هو عندما تكون هناك مهام يجب عرضها. وملاحظة أخرى مهمة : في الاستعلام بدل أن يكون التجميع يعتمد على الدالة last جعلته max لأن last المقصود بها آخر سجل (حسب مافهمته) ،،، ولكن قد يكون مدخل البيانات لايدخل المتابعات بالترتيب كما ستلاحظون في الجدول المرفق،، وبالتالي عند اختيار max سيحسب فعلا التاريخ الأخير للمتابعة حتى ولو لم يكن هو آخر سجل تم ادخاله... ولكن،،، من ناحية أخرى.. قد يكون مدخل البيانات يدخل بياناته بترتيب التواريخ أي ان آخر سجل هو فعليا التاريخ الاخير ، ولكنه أخطأ في الإدخال في احدى المرات وبالتالي في حالة الدالة max سيحدث خطأ في المخرجات نتيجة للادخال الخاطئ ولن يتم عرض آخر سجل . فلمن يريد الاستفادة من الملف الخيار الأصح والأنسب سواء كان last او max...وكل ماذكرته هو حسب تجربتي... والله أعلم. واعتذر للاطالة وأنتم اكثر خبرة مني ولكن قد يستفيد منها أيضا المبتدئون مثلي إن شاء الله ملاحظة هااامة : لقد قمت بتجربة ماذكرته في الأعلى عن الدالتين last و max ولكن وجدت أنه قد تحصل مشكلة كبيرة في حالة كان أحد الحقول التي تطبق عليها الدالة ماكس بها قيم رقمية فسيؤدي ذلك إلى تداخل السجلات مع بعض... إذا فلقد عدت إلى الدالة last كما في المرفق المعدل واعتذر مرة أخرى والسلام عليكم ftasksm.rar

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

أخي الكرم أخونا في الله أسامة السهل الممتنع ..بارك الله فيك وجزيت خيراً على مساهماتك الرائعة والمميزة بالمنتدى

طيب كفكرة قم باستخدام السطر Application.EnableEvents=false قبل بداية الكود .. وبعدين فعله في النهاية .. أعتقد كدا نظرياً ممكن تتحل المشكلة ..

اخي هناك الكثير من الطرق للتحايل على المستخدم بعدم الولوج الى مكان معين و على كل حال فالإخفاء و الاظهار يعتمد على السطرين التاليين CommandButton1.Visible = False CommandButton1.Visible = True

احسنت ... شكرا

كما ذكرت لك ركز على الأساسيات والبدايات والأولويات التي تساعدك بشكل كبير ، وبشكل تتمكن منه من تطبيق الحلول المقدمة لك وفقك الله لما يحب ويرضى تقبل وافر تقديري واحترامي

اخى الفاضل ابو البراء انا مش عارف أشكرك على ايه ولا ايه بارك الله فيك نحن نحبكم في الله

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

شيل علامة الصح يا كبير

أخي الكريم جرب مرة أخرى لقد جربت الكود عدة مرات بالأمس ويعمل بشكل جيد جداً ولا مشكلة فيه .. حيث يتم أولاً حذف الصفوف كلها تحت الصف الرئيسي الذي تقوم بالنسخ منه وحتى نهاية الصفوف التي بها حدود .. ثم يتم التعامل مع بقية الأسطر بالشكل الطبيعي وهذه هي الأسطر التي أضيفت .. Set rngEnd = Range(Mid(Ws.UsedRange.Address, InStr(1, Ws.UsedRange.Address, ":") + 1)) lngRow = rngEnd.Row - 4 Ws.Rows(sRow + 1 & ":" & lngRow).Delete .Rows(sRow + 2).Resize(cnt + 1).Insert

اخى الاعزيز اليك التعديل المطلوب invoice2.rar

السلام عليكم ورحمة الله وبركاته اخي الكريم جرب الملف في المرفق نص متحرك111.zip

تم معالجة الامر cond_format salim 2.rar

استبدل الكود الموجود في الموديول بهذا الكود الجديد بعد إضافة أسطر لتؤدي المطلوب الأخير Sub CopyRow(sSheet As String, sRow As Long, LC As Long) Dim Ws As Worksheet Dim cnt As Long Dim rngEnd As Range Dim lngRow As Long On Error Resume Next Set Ws = Sheets(sSheet) On Error GoTo 0 If Ws Is Nothing Then MsgBox "Sheet " & sSheet & " Doesn't Exist In The Workbook.", vbExclamation, "Sheet Not Found!" Exit Sub End If cnt = Sheets("بيانات المدرسة").Range("B10").Value With Ws Set rngEnd = Range(Mid(Ws.UsedRange.Address, InStr(1, Ws.UsedRange.Address, ":") + 1)) lngRow = rngEnd.Row - 4 Ws.Rows(sRow + 1 & ":" & lngRow).Delete .Rows(sRow + 2).Resize(cnt + 1).Insert .Range(Ws.Cells(sRow, 1), .Cells(sRow, LC)).Copy .Range("A" & sRow).Resize(cnt + 1).PasteSpecial xlPasteAll On Error Resume Next .Range("A" & sRow + 1).Resize(cnt, LC).SpecialCells(xlCellTypeConstants, 3).ClearContents End With Application.CutCopyMode = False End Sub Sub DoIt() CopyRow "بيانات الطلبة", 7, 19 CopyRow "إنجاز1", 7, 15 CopyRow "رصد الترم الأول", 7, 29 CopyRow "أعمال السنة", 7, 15 CopyRow "رصد الترم الثانى", 7, 102 CopyRow "كنترول شيت", 12, 114 End Sub

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

هل تقصد هكذا

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

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

السلام عليكم أما عن معنى هذه المصطلحات فهي : ـ 1 الدوال و المعادلات و الاكواد هي اجراءات نقوم بها لتنفيذ طلب ما سواءا كان هذا الطلب يتعلق بالحسابات او البحث او التاريخ او النصوص او الهندسة . . . . الدوال : هي تابعة لبرنامج الاوفيس و معرفة داخل البرنامج بمعنى مثل دالة الجمع Sum او دالة احصاء مثل Count او دالة بحث مثل Index و هكذا .... المعادلة : هي كأ نقول مثل : نريد جمع الخلية A1 مع الخلية A2 و نريد ان يكون الناتج في الخلية A3 فنقول بكل بساطة A3=A1+A2 مثل المعادلات التي تدرس في المدارس الكود : او ما يسمى بالماكرو و هو تنفيذ مثل ما سبق ذكره في الدوال لاكن بصورة اكبر و بميزات غير موجودة في الدوال و هو يعتمد على كلمات تسمى الكلمات المحجوزة التي لا يمكن استعمالها إلا من خلال الكود مثل الشرط IF أو الحلقات التكرارية ( For ........ Then .......Else ........End IF ) أو Do أو Private أو Sub أو Public . . . . . . .. أما عن كيفية كتابة كود فهو يعتمد اولا على ترجمة ما تريد تنفيذه الى كلام رياضي لا يتناقض مع المنطق بمعنى يقبله العقل ( ترجمة نصية ) ثم نحول هذا الكلام الى كود باستعمال الكلمات المحجوزة التي ذكرناها قبل قليل مثال : اريد ان ابحث في العمود A1:A20 عن كلمة تبدأ بالحرف ( م ) مثلا ـ 1 صياغة ما اريده على شكل نص : يا اكسل اريد منك ان تظهر لي الكلمات الموجودة في العمود السابق بشرط ان تبدأ الكلمة بالحرف م و إن وجدتها لونها بالبرتقالي وإن لم تجدها اخبرني بذلك . و كأنننا نكتب رسالة لشخص ما ـ 2 تحويل هذا الكلام الى كود '----------------------------------------------------------------------- ' حلقة تكرارية ' روح ابحث من الخلية 1 الى الخلية 20 For x = 1 To 20 '----------------------------------------------------------------------- '----------------------------------------------------------------------- ' الشرط ' اذا كان الحرف الاول في اليمين هو حرف م If Right(Cells(x, 1), 1) = "م" Then '----------------------------------------------------------------------- '----------------------------------------------------------------------- 'جواب الشرط ' لون الخلية بالبرتقالي Cells(x, 1).Interior.ColorIndex = 46 '----------------------------------------------------------------------- '----------------------------------------------------------------------- ' احتمال عدم تحقق الشرط Else '----------------------------------------------------------------------- '----------------------------------------------------------------------- 'اظهر لي مساج يؤكد عدم وجود ما طلبته MsgBox "لا توجد نتائج" '----------------------------------------------------------------------- '----------------------------------------------------------------------- ' انهاء الشرط End If '----------------------------------------------------------------------- '----------------------------------------------------------------------- ' اكمل حتى الرقم 20 الموجود في اول الكلام Next '----------------------------------------------------------------------- ملاحظة هذا الشرح لا يعتمد على منهجية علمية بل يعتمد على تجربة خاصة فقط

فيديو لإظهار قيم نتائج متعددة باستخدام دوال If, small, index, iferror وهو ما تعجز عنه دالة vlookup ودوال index مع match وتغنى عن دالة Vlook2all اليكم الرابط

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

ربنا يعينك ياعم ابو البراء على مشكلتك عالم ولاد ستين في سبعين يعني 4200 المهم حبيبي الغالي قل الحمد لله على كل حال تقبل تحياتي

أعتقد أن هناك مكتبة Reference يجب أن تضاف للملف لكي يعمل الكود .. ولا تنسنى تنصيب برنامج الأكروبات النسخة البروفيشنال اقرأ التعليقات داخل الكود Adobe Acrobat xx.0 Type Library

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