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

السلام عليكم لاحظت كثرة الأسئلة حول كيفية البحث بتجاهل أنواع الألف (ا أ إ آ) فقررت إنشاء موضوع أشرح فيه هذه الطريقة مع وضع مثال بسيط. مثلا عندما أبحث عن كلمة أحمد يكفي أن أكتب: احمد فتظهر الأسماء المكتوبة بالهمزة و بغير همزة. و غيرها مع باقي الأنواع. الكود المستعمل: Dim rst As String, x As String, CrtTxt As String Dim i As Integer, RC As Integer Dim homm As String homm = Me.t2.Text Me.t3.Value = homm CrtTxt = "Like ""*" & Me.t3 & "*""" If InStr(1, Me.t3, "أ") > 0 Or InStr(1, Me.t3, "ا") > 0 Or InStr(1, Me.t3, "إ") > 0 Or InStr(1, Me.t3, "آ") > 0 Or InStr(1, Me.t3, "ى") > 0 Or InStr(1, Me.t3, "ي") > 0 Or InStr(1, Me.t3, "ه") > 0 Or InStr(1, Me.t3, "ة") > 0 Then CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Me.t3, "ا", "أ") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Me.t3, "ا", "آ") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Me.t3, "ا", "إ") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Me.t3, "ة", "ه") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Me.t3, "ه", "ة") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Me.t3, "ى", "ي") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Me.t3, "ي", "ى") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "أ"), "ي", "ى") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "آ"), "ي", "ى") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "إ"), "ي", "ى") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "أ"), "ى", "ي") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "آ"), "ى", "ي") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "إ"), "ى", "ي") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "أ"), "ة", "ه") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "آ"), "ة", "ه") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "إ"), "ة", "ه") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "أ"), "ه", "ة") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "آ"), "ه", "ة") & "*""" CrtTxt = CrtTxt & " or [الكود] Like ""*" & Replace(Replace(Me.t3, "ا", "إ"), "ه", "ة") & "*""" End If rst = ("SELECT * FROM [جدول1] where [الكود] " & CrtTxt & ";") Me.salah.Form.RecordSource = rst Me.salah.Requery و هذا مثال على ذلك: البحث بتجاهل أنواع الألف.rar وهذا رابط فديو شرحت به البرنامج:

اتفضلوا فقط انا اضفت هذه السطور للفانكشن MsgBox IsFontInstalled Exit For Else IsFontInstalled = False MsgBox IsFontInstalled Exit For اليك ملف بعد اضافة Check If a Font Installed.accdb

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

اتفضل اليك القاعدة بعد تعديل برنامج العطاء للعقارات.rar

اتفضل اليك هذا Private Sub Form_Current() If IsNull(Me.ply_id) = False Then Me.ply_nam.Locked = True Else Me.ply_nam.Locked = False If IsNull(Me.fr_id) = False Then Me.fr_nam.Locked = True Else Me.fr_nam.Locked = False End Sub db5_UP.accdb

اليك هذا شو رأيك اذا تغير الاسم سيتغير الكود وبلعكس القي نظرتا اليه db5_UP.accdb

اتفضل اليك هذا =Sum([idd])+Sum([nu]) New Microsoft Access Database.rar

مرحباً @Shivan Rekany السباق دائماً للخير منذ دقائق انتهيت من إعداد طريقة عمل القوائم المعتمدة على بعضها Cascading combobox dependent combobox و الآن إني مشوق لأرى الطريقة التي عملتها .

اتفضل حسب ما ورد في مشاركتك تم عمل اللازم اضافة حقل جديد في جداول الصف و القسم والقي نظرتا الى مصدر كومبوبوكس الثاني و الثالثبيان.rar

السلام عليكم ورحمة الله وبركاته بعد ان استفاضنا فى المناقشات فى هذه المشاركة http://www.officena.net/ib/topic/63756-نسخ-قاعدة-بيانات-الجداول-المرتبطة-فقط-عند-الخروج/ وقام استاذنا ابوخليل بامدادنا بكود اكثر من رائع .. فبارك الله فيه وجزاه الله عنا كل الخير له ولاولاده Shell "cmd.exe /C copy " & """" & DBOld & """" & " " & """" & _ DBNew & "\" & Format(Now(), "yymmddhhnn") & ".mdb" & """", 0 فخطرة ببالى فكرة تطوير اداه (لضبط خيارات النسخة الاحتياطية للجداول المرتبطة عن طريق قاعدة الواجهات كل فترة زمنية بطريقة تلقائية ساعة / يوم / شهر / سنة) والكود الذى امدنا به استاذنا العزيز ابو خليل يتحكم فى الموضوع ولكن من داخل الكود ــ بمعنى لو انت حبب تعمل نسخة كل ساعة عند الخروج من البرنامج لازم ترجع للكود وتحذف hh وهكذا على النحو المشار بالمشاركة المدرج رابطها بعاليه yymmddhhnn الفكرة تتلخص فى نموذج تظبط منه الاعدادات التالية وتحفظ الاعدادات لمرة واحدة واذا ارات تغيير الاعدادات عليك بالذهب الى النموذج واعادة الضبط مرة اخرى وهكذا انظر الصورة المطلوب هو التعديل على الكود حتى يتناسب مع النموذج المرفق حسب ما هو مبين بالصورة مرفق القاعدة main1.rar برجاء فك الضغط داخل البارتشن ال D محمد سلامة main1.rar

الاخوة الافاضل , الموضوع: لدي دالة للتأكد هل الخط مسطب في النظام ام لا. المطلوب من فضلكم هو: اضهار رسالة اذا كانت اجابة نتيجة الدالة ايجابية (True). او اضهار رسالة اخرى اذا كانت نتيجة اجابة الدالة سلبية (False). مع الشرح بعد التعديل اذا امكن. وشكرا. Check If a Font Installed.accdb

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

Private Sub Command112_Click() If IsFontInstalled("Arial") = True Then MsgBox "الخط مثبت على الجهاز" Else MsgBox "الخط غير مسطب على الجهاز" 'Call IsFontInstalled("Anehila") End Sub بالتوفيق

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

:: تحية للأستاذ شيفان :: تفضل هل هذا يناسبك .....؟ db6_UP.rar

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

أذا سمحت أستاذنا الغالي @Shivan Rekany قمت بأضافة للكود محاولاً لكن .. أعتقد أني لم أصل للمطلوب هل يمكن أن تظيف التالي .. في حالة وجود الخطوط .. ظهور مسج بأن الخطوط موجودة مع اسماء الخطوط ، والخروج من الكود .. في حالة لم توجد واحد منها أو جميعها .. تسطيب الخطوط 3 المرفقة أو الناقص .. وظهور مسج بأسماء الخطوط "تم تنصيب الخطوط (digital-7) و (DS-DIGI) و (Ticking Timebomb BB)" مرفق الملف مع الخطوط إضافة الخطوط للويندوز.rar

السلام عليكم ورحمة الله وبركاته @ابو ياسين المشولي @محمد التميمي @qathi شكرا لمشاركتكم معنا حتى الان انا استخدم جدولين منفصلين وليس لدي مشكلة بعد لكن انا افكر ان جدول واحد نقدر ان نعمل استعلام بشكل احسن و اسهل خاصتا عند عمل استعلام الرصيد المواد المتبقية لكن راح ننتظر للآراء الاعضاء الكرام لمن لديه خبرة في ذلك واتمنى ان اجد كل من استاذ @ابوخليل و @jjafferr و @أ / محمد صالح و @رمهان و @أبو آدم و @أبو إبراهيم الغامدي و @صالح حمادي و @أبو عبدالله الحلوانى و @محمد سلامة و @Elsayed Bn Gemy و @محمد طاهر و كل من لديه نقطة واحدة عن مزايا او العيوب كلا من الطريقتين حسب ما صار معه في استخدام الطريقتين تقبلوا تحياتي

جرب هذا DoCmd.OutputTo acOutputQuery, "إحصاء أنواع الصكوك الواردة لكل مفتش بتاريخ محدد", acFormatRTF, "D:\التقارير\إحصاء أنواع الصكوك برقم الوارد لجميع المفتشين بتاريخ محدد.rtf"

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

صراحه ما بدري كيف اشكرك استاذ كنا ري فكان انا بدي 'طلب كود صغير مشروط بعلامه الصح الا اعملها انا بالجدول فظرت لي بشي افرحتني فيه كثير اسال الله ان يزيدك علما يحفظك عمل جميل وممتاز وكرم من كريم راح اعمل عليه من اليوم صاعد ولكن لي طلب يالغالي ممكن تعرب لي الاسماء العناصر بالنماذج كي افهمه اكثر اخوك ضعيف بالانجليزي وكيف اذا عمل نماذج كيف اظهرها بنموذج Users Ability عشان اعطيه صلاحيه او لا تحياتي

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

السلام عليكم ...أنظر المرفق به يوزرين الاول صلاحيات كاملة والاخر بدون فتح النموذج : 1 1 الثاني 2 2 kan1.accdb_2.zip

حبذا لو ادرجت مثالا ليتم التجربة عليه ..... على العموم أنظر هذا الكود ... DoCmd.OpenForm "ab", , , , , acHidden Call Forms("ab").bu100_Click 'نفترض أن النموذج الاول هو ab 'نفترض وجود زر في النموذج الاول لأدراج السجل والتحديث هو b001_Clik

مبهر كالعادة استاذى @Shivan Rekany

في الربط في الحذف في الاستعلام في المرتجع ما يكون في لخبطه

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

راي المتواضع جدولين افضل

استاذى دائما عندك الحلول السريعة استاذى @Shivan Rekany اعد تحميل المرفق اخى الكريم فانه لا يفتح الارشيف

اتفضل db3.accdb.zip

شكرا إلك كأني دايقتكك ياغالي

شكراً جداً أستاذ ali mohamed ali

تفضل أخى أحمد يوسف ويبقى تحديد رقم الفاتورة للذهاب إليها NO_okk_TEST2.xlsm

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

اتفضل تم استخدام هذا Private Sub Form_Current() Me.AllowEdits = False End Sub Private Sub Isall_DblClick(Cancel As Integer) If InputBox("اكتب رقم سري خاص للتمكين التعديل السجلات", "تمكين ومنع التعديل") = 123 Then Me.AllowEdits = True MsgBox "تم تمكين تعديل السجلات" Else Me.AllowEdits = False MsgBox "تم منع التعديل السجلات" End If End Sub قم بنقر المزدوج على رقم ايضال سيفتح لك نافذة واذا كتبت عليه رقم سري بشكل صحيح سيتمكن التعديل على ذاك السجل واذا اخطأت لا يمكنك التعديل واذا رحت الى سجل اخر بعدين سيقفل من جديد ولا يمكنك التعديل الا بعد ادخال رقم سري من جديد اليك القاعدة بعد تعديل1.ACCDB

:: تفضل db5_UP.rar

بارك الله فيك وجزاك الله كل خير استاذى الكبير طارق

السلام عليكم ورحمة الله وبركاته اقدم الى المكان الذى لا انسى فضله علي هذا العمل المتواضع تقبل الله منا ومنكم صالح الاعمال . بسم الله ◀مؤشرات قياس الاداء (KPIS) Key Performance Indicators وهو مقياس كمى لقياس هدف الاعمال والتى ترتبط بالاستراتيجية الخاصة بالشركة وهى مقياييس تسمح للاداره بتقييم الاداء بصوره سريعة وهى تستخدم مؤشرات مالية وغير مالية لمقارنة الاهداف الموضوعه . ◀وقد تناولنا فى هذا النموذج الخاص KPI كيفية قياس مدى تحقيق الهدف لمديرى ومشرفين وفريق المبيعات وتكون هذا النموذج من ◀ورقة عمل الهدف الاستراتيجى : وهنا يتم ادخال فترة التطبيق وشكل مؤشرات الهدف ورد الفعل المناسب فى حالة تحققه ◀ورقة عمل من 1 : 20 : وهى بمثابة اجنده شهرية لكل فرد يسجل فيها التارجيت او الهدف واجمالى المتحقق اليومى وهنا سيعرض لك KPI يومى وشهرى وايضا يوجد ملخص عام فى الاعلى ◀ورقة عمل التقرير العام : وهى تشمل قياس الاهداف لكل فرد بشكل يومى وشهرى وهنا يتم طباعة هذه الصفحة وارسالها لمتخذى القرار باى شكل . هذا وماكان من توفيق فمن الله وحده وماكان من خطأ او سهوا او نسيان فمنى ومن الشيطان والله والرسول منه براء ------------------- النموذج متاح للجميع تحميله وكلمة المرور هى 123 نصيحة : يمكنك التعديل على النموذج كما تريد خذ الافكار وطبق على مجال عملك --------------- تحميل الملف http://www.mediafire.com/file/501t47bzv7oh3zh/KPI-2018.xlsm/file ------------------- #خبير_اكسيل #KPI_EXCEL #EXCEL_BI #زكاة_العلم_نشره لاتنسونا بصالح دعاؤك يرجى مشاركة الجميع KPI-2018.xlsm

استاذ عبد الرحيم لو ممكن بعد اذن حضرتك تعديل هذا الكود لكى يعمل مضبوط فهو كود لجلب صنف معين بين تاريخين من صفحة الى اخرى جزاك الله كل خير Sub filter_for_ME() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim S_sh As Worksheet: Set S_sh = Sheets("Data") Dim T_sh As Worksheet: Set T_sh = Sheets("Search2") Dim My_Table As Range: Set My_Table = S_sh.Range("A1").CurrentRegion With T_sh .Range("A2").CurrentRegion.EntireRow.Delete .Range("Q2").Formula = _ "=AND(Data!B2>=$B1$1,Data!B2<=$C1$1,Data!E2=$D$1)" My_Table.AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=.Range("Q1:Q2"), _ CopyToRange:=.Range("A2") .Range("q2").ClearContents If .Range("A2").Value <> "" Then .Range("A2").CurrentRegion.Columns("B:E").Delete End If .Columns("B:K").AutoFit Application.Goto .Range("B2") End With With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub Search - Copy.xlsm

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

تشرفت بمرورك أستاذى الغالى ali mohamed ali والله المستعان على طلبك أخى عمر ضاحى

تفضل أخى عمر ضاحى okk_TEST2.xlsm

تفضلوا إخوتي الكرام البرنامج الآن يعمل على صيغة accde و لا يفتح النموذج في وضع التصميم شريط طباعة accde.rar شريط طباعة.rar

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

السلام عليكم في جزئية مهمة في الكود هذا السطر لا ينفع في الارتباط مع (الاسم المركب) للورقة يعني لما يكون اسم الورقة اكثر من كلمة واحدة SubAddress:=sht.Name & "!a1" وعلشان يرتبط مع الكل هكذا يكون SubAddress:="'" & sht.Name & "'!a1" تحياتي

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

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

السلام عليكم الشكر واصل للاخ الحبيب/ يحي مارايك لو يمسح النتائج احسن من الرسالة تعديل بسيط في كود اخي يحي المرفق اكسل 2003 السلف1.rar