أ / محمد صالح

بعد إذن اخي سليم لو النمط ثابت على هذه الصورة EU ثم عشرة ارقام يمكنك استعمال المعادلة التالية =int(right(a3, 10)) بالتوفيق

لا شيء مستحيل بإذن الله المهم ترتيب الخطوات في الذهن للوصول للحل يمكنك غلق قواعد البيانات الأخرى باستعمال هذا الكود Dim DB2 As Object db2Path = "Z:\path\to\db2.accdb" Set DB2 = GetObject(db2Path) DB2.Application.Quit ويمكن تكرار السطرين الأخيرين لغلق أي عدد من قواعد البيانات المحدد مساراتهم في الكود وفي الأخير غلق القاعدة الحالية بالكود التالي DoCmd.CloseDatabase بالتوفيق

الموضوع بسيط جدا إذا كنت تريد أن تعمل البرنامج على ويندوز 64 بت فقط يمكنك استبدال كلمة Declare في جميع الكود إلى Declare PtrSafe أما إذا كنت تريد أن تعمل على النظامين فيجب استبدال السطر الخاص بالإعلان عن اي function أو sub بكتابة الشرط التالي #if win64 then Public Declare function ....... #else Public Declare Ptrsafe function .... #end if لا حظ تكرار هذا الشرط مع كل دالة في الكود لاحظ بداية السطر برمز # في سطر if & else & end if لاحظ إضافة كلمة PtrSafe بعد كلمة Declare بالتوفيق

هناك فرق بين الحذغ والارشفة فيمكن استعادة الأرشيف لكن لا يمكن استعادة المحذوف

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

ما يلزمني رابط الملف في القائمة المختصرة يوجد تنزيل أم لا؟ مثل هذه القائمة

ماذا يظهر في القائمة المختصرة عند الضغط بزر الفارة الأيمن علي الملف؟

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

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

جميل جدا أستاذ ماجد دورنا في ابتكار بدائل كود vba يخصنا كعرب

الملف المرفق لا يوجد به أي مشكلة ربما تكون المشكلة سببها عدم تحديث برنامج الأوفيس ما إصدار الأوفيس لديك؟ جرب أولا تحديث الأوفيس من قائمة file ثم account ثم جرب تشغيل الأوفيس في الوضع الآمن من خلال Run وإذا لم تحل المشكلة يمكنك عمل إصلاح repair لبرنامج الأوفيس من لوحة التحكم ثم إلغاء تثبيت البرامج ولكن تختار إصلاح بالتوفيق

تفضل أخي الكريم لاحظ إضافة عمود البلد في آخر الجدول ويمكن إخفاؤه وتم استعمال معادلات countifs للعد باكثر من شرط وهو البلد ونوع المسكن ومعادلة sumifs لجمع عدد الذكور باكثر من شرط وكذلك مع الاناث واضافة صف للمجموع mas_Exc 04.xlsx

وفقنا الله جميعا لكل ما يحبه ويرضاه

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

رجاء توضيح نسخة الويندوز واصدار الاوفيس وماذا يحدث معك بالضبط حتى يتمكن الجميع من مساعدك حيث أن دالة countif من الدوال القديمة في اكسل وتوجد من اصدار 2003 وحتى الآن ولا أفهم معنى أنها لا تظهر في اكسل هل حينما تكتب يساوي countif وتستعمل المعادلة لا تحسب المطلوب منها أم ماذا؟

تكمن المشكلة في عدد الحروف في السطر البرمجي حيث يتعدى الكود الخاص بإضافة جميع الأسماء في مصفوفة array العدد المسموح في السطر والحل هو تقسيم السطر إلى مجموعة من السطور البرمجية عن طريق المسافة و underscore ولقد قمت بعمل إجراء يقوم بإنشاء الكود الخاص بموديول1 في ملف نصي bas حتى يمكن استيراده لمحرر الأكواد بعد ذلك خالص دعواتي بالتوفيق mas_TransA2E.xlsb

المشكلة في أن نطاق البحث غير متساوي في جميع المعادلات والصواب تكون البداية الصف 17 والنهاية الصف 172 فتكون مثلا المعادلة في f17 =INDEX(g!$C$17:$S$172,MATCH(1,(g!$C$17:$C$172='3'!C17)*(g!$D$17:$D$172='3'!D17)*(g!$E$17:$E$172='3'!E17),0),4) لأن بعض الخلابا تنتهي عند 216

بدايتك في تعديل المرجع الخاص بالاسم المعرف xxx الموجود في شيت data_validation بدلا من k10:k17 إلى k10:k20 ثم تضيف عناوين الاعمدة المطلوبة في مكانها في هذه القائمة

أولا الملف المرفق ينقصه الكثير من أوزراق العمل المطلوبة في الكود ثانيا ربما تكون نسخة تظامك الجديد 64 بت والكود مجهز ليعمل على 32 بت فقط لذلك يرجى تغيير الكود في بداية userform3 إلى #If Win64 Then Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long #Else Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long #End If لاحظ كلمة ptrsafe بين كلمة declare و function إن شاء الله يعمل جيدا بعد هذه التعديلات

حل رائع أستاذ salimhebboul

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

للرفع حتى تعم الفائدة للجميع

بالتوفيق للجميع المهم أن يعم النفع للجميع بدون استغلال لحاجة الناس والله في عون العبد مادام العبد في عون أخيه

شكرا لجميع الزملاء الذين مروا على هذا الموضوع المتواضع

* بالنسبة للتوقيع يفضل إعداده في اوتلوك وسيتم إرفاقه مع الرسالة تلقائيا * بالنسبة للمرفقات يتم نسخ رابط الملف في العمود 1St File Path أو 2nd File Path شكرا لجميع الزملاء الذين شرفوني بمرورهم على موضوعاتي المتواضعة