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

السلام عليكم هذه محاولة بحسب ما فهمت حل1 : اختر أول سطر للبيانات من القائمة المنسدلة الزرقاء حل2 : مباشرة بدون اختبار سيتم اختيار آخر سطر تفضل جديد1.xlsm

أخواني وأساتذتي ومعلمينا ( دون استثناء ) أداة بسيطة - مفتوحة المصدر - مشتقة من أداة مرسال والواتس أب 2025 في هذا الموضوع هنا ، لفحص حالة الرقم من انه مسجل على الواتس اب أم لا ، تعتمد على تطبيق واتس أب سطح المكتب . يمكن تطويرها داخل المشاريع لتتلائم مع متطلبات مشروعك . فقط اكتب الرقم مع المفتاح الدولي ، وسيتم فتح التطبيق والكشف مما إذا كان مسجلاً على الواتس أب أم لا . طبعاً الأداة ستعتمد على قراءة رسالة الواتس أب التالية ، وهنا اللغز في الموضوع . صورة واجهة الأداة :- تم إضافة ميزة جديدة وهي ، الفحص لجدول يحتوي على ارقام مخزنة ليتم الفحص الكامل على مجموعة من الأرقام بدلاً من رقم واحد . حيث تم انشاء جدول يضم حقل الرقم وحقل الحالة وحقل تاريخ التحقق وحقل ملاحظات . Check Number 1.1.zip

عليكم السلام ورحمة الله تفضل الملف حسب توضيحك ترحيل بيانات.xlsm

بعد إذن أستاذى الفاضل / hegazee تم تعديل بسيط للمعادلات إجمالى عدد المزارعين 914 / و/ احمد محمد عبدالله المساحة صفر 1 فئات الانتفاع.xlsx

جزاكم الله خيرا العملية في كلا الكودين غير منضبطة .. رغم ان الاستاذ ناقل طبق الفكرة 100% المشكلة تبقى في الحدث وتوقيته .. هل بعد التحديث ام قبله .. ام هل عند الادخال او عند التركيز ؟.. فمن هنا يظهر الخلل .. ولا يستقيم لذا نهجت طريقة محكمة .. خارج احداث مربع التحرير 1- انشأت فريم (مربع خيارات متعددة) يحتوي على خيارين وقيمتين 1 ، 2 القيمة 1 تعني جميع البنود ما عدا الزوجي القيمة 2 تعني جميع البنود ما عدا فردي1 وفردي 2 وفي حدث بعد التحديث للفريم ادرجت كود ابي جودي .. لأنه افضل للمطور Private Sub Form_Load() Me.mjal.RowSource = "SELECT ac_id, ac_Name FROM tbl_Mjal WHERE ac_id IN (1,2,4,5)" Me.mjal.Requery End Sub Private Sub Frame1_AfterUpdate() Dim strSQL As String If Frame1 = 1 Then strSQL = "SELECT ac_id, ac_Name FROM tbl_Mjal WHERE ac_id IN (1,2,4,5)" Else strSQL = "SELECT ac_id, ac_Name FROM tbl_Mjal WHERE ac_id IN (3,4,5)" End If Me.mjal.RowSource = strSQL Me.mjal.Requery End Sub الف شكر لكما احبتي الكرام

تقضلوم الملف بالمعادلات المتوافقة مع الاصدارات القديمة لأكسيل و ابت الملف بدون أكواد مع أن الأكواد افضل لأنها تى و إن اضفت صفحات لأشهر جديدة فان الكود سيرحل البيانات تلقائيا . على العموم ابتعدت عن دالة فلتر التي تستخدم في اكسيل 2019 فما فوق 3الحساب.xlsx