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

الكود للاخ أمير 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

السلام عليكم المقصود بتخطيها ، هو عدم الوقوف عليها سواء عند التحرك ب tAB أو Enter أو بالاسهم و بالنسبة لحماية الخلايا ، هي موجودة فى الاصدرات السابقة ، و لكن لتفعليها فى 97 مثلا لا يتم اتباع نفس الخطوات المشروحة ، و انما هناك اختلاف فى المسميات

من المعروف أن ترك الخلية خالية فى ورقة العمل فى الاكسيل ، يناظر كتابة صفر فيها أي لا يوجد فرق فى العمليات الحسابية فى ورقة العمل بين ترك الخلية خالية الوفاض ، و بين كتابة صفر فيها عند اجراء العمليات الحسابية مباشرة فى ورقة العمل بدون دوال أو كود . و أحيانا يكون مطلوبا فى الاكسيل تجاهل قيمة الخلايا الخالية و/أو التي بها أصفار عند ضرب مجموعة خلايا أو اجراء أي عمليات حسابية و لا يخفي عليكم فائدة معادلة ال IF في ذلك ، و لكنها في بعض الاستخدامات تكون مرهقة لكثرة الحاجة الي كتابتها لذا أضفت فى الملف المرفق دالتين ، nz لتجاهل قيمة الخلايا الخالية فقط و استبدالها بواحد و nz0 لتجاهل كل من الخلايا الخالية و التي بها أصفر ، و استبدالهما بواحد صحيح فى معادلة الضرب و أضاف الاخ احمد شرف ـ، ما يناظرهما من معادلات ال if فى ورقة العمل بالطريقة التقليدية و أتصور أن الدالتين NZ و NZ0 الموجودتان فى الملف المرفق ، لهما استخدامات كثيرة علي الرغم من بساطتهما Function nz0(mycell) If mycell = "" Or mycell = 0 Then mycell = 1 End If nz0 = mycell End Function Function nz(mycell) If mycell = "" Then mycell = 1 End If nz = mycell End Function NZ.rar

اعتقد انه لا يمكن اخفاء المعادلات من الشريط لخلايا غير محمية علي ما أعرف ، و لكن ربما تقصد اخفاء الشريط نفسه Tools options view formula bar

افتح الملفان اختار وضع اظهار الكودALT+F11 اسحب الماكرو من هاذ الوضع بين المفان او قم بتصدير الموديول من الاول ثم استورده الي الثاني او استخدم النسخ و اللصق للكود بينهما

أيضا من ماذا تنتج كلمة DRH فى الاكسيس اصلا هل من تنسيق الرقم أم تضيفها الي المعادلة اذا كانت الثانية فعليك بتغييرها قبل النشر

للنزول الي سطر جديد اضغط CTR+ENTER أو من تبويب Other Enter Key Behaviour New Line و بالنسبة لمربع النص ، توجد خاصية Can Grow من تبويب Format و لكن أعتقد أنها فعالة فى التقارير و ليس فى نماذج الادخال و يمكن الاستعاضة عنها بتفعيل خاصية Scroll Bar = Vertival من تبويب Format

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

اللهم اهده و ايانا الي الصراط المستقيم و اجعله علما ينتفع به

صراحة حاولت فى الكود لعمل ربط مع ملف النص مثلما فعلنا مع الجداول ، و اعادة التوجيه و لكن لم أنجح فى اتمامه و سارفق محاولتي ، ليجد أحد الاخوة الخطأ فى الكود و ساحاول فيه لاحقا باذن الله ، و آمل أن ينظر فيه أحد الاخوة الذين لهم خبرة بالكود و الفكرة فى عمل حذف للرابط لجدول اسمه M مربوط بالفعل اولا الي ملف نص موجود فى c:\m ثم حذف الرابط ، و اعادة توجيهه بالكود الي ملف النص فى مفس المجلد و لكن اسمه بتاريخ اليوم Link_DATE.rar

السلام عليكم أقصد File Page Setup ثم أخر Tab المسماة Sheets ستجد منطقة الطباعة محددة باسماء الخلايا مثلا E1:E27 و هي تمثل الصفحة الاولي و عدل خلية النهاية برقم الخلية المطلوبة ---------- و لمعرفة الخلية التي تمثل نهاية الصفحة فاظهر الشيت فى وضع ال page break view من قلئمة view لتعرف رقم الخلية التي تمثل نهاية الصفحة التي تريد ثم عدلها

افتح fiile set print area آخر tab و عدل معادلة منطقة الطباعة بتعديل آخر رقم للخلية

أضف الروتين و الدالة التاليين الي موديول فى الملف ثم علم علي الخلايا المطلوب تعديلها ثم شغل الماكرو سيتم ازالة الاصفار التي فى اليسار ايا كان عددها Sub remove0() For i = 1 To Selection.Rows.Count ActiveCell.Offset(i - 1, 0).Value = rem0(ActiveCell.Offset(i - 1, 0).Value) Next i End Sub Function rem0(myval) mycount = 0 For j = 1 To Len(myval) If Mid(myval, j, 1) = "0" Then mycount = mycount + 1 Next rem0 = Right(myval, Len(myval) - mycount) End Function

مثال آخر و لكن التنبيه بعد تجاوز الاربعة تكرارات Private Sub Worksheet_Change(ByVal Target As Range) Dim Mymat(20) As Double For i = 1 To 20 Mymat(i) = Range("a1").Offset(i - 1, 0).Value Next Dim mcounter As Integer For i = 1 To 20 mcounter = 0 For j = 1 To 20 If Mymat(i) = Mymat(j) And i <> j And (Not Mymat(i) = 0 Or Not Mymat(j) = 0) Then mcounter = mcounter + 1 If mcounter > 3 Then MsgBox "The Value (" & Mymat(i) & ") is duplicated for more than 4 times in the range A1:A20" Exit Sub End If End If Next j Next i End Sub