ياسر خليل أبو البراء

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

تفضلوا إخواني هذا الجزء وأبدوا رأيكم.... Formulas Library.rar

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

أخي الفاضل لا تأخذ الكلام بهذا المحمل فأنت فوق الرأس وفي القلب كل ما في الأمر لابد دائما من توضيح المطلوب وأن تكون الأمور واضحة كي يستطيع الأخوة الأعضاء مساعدتك ويا أخي حقك علينا لو تقلنا عليك في الكلام تقبل اعتذاري :fff:

تفضل أخي محمد الريفي هذا ما أقصده Formulas Library.rar

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

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

أخي الفاضل طارق جرب المرفق ‫طارق زكريا - نسخة.rar

أستاذي جمال لم أرى ردك ..عفوا أستاذي ولكن يبدو أن أفكارنا تلاقت تقريبا

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

بسم الله ما شاء الله ملك المعادلات وصل ..فينك يا أخي جمال ليك وحشة والله حل رائع من شخص رائع ممكن بس ملحوظة صغيرة لما أمسح البيانات كلها من B4:O21 يعني أخلي كل الأعمدة صف واحد ، بيظهر في النتائج الأعمدة مش في نفس ترتيبها ليه؟

عند حفظ الملف يظهر لك 3 اختيارات اختار No ثم حدد اسسم للحفظ وحدد نوع الحفظ Macro Enabled.. أعتقد هذه هي مشكلتك

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

بارك الله فيك أخ سليم جرب تمسح محتويات النطاق من A4:D13

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

أخي الحبيب قم بتحديد أي خلية من النطاق A1:A3 واضغط على زر الأمر ..سيظهر في الكومبوبوكس قيمة الخلية المجاورة للخلية النشطة ComoBox In Form.rar

الأخ الفاضل فؤاد بعد إذن أخي وحبيبي في الله الأستاذ خالد .. جرب الكود بهذا الشكل: Private Sub Workbook_BeforeClose(Cancel As Boolean) If [IK41421] >= 3 Then GoTo 1 [IK41421] = [IK41421] + 1 1: ThisWorkbook.Save End Sub Private Sub Workbook_Open() On Error Resume Next Sheets("Sheet1").Select If [IK41421] >= 3 Then 'MsgBox "لقد استخدمت البرنامج 3 مرات ولن يفتح إلا بكلمة مرور" Dim pwd As String: pwd = "KHMB12345" Cells(Rows.Count, Columns.Count).Activate If Application.InputBox("برجاء إدخال كلمة المرور لفتح الملف مرة اخري حيث فتح الملف ثلاثون مره ولا يمكن فتحه مرة اخرى الا بالرقم السري", "تصريح دخول للملف ", "???") <> pwd Then Sheets("Sheet1").Select Workbook.Update MsgBox " كلمة المرور غير صحيحة ! من فضلك راجع مسئول النظام حيث تم فتح الملف 3 مرات ، ولا يمكن فتحه مرة أخرى إلا بالرقم السري", 0, "عفواً الدخول محظور" ThisWorkbook.Save ThisWorkbook.Application.Quit Else Range("IK41421").Value = 0 Range("A1").Select End If End If End Sub

بسم الله ما شاء الله ..رائع يا باشمهندس حلولك دائما ما تعجبني أنا أقول عنك دائما السهل الممتنع (السهل الذي لا يستطيع أحد أن يجاريك في سهولتك) روعة روعة فينك يا كبير من المشروع (دا حتى اسم المشروع يشجعك على البناء فيه بحكم تخصصك) عايزين رأيك في مكتبة الصرح والمشاركة فيه بشرط (لو عجبك المشروع ) أما إذا لم يعجبك ، فدلت الكلام اللي قلته ومتسيفش Delete Not To Save

هل تقصد بترتيب الأعمدة فرزها ؟؟ أم ترتيب الأعمدة إعادة هيكلة الأعمدة ، ليأتي العمود الأقصر في العمود A ثم الأطول منه في العمود B ثم الأطول منهما في العمود C وهكذا

أخي الفاضل ارفق ملف لمساعدتك ، حيث أن كل شخص يقوم بعمل الشيت بما يلائمه ويختلف أحيانا بشكل كبير ارفق ملفك ..وبلاش الناس تضايقك من إرفاق الملفات (ساعدني عشان أساعدك)

جرب الكود Sub ragab() Application.ScreenUpdating = False Dim R As Integer, M As Integer Sheets("ناجح").Range("B5:K4000").ClearContents Sheets("راسب").Range("B5:K4000").ClearContents M = 6: N = 6 For R = 6 To 400 If Cells(R - 3, 4).Value = "ناجح" Then Cells(R - 3, "C").Resize(, 2).Copy Sheets("ناجح").Range("B" & M).PasteSpecial xlPasteValues Application.CutCopyMode = False M = M + 1 ElseIf Cells(R - 3, 4).Value = "راسب" Then Cells(R - 3, "C").Resize(, 2).Copy Sheets("راسب").Range("B" & M).PasteSpecial xlPasteValues Application.CutCopyMode = False N = N + 1 End If Next Application.ScreenUpdating = True End Sub

جرب الكود التالي: Private Sub UserForm_Initialize() ComboBox1.Value = ActiveCell.offset(0,-1).Value End Sub

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

نعم أخي يمكنك تكرار الكود ولكن باستخدام هذا السطر مرة أخرى مع النطاق الجديد If Not Intersect(Target, Range("H3:H8")) Is Nothing Then هنا يتم العمل على النطاق الجديد End If

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