عبدالله المجرب

اخي capitala تفضل المرفق طبعاً بعد اذن الاستاذ جو ابواحمد capitala.rar

الاخ الفاضل amroraheel فكرة جميلة وللامام وننتظر المزيد منك ابواحمد

اخي الغريب بفضل الله تبارك وتعالى ثم بمساعدة الاستاذ كيماس (ابا عمر) حفظه الله ورعاة تفضل الكود بعد التعديل Sub dellduplicates() Dim MyRng As Range Set MyRng = Range(ActiveCell, Cells(Rows.Count, ActiveCell.Column)) MyRng.Select Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = ActiveSheet.UsedRange.Rows.Count + 1 To 3 Step -1 x = Application.WorksheetFunction.CountIf(MyRng, Cells(i, ActiveCell.Column)) If x > 1 Then Cells(i, ActiveCell.Column).EntireRow.Delete Next i Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub ابواحمد

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

اخي ابونصار بفرض ان الرقم 3.4 في الخلية A1 والرقم 2.55 في الخلية A2 والرقم 1.67 في الخلية A3 اليك المعادلة =ROUND(SUM(A1:A4);0) جرب واخبرني النتيجة ابواحمد

اخي الموسطي تفضل المرفق بخصوص كلمة السر 123 الملف لا يحوي كلمة سر نسخ56.rar

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

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

اخي القومي تفضل المرفق للعلم لتشكيل الكلمه دور مهم (الدالة من عمل الاستاذ مهند عبادي) ابواحمد Book1.rar

اخي ابو موضي استعمل الملف المرفق لاظهار الادوات ابواحمد Book122.rar

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

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

اخي ياسر للمطلوب الاول والثاني اضف هذه المعادلة في محرر الاكواد في حدثورقة العمل ((الرصيد)) للعلم فان كلما كان المدى كبيرأ كلما اصبح الملف ثقيلاً Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False For Each cel In Range("E4:E100") If cel.Offset(0, -2).Value < 200 Then cel.Value = "حمص" If cel.Offset(0, -2).Value >= 200 Then cel.Value = "" If cel.Offset(0, -2).Value = "" Then cel.Value = "" Next cel For Each cel In Range("J4:J100") cel.Value = cel.Offset(0, -2) - cel.Offset(0, -1) Next cel Application.ScreenUpdating = True End Sub ابواحمد STOR1.rar

اخي ياسر للمطلوب الثاني اضف هذه المعادلة في محرر الاكواد في حدثورقة العمل ((الرصيد)) للعلم فان كلما كان المدى كبيرأ كلما اصبح الملف ثقيلاً Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False For Each cel In Range("J4:J1000") cel.Value = cel.Offset(0, -2) - cel.Offset(0, -1) Next cel Application.ScreenUpdating = True End Sub ابواحمد

السلام عليكم ورحمة الله وبركاته تفضل المرفق فيه شرح بالفيديو على السريع ابواحمد الشرح 2011.rar

الاخ الفاضل ابوموضي من وجهة نظري كون المنتدى متخصص في الاوفيس ان افضل برنامج لكسر حماية اي ملف اوفيس وكذلك كسر حماية محرر الاكواد تجده في هذا الرابط مع الشرح للاخ الفاضل ابوكرم حفظه الله وهي المشاركة رقم 15 http://www.officena.net/ib/index.php?showtopic=32477&st=0 ابواحمد

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

اخي يوسف لتنفيذ الميكرو هخناك عدة طرق منها اليدوي ومنها الاوتوماتيكيا بمجرد فتح الملف الطريقة اليدوية 1. يمكنك عمل اختصار لتنفيذ الكود بمجر الضغط على ازرار الاختصار يتم تنفيذ الكود ((المرفق للتوضيح)) والاختصار هو : Ctrl+Shift+A 2. يمكنك انشاء زر ووضع الميكرو في حدث ضغط الزر حتى يتم تنفيذه ((موجودفي ملف الاستاذ كيماس)) الطريقة الاوتوماتيكية يمكنك وضع الكود في حدث ورقة العمل ليتم تنفيذه تفعيل ورقة العمل ((في المرفق امسح ناتج الجمع ثم اذهب الى الورقة 2 وبعدها اذهب الى الورقة 1 ولاحظ انه تم تنفيذ الميكرو )) ان شاء الله وضحت الصورة ابواحمد المرفق 1.rar

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

السلام عليكم ورحمة الله وبركاته جمعة مباركة على الجميع اخي بوعلام انا اسف على الخطاء الغير مقصود والتعديل في المعادلة سيكون كالتالي =IF(AND(M10<>"معفى";N10<>"معفى");B9;"معفي") وذلك لاثراء الموضوع كما نشكر الاستاذ الفاضل اخونا بن عليه على حله الممتاز ابواحمد

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

ولا يهمك في هذه الحالة المعادلة تكون كالتالي =IF(AND(M9<>"معفى";N9<>"معفى");"معفي";B9) ابواحمد

اخي ابوعلام اكتب هذه المعادلة =IF(AND(M9="معفى";N9="معفى");"معفي";B9) في الخلية V9 في ملفك واسحب للاسفل ابواحمد

بعد اذن والدنا الفاضل الاستاذ جمال دغيدي حفظه الله ورعاه وامده بالصحة والعافية وطول العمر المرفق فية النطلوب ان شاء الله تفي المعادلة الجديدة بالغرض تم اضافة ما اردت جرب المرفق وانتظر رايك ابواحمد date weld al magrab.rar

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