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

وعليكم السلام بعد اذن استاذ محمد ... يمكنك استخدام هذه المعادلة =IF(COUNTIFS($B$2:$B$200,B2,$C2:$C200,C2)>=1,"OK","") data search1.xlsx

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

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

يمكنك تعديل الشرط في زر البحث إلى التالي If sh.Cells(i, 3) >= CDate(Me.TextBox15) And sh.Cells(i, 3).Value <= CDate(Me.TextBox16) _ And sh.Cells(i, 4) = Me.ComboBox3 And (sh.Cells(i, 5) = Me.ComboBox4 Or Me.ComboBox4 = "") Then وإضافة استدعاء زر البحث بعد مسح قائمة المقاس Private Sub CommandButton52_Click() Me.ComboBox4.Value = "" CommandButton51_Click End Sub بالتوفيق

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته.. اقدم لكم اداة من برمجتي المتواضعة لتحويل اكواد الـ SQL الى VBA قبل كل شي، الاداة حصراً للمبرمجين الذين يستخدمون الكود في الادراج والتعديل والحذف وليس للأشخاص الذين يستخدمون الواجهة الرسومية للأكسس الخالية من الكود ماهي فائدة الأداة ولماذا استخدمها؟ حسناً، لو كان لدينا جدول اسمة tbl_movementes يقوم بتسجيل جميع الحركات التي تحدث ( اضافة , تعديل , حذف ) وهذا الجدول احتاجه في كثير من النماذج، فهل من المعقول ان اقوم بكتابة عبارة INSERT INTO في كل نموذج ؟ اكيد لا، سأقوم بكتابة Sub واقوم بإستدعاءه كل مرة اريد ان اضيف بها بيانات الى الجدول واختصاراً للوقت الطويل والأخطاء التي ربما ستحدث اثناء عملية التحويل، قمت بكتابة اداة تقوم بهذا الغرض الاداة وضيفتها فقط ( Insert , Update ) صورة الاداة: لنطبق على عملية اضافة بيانات جديد: 1- قم بفتح 2- ثم قم بأختيار الجدول الذي تريده، وقم بإدراج جميع الحقول، كما في الصورة 3- من النافذة العليا اختر النافذة تصميم وقم بتعديل نوع الاستعلام الى استعلام إلحاق وثم بإختيار نفس الجدول لكي يقوم بألحاق البيانات به. الآن لنرى النتيجة 3- الان قم بعرض اكواد الـ SQL 4- قم بنسخ جميع الاكواد كما في الصورة الاتية 5- الان قم بفتح الاداة، واختر النوع Insert، ثم الصق اكواد الـ SQL في مربع النص SQL 6- قبل عملية التحويل قم بإلغاء الأعمدة التي لا ترغب بها من القائمة على اليمين ( Column Remove ) مثلا سأقوم بألغاء العمود IsDeleted وذلك بالضغط على اسم العمود رسالة تخبرك بتأكيد عملية حذف العمود 7- اضغط على الزر Convert 8- تم تحويل الكود ونسخه، الان قم بلصقه في الأكسس واستخدمه الاستخدام النتيجة، تم ادراج البيانات بالجدول لنطبق على عملية تعديل البيانات: نفس الخطوات القديمة فقط من الاداة اختر نوع الاستعلام Update من المعروف ان عملية تعديل البيانات تتطلب معيار للتعديل WHERE COLUMN NAME = Number لذلك عندما نقوم بإنشاء الاستعلام نقوم بوضع عمود المعيار اخر عمود في الاستعلام هكذا من لديه ملاحظات أو اضافات تعطى للبرمج حصراً أحرم تعديل البرنامج بأحد ادوات الهندسة العكسية او نسبه لأي شخص تمت البرمجة حصرياً لمنتدى أوفسينا، اهداء الى معلمي العزيز @jjafferr تحياتي للجميع. SQL-VBA.rar

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

بداية يجب إرجاع الفضل لإهله الاستاذ / سليم حاصبيا - الاستاذ ابراهيم الحداد فى مساعدتهم الدائمة وخاصة فى اعداد هذا البرنامج والذى اتمنى ان يحوز رضاكم كتلميذ من تلامذة المنتدى أمنيتى تعريفى بعيوبه من جانب اساتذتى واسم المستخدم/ محمد فتحى / وكلمة المرور 1970 ومحرر الاكواد / 6101970 1562309003_.rar

جزاكم الله خيرا استاذ محمد

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

طيب ... بارك الله فيك اخي الكريم جرب المرفق التالي ..... الباحث فى القرآن الكريم للتعديل.rar

جرب هذه المعادلة بتغيير بسيط على معادلة أ / علي =IF(COUNTIFS($B$2:$B$200,B2,$C$2:$C$200,C2)>1,"OK","") بالتوفيق data search1.xlsx

الملف ليس فيه مشكلة انظر ..... ولكن انسب البرنامج لصاحبة تعود الايات بالظهور .... مع تحياتي للاستاذ محمد صالح @أ / محمد صالح

هذه هي المعادلة التي في بالي أ/ علي countifs لكن أردت التأكد من المطلوب أولا

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

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

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

جرب استعمال هذا الإجراء Sub godown() Application.SendKeys "~" End Sub وربطه بزر الأمر بالتوفيق

شكراً جداً أستاذ محمد الأن يعمل بشكل جيد الحمد لله شكراً جدا

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

اشكركم جدا احبائى واساتذتى الاعزاء جارى التجربه جزاكم الله خيرا

تفضل هذا ملفك بعد وضع المعادلات mode fun1_2.xlsx

استخدم هذا الخط عن تجربة جميع الاجهزة تستطيع قرائته تحميل الخط من هنا barcode-font

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

اعتقد كل هذا موجود في معادلة العمود C ومعادلة التنسيق الشرطي له التي تم تعديلها في الملف السابق هل تعديل معادلتك وشروط التنسيق الشرطي الخاص بك مازالت لا تفي بالغرض؟؟؟

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

يمكنك استعمال المعادلة التالية في الخلية C2 =IF(B2="",DATEDIF(A2,TODAY(),"d"),DATEDIF(A2,B2,"d")) وبالنسبة للتنسيق الشرطي يمكنك استعمال المعادلة =b2="" وتطبق على العمود C بالتوفيق

برنامج كنترول مصغر لصفوف النقل الاعدادى لرصد الدرجات وطباعة النتيجة والشهادات عفوا تم تعديل خطأ فى معادلات صفحة الرصد إسم المستخدم محمد فتحى كلمة المرور ١٩٧٠ محرر الاكواد. ٦١٠١٩٧٠ كنترول شيت.xlsb

تفضل التعديل الترقيات.zip

تفضل التعديل الترقيات.rar

تفضل التعديل اخي الكريم سيتم ترقية من تم تحديده فقط الترقيات.zip

لقد تم تحديث البرنامج ليكون صالحا للمراحل الثلاث (ابتدائي اعدادي ثانوي) أيضا تم اصلاح مشكلة تنزيل البيانات التي تواجه بعض المستخدمين شاهد شرح البرنامج على اليوتيوب بالكامل https://cutt.ly/YOUTUBE_CHH تحميل البرنامج من هنا https://cutt.ly/students2020 او http://www.mediafire.com/file/cgnee00o80iozwn

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

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

شكرا لك أخي ياسر ولكن يوجد برامج لفك كلمة مرور مشروع vba ما الحل؟؟

تفضلوا كل ما أمرتم به ينفذ بإذن الله مفيش حاجة اسمها مستحيل mas_backup.rar

يا ريت مزيد من التوضيح

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

عذرا يوجد خطأ بسيط في المعادلة الخاصة بالاسم الثاني ومرفق التصحيح والشرح mas_parts2.rar

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

أخي الكريم بالنسبة للمطلوب الأول وهو الخاص بكتابة الاسم الثاني ضع هذه المعادلة في الخلية c6 =MID(A6;FIND(" ";A6);FIND(" ";A6;FIND(" ";A6))) وبانتظار الإخوة في باقي المطلوب

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

انشاء الله اخي عندما يكتمل الملف اخي كود ترحيل تمام عمل رائع جزاك الله خيرا لي رجاء اخر اخي لو سمحت اريد كود استدعاء بيانات فاتورة وتعديل عليها وترحيليها