محمد طاهر عرفه

ملاحظة : تم تعديل الملف بعد تنزيله 4 مرات يرجي اعادة التنزيل ممن أنزلوه مع تحياتي

يوجد اضافة ال Solver فى الاكسيل و هو يضاف من ال add-ins

افتح الصفحة ثم tools options use current

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

اما اذا أردت كل الاسماء فلا تضعي أي معايير و انما تكتلفي بالتجميع بالاسم فقط

باضافة المعايير فى نفس السطر فهذا يعني أن الاسم سارة ، و ، فاطمة و هذا لن يتحقق و انما تلغي الاسم الثاني و تضيفي المعياران فى الاسم الاول الاول فى خانة المعيار و الثاني فى الخانة التي تكون فى اسفلها أمام سطر OR أي "أو" هذا اذا أدرت اظهار سارة و فاطمة فقط

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

موضوع مرتبط يمكنك من خلاله نقل الملفات الخاصة بالمراجع http://www.officena.net/ib/index.php?showt...view=getnewpost

لتغيير دقة الارقام الموجودة فى خلايا و اظظهار الناتج فى خلايا أخري يمكننا استخدام دوال عديدة كما ورد فى عدة أمثلة فى المنتدي سواء جاهزة مثل round,roundup او دوال اضافية و هنا يظهر الناتج فى خلايا جديدة أو نقوم باختيار أن تكون الدقة مناظرة للتنسيق الظاهر ، من Tools, options, Calcualations precision as displayed أما المثال المرفق فنقوم فيه باختيار الخلايا المطلوب تغيير دقتها و نشغل أحد الكودين الاول للتقريب العادي و الثاني للتقريب للاعلي ، و تظهر رسالة تسأل عن درجة دقة التقريب المطلوبة و الثالث للتحويل الي القيمة الصحيحة فقط ووجدتني أحتاج ذلك فى بعض الملفات ، و أرجو أن يكون مفيدا :( ملاحظة : لا تطبقه علي خلايا بها معادلات لانه سيقوم بتحويلها الي القيم المناظرة و يلغي المعادلات و انما علي الارقام المباشرة فقط Sub rounditapprox() Dim rr, cc, ap As Integer ap = InputBox("Enter the Number Of digits for Approximation", "www.officena.net", 0) rr = Selection.Rows.Count cc = Selection.Columns.Count For i = 0 To rr - 1 For j = 0 To cc - 1 ActiveCell.Offset(i, j) = Round(ActiveCell.Offset(i, j), ap) Next j Next i End Sub Sub rounditapproxUP() Dim rr, cc, ap As Integer ap = InputBox("Enter the Number Of digits for Approximation", "www.officena.net", 0) rr = Selection.Rows.Count cc = Selection.Columns.Count For i = 0 To rr - 1 For j = 0 To cc - 1 ActiveCell.Offset(i, j) = Application.WorksheetFunction.RoundUp(ActiveCell.Offset(i, j), ap) Next j Next i End Sub Sub takeinteger() Dim rr, cc As Integer rr = Selection.Rows.Count cc = Selection.Columns.Count For i = 0 To rr - 1 For j = 0 To cc - 1 Dim mycell As Double mycell = ActiveCell.Offset(i, j).Value * 100 ActiveCell.Offset(i, j).Value = ((Round(mycell, 0) - Round((mycell Mod 100), 0)) / 100) ActiveCell.Offset(i, j).NumberFormat = "#,##0" Next j Next i End Sub RoundSelection.rar

مثال لمقارنة قيميتين فى عمود السحب و الرصيد و منع تعدي المسحوب للرصيد فى العمود باكمله Rassed1.rar

مثال الاخ أحمد referenceFiles.rar

http://www.officena.net/ib/index.php?showt...pic=1296&hl=asp

نعم هذا هو الوضع الامثل و نرجو أن تقبل ذلك يا أخ مصلح من أجل مصلحة المشروع :(

الكود للاخ أمير Private Sub Worksheet_Change(ByVal Target As Range) If Worksheets("Sheet1").Range("A1").Value > Worksheets("Sheet1").Range("A2").Value Then If MsgBox("الرصيد لا يسمح بزيادة عدد" & " " & _ ((Worksheets("Sheet1").Range("A1").Value) - (Worksheets("Sheet1").Range("A2").Value)) _ & " " & "وحدة .. هل تريد الإستمرار أم نضع الحد الاقصي للاستمرار اختار نعم", vbQuestion _ + vbYesNo, "رسالة تنبيه") = vbNo Then Range("A1").Value = Range("A2").Value Exit Sub End If End If End Sub مرفق المثال CompareValue_amir.rar

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

موضوع مرتبط http://www.officena.net/ib/index.php?showtopic=1827

التحويل يتم من نسخة 2000 , و ليس 97 أي من الاصدار الاعلي الي الاقل فى نسخة الاصدار الاعلي

جرب التقرير فى هذا المثال الأجنبي :pp: justidirect.zip

موضوع مرتبط http://www.officena.net/ib/index.php?showtopic=857

اللهم هبهما النجاح و الفلاح و الصلاح و صالح الأعمال

بل الشكر لك أخي الكريم علي الملف و ملاحظة علي السريع لجميع الأخوة رجاء مراجعة صفحة "عن الموقع" فى الصفحة الرئيسية www.officena.net و صفحة قواعد المشاركة و خصوصا أن أي من الأخوة يود الانضمام الي مجموعة الأعضاء* الموصوفة فى الصفحة الرئيسية يمكنه ذلك مباشرة ، بل و يسعدنا ذلك ، علي أن يكون استخدام خاصية تحميل الملفات الي الموقع فى اطار القواعد المعلنة أي لاضافة مثال أو شرح و ليس لطرح استفسار فى صورة مثال مع تحياتي للجميع

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

اضافة بسيطة يفيد فى منع الاستيراد وضع كلمة سر علي القاعدة نفسها و لتصعيب المهمة علي بعض برامج كسر كلمة السر اجعلها طويلة و مكونة من حروفو ارقام و capital & small

و نحن فى الانتظار :d و جزاك الله خيرا

السلام عليكم الدروس السابقة تم تقسيمها الي مواضيع فى الاقسام المناظرة من أقسام خلاصة المشاركات بالنسبة للعلاقات و أسس تصميم قواعد البيانات هذه وصلة لموضوع فى الفريق العربي قام بشرحها الأخ internet master باسلوب ممتاز ( و لو أنه له وجهات نظر مخالفة لمحبي الأكسيس قد أشار اليها فيه :( ) و لكن الدروس ممتازة آمل أن تكون أوضح بالنسبة لك من شرحي http://www.arabteam2000-forum.com/index.ph...showtopic=35237 و مرفق ملف به كامل الموضوع : مرفق ملف بمحتويات الموضوع InternetMaster.rar