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

السلام عليكم هي فكرة بسيطة لكنها من وجهة نظري عملية وسهلة التطبيق وتتم بالتحكم واحتساب عدد السجلات المدخلة في جدول محدد وليكن جدول الادخالات اليومية ------------------------- على اعتبار ان البرنامج تم تقسيمه الى 1- واجهات و 2- قاعدة جداول خلفية ، وهو شرط ، للمحافظة على بيانات العميل التي سبق ادخالها في النسخة التجريبية . ----------------- المثال المرفق هو لتوضيح الفكرة : حاول ان تدخل اكثر من اربع سجلات يمكننا ان نضع حد اعلى للسجلات بحسب نوع واستخدامات البرنامج 100 او 200 او اكثر من ذلك Dim i As Integer i = DCount("id", "tbl1") If i >= 5 Then MsgBox "انتهت الفترة التجريبية .. لشراء نسخة الكاملة اتصل على ..." DoCmd.Quit End If db1.mdb

Sale = ([Buy] * [Nesba]) / 100 + [Buy] 331.mdb

33.accdbبعد التعديل

شكراً جزيلاً لك على هذا التشجيع وان شاء الله متواجد معكم لأي استفسار او ملاحظات

اذا كان عندتا مجموعة من الارقام من واحد الى N ) N من اختيارك ) و يجب توزيع هذه الأرقام على جدول من M عامود ( M من اختيارك ابضاً) انظر الى الملف المرفق لمعرفة كيف يقوم الاكسل بفعل هذا الشيء الكود Option Explicit Sub CreateNumbers(rg As String, col_num As Long, max_num As Long) Dim n As Long Dim My_row As Long Dim My_col As Long ActiveSheet.Cells(6, 1).CurrentRegion.Clear For n = 0 To max_num - 1 My_row = n \ col_num My_col = n Mod col_num ActiveSheet.Range(rg).Offset(My_row, My_col) = n + 1 Next n End Sub '============================================== Sub give_numbers() Call CreateNumbers(Cells(6, 1).Address, [b2], [c2]) End Sub الملف مرفق Num_table.xlsm

حرب هذا الماكرو الاسماء في العامود A ابتداء من الخلية 2 Option Explicit Sub extract() Dim i%: i = 2 Dim x%, k%, t% Dim m%: m = 1 Dim arr1, arr2, arr3() Dim my_arr Range("c:c").ClearContents Do Until Range("a" & i) = vbNullString arr1 = Split(Trim(Range("a" & i)), " ") If UBound(arr1) < 3 Then GoTo 1: For x = i + 1 To 6 arr2 = Split(Trim(Range("a" & x)), " ") If UBound(arr2) < 3 Then GoTo 1: For k = 0 To 2 If arr1(k) = arr2(k) Then ReDim Preserve arr3(t) arr3(t) = arr2(k) t = t + 1 End If Next my_arr = Join(arr3, " ") If my_arr <> "" Then Range("c" & m) = my_arr my_arr = "" End If Erase arr3 t = 0 1: Next i = i + 1 m = m + 1 Loop End Sub الملف مرفق Booksalim.xls

السلام عليكم - ممكن كود عند اجراء أي تغيير في أي خانة يتم التغيير في الشيتات الاخرى على اساس الرقم تغيير في كل الشيتات ان وجدت.rar

تغيير في كل الشيتات ان وجدت.xlsx

الكود عبارة عن حلقة تكرارية تبدأ من الرقم 1 الى عدد الطلب وهو 42 في مثالك في كل دورة يتم كتابة المتغير في الخلية T1 ثم يقوم بالطباعة كل مافي الامران الحلقة تنتقل ب 3 اضعاف مثال تبدا الحلقة بالقم 1 في الدورة الثانية تصبح 3 في الثالثة تصبح 6 ثم 9 ثم 12 ......الى اخرالحلقة لكي تعمله على شيت اخر كل ماعليك تصميم شيت بنفس الشيت الاول و بكامل معادلته ثم تنسخ ازرار الطباعة اليه و ستشتغل بنفس الطريقة اما اذا كان شكل الشيت الجديد مختلف تحتاج الى التعديل في الكود

استخدم دالة vlookup لا تحتاج الى كود

تحية طيبة اعضاء المنتدى الكرام مبتدئ بالاكسل بمساعدة الاخوة اعضاء المنتدى الكرام لهم كل التحية والتقدير جميعا ُ تم عمل اكسل شيت يقوم باحتساب الكيلو مترات ومعدل الاستهلاك و عمل استعلام سريع واشياء اخرى حسب احتياجي انا الشخصي بمجرد فقط ادخال العداد ورقم السيارة احببت ان اشارككم الملف لكي تعم الفائدة للجميع .. ولمن لدية اقتراحات او تحسينات على الملف يقوم بمشاركتها معنا ,,لتحسين الملف حيث ااني رغبت ان يكون عن طريق user Form ولاكن خبرتي قليله جدا في هذا المجال (( اذا يمكن المساعدة اكن لكم من الشاكرين )) مرفق لكم الملف ( مع خالص الشكر ) للتعديل استهلاك2019.xlsm

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

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

حرب ها الملف المنتدى salim1.xlsx

طريقتك صحيحة كما قال استادنا الفاضل ابو خليل هدا هو الكود اكتبه بنفس الطريقة DLookUp("[اسم الحقل]";"الاستعلام")

وعليكم السلام نسبة الربح : = ([Sale]-[Buy])/[Buy]*100

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

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

تفضل لك ما طلبت اخفاء واظهار صفحات من الملف2.xlsm

السلام عليكم تفضل أخي الكريم، ثاني حل بالمعادلات في الملف المرفق... بن علية حاجي تجزئة البيان.xlsx

حرب هذا الملف تجزئة .xlsx

اخي الكريم محمد سلامة تحية طيبة لك أولاً.. البرنامج هو حصيلة ماتم شرحه في هذه المشاركة .. حيث قمت بشرح آلية الحماية التي تضمن افضل اداء من وجهة نظري الشخصية وعن تجربة بخصوص الرقم السري فانني تكلمت عنه في نهاية الشرح وهو كالتالي كلنا يعلم ان رقم الهارد يمكن تغييره كما انه يتغير تلقائياً بعد الفورمات لذلك فان الاعتماد على رقم الهارد لتوليد كود التفعيل ليس عملياً لان الشخص الذي اشترى منك كود التفعيل قد يقوم بتغيير الويندوز وعندما يثبت ويندوز اخر فان البرنامج لن يتفعل لديه عندما يستعمل كود التفعيل الذي اشراه منك وهذا امر غير جيد هل نستبدل المعادلة السابقة ونضع سيريال اللوحة الام مكانها؟ الاجابة لا لانك ستواجه نفس المشكلة فجميع سيريلات الجهاز تتغير بتغيير نظام التشغيل بلا استثناء "اقولها بعد التجربة" اذن ماهو الحل البديل؟ الحل البديل من رأيي هو ان تضع مكان سيريال الهارد في المعادلة السابقة باسوورد خاص بالعميل لايعرفه احد الا هو كيف ذلك: عندما يذهب العميل الى زر امر تفعيل البرنامج تظهر له نافذة تطالبه بادخال كلمة السر الخاصة به .. عندما يدخل مثلاً 54321 يقوم البرنامج باخذ تلك القيمة وادخالها في المعادلة السابقة 54321 × 2 + 5 ويظهر له الناتج وهو 108647 فتقوم انت بطلب منه رمز البرنامج هذا فيرسله لك وانت تدخله في معادلة اخرى على سبيل المثال 108647 × 7 وتعطيه الناتج الذي سيكون هو رقم التفعيل 760529 .. سيقوم العميل بادخال الرقم الجديد في خانة التفعيل ويضغط على زر التفعيل .. سيقوم البرنامج بعمل نفس المعادلة التي اجريتها انت 108647 × 7 ومقارنة النتيجة برقم التفعيل الذي ارسلته له فإن كان نفسه فهذا يعني ان البرنامج يعمل عليه نفس الشخص الذي اشترى حقوقه بتلك الطريقة فانت لاتجعل العميل لديك مقيد بالعمل على جهاز واحد فهو لديه حقوق البرنامج ويستطيع تشغيله على اكثر من جهاز اما اذا اردت اجبار المستخدم على العمل على جهاز واحد حينها يمكنك ادخال اسم المعالج في المعادلة "اسم المعالج لايتغير بتغيير نظام التشغيل" .. اسم المعالج يحتوي على ارقام بالعادة لذلك انت ستأخذ الارقام الموجودة مع اسم المعالج وتدخلها في المعادلة وبذلك فلن يستطيع العميل ان يفعل البرنامج على اكثر من جهاز. استاذ فارس يسعدني مرورك وابداء ملاحظاتك حول الموضوع

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

هى شغاله عندى تمام وعلى اكتر من جهاز كمان طيب على العموم جرب المرفق هذا واخبرنى النتيجه PIC_up2.mdb

تفضل المثال التالي فيه ما تريد صورة للتوضيح مرفق الملف NA_Highlight_Search_results_while_typing.rar

السلام عليكم هل هذا هو المطلوب اختر اسم الدولة فيتغير الى اللون الاحمر filter vba 2.accdb

أخي الكريم محمد سلامة بإمكانك اختصار الموضوع والاعتماد على كود تفعيل البرنامج بدل عمل نسختين لا أجد مايمنعك من عمل ذلك فأنت قادر على فعلها نظراً لخبرتك الطويلة في هذا المجال بالنسبة للغة الـ php فهي لغة سهلة بحد ذاتها ولا ابالغ ان قلت انها اسهل من الأكسس بكثير حيث انك تتعامل مع دوال جاهزة محددة الوظائف كما انك تتعامل مع عبارات الـ sql التي نستعملها بكثرة في الأكسس ومنها insert و update و select و delete لانك بالتأكيد ستعمل على تخزين بياناتك في جداول التي هي طبعاً mysql database .. لكن هنالك امر مهم وهو ان لغة الـ php خاصة بالسيرفرات اي بمعنى انك تعمل على برنامج يستطيع الاشخاص الدخول اليه من اي مكان بالعالم او على شبكة داخلية يدخلون اليه من اي جهاز مربوط على الشبكة او كلاهما من الانترنت والشبكة الداخلية لذلك في الغالب ستجد نفسك في حاجة الى لغات اخرى مكملة للـ php مثل الجافا سكربت والاجاكس و html و css لاتخاف فإنك لن تستعملها كلها الا في حالات معينة كما ان اكثرها متوفر في الانترنت وجاهز للإستخدام .. لقد عملت برنامج احترافي في فترة قصير وهو لجهة حكومية ومربوط على الانترنت وعلى شبكة داخلية ايضاً وهو بالطبع امر مطلوب بكثرة في الاسواق الفرق الجوهري الذي يجب اخذه بعين الاعتبار بين الأكسس والـ php هو ان الاكسس من خلاله تصمم برنامج يعمل على جهاز واحد في الغالب واي مستخدم اخر يريد العمل على نفس البرنامج يجب عليه تثبيت نسخة من البرنامج على جهازه لكن الـ php من خلاله تصمم برنامج يتم وضعه في جهاز واحد حيث يدخل عليه المستخدمين من اي مكان من خلال المتصفح فقط . اخي محمد فهمت وجهة نظرك الان لكننا في الحقيقة عندما نبيع البرنامج لجهة ما فإننا بالعادة نعطيها حقوق البرنامج كاملة وليست لمدة سنة لان تحديد المدة يندرج تحت بند الفترة التجريبية عادةً .. صحيح هنالك برامج مثل الكاسبر وغيرها تنتهج مبدأ شراء الحقوق لمدة سنة او ستة أشهر لكني لم اعمل على هذه الفكرة من قبل لكن بالطبع يمكن اضافة التاريخ الى المعادلة ايضاً لكن ماذا لو قام المستخدم بإرجاع التاريخ الى السنة السابقة التي اشترى فيها التفعيل واستخدم نفس كود التفعيل؟؟ طبعا المعادلة سوف تقرأ الرقم السري للمستخدم + اسم المعالج + سنة التفعيل وتولد كود نسميه رمز التسجيل والذي من خلاله يعمل الكراك لدينا على توليد كود التفعيل للعميل .. بما ان العميل لديه كود التفعيل للسنة الماضية فيمكنه ارجاع تاريخ الجهاز واستخدام نفس الكود .. واذا ادخلنا اليوم والشهر ايضاً في المعادلة فلن يتغير شيء مادام العميل يستطيع ارجاع تاريخ الجهاز الى نفس اليوم والشهر للعام السابق ايضاً.

السلام عليكم ورحمة الله وبركاته، من وجهة نظري خط Simplified Arabic من أكثر الخطوط وضوحاً ولا يختلف عليه اثنان، وإليك الطريقة التي أتبعها في التنسيق، وهي كالتالي: للمتن: Simplified Arabic عادي حجم 14 عناوين الأبواب والفصول: Simplified Arabic غامق حجم 24 عناوين المباحث: Simplified Arabic غامق حجم 18 العناوين الرئيسية: Simplified Arabic غامق حجم 16 العناوين الفرعية: Simplified Arabic غامق حجم 14 دمتم بخير

بعد اذن اخي صالح فكرتي هي كالتالي : رقم النسخة ستظهر للمستخدم كالتالي : على فرض ان الاقام الثلاثة ادخلت في معادلة 12345 + الرقم السري للمبرمج وليكن 105 فالناتج سيكون 12450 تخزن في متغير a وهو رقم الهارد مثلاً ومعادلة اخرى تجمع 98745 + 105= 98850 وتخزن في متغير b وهو رقم اللوحة الام مثلاً ومعادلة ثالثة تجمع 528467 + 105= 528572 وتخزن في متغير c وهو رقم السيدي روم مثلاً اذن رقم النسخة التي ستظهر للمستخدم = (a+b+c) مضروب في 3 مثلاً فيساوي 3505332 المستخدم يأخذ رقم النسخة ويدخله في مولد السيريال للبرنامج حيث يقوم مولد السيريال بقمسمة الرقم على 3 فيعطيه الرقم التالي 1168444 ينقل المستخدم الرقم الذي حصل عليه من مولد السيريال ( 1168444) الى خانة رقم التسجيل في البرنامج الاصلي ويضغط على موافق عندها يقوم البرنامج باجراء عملية حسابية كالتالي مجموع a+b+c الذي هو 1168444 - c = مجموع a+b وهو 639872 وليتم تخزينه في متغير x وهو حاصل جمع رقم الهارد مع اللوحة الام ثم 1168444 - b = مجموع a+c وهو 1069594 وليتم تخزينه في متغير y وهو حاصل جمع رقم الهارد مع السيدي روم ثم 1168444 - a = مجموع b+c وهو 1155994 وليتم تخزينه في متغير z وهو حاصل جمع رقم اللوحة الام مع السيدي روم ثم اخيراً 1168444 - 0 = مجموع a+b+c (اي بدون تغيير قطعة في الجهاز) وليتم تخزينه في متغير m هنا ستكون عبارة if هي الشرط في تشغيل البرنامج من عدمه كالتالي if x = a+b or y = a+c or z= b+c or m = a+b+c then run the system else: msgbox "wrong registration Number" اعتقد ان العملية ستكون بهذا الشكل تحياتي