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

السلام عليكم و رحمة الله استخدم هذه المعادلة =INDEX($E$2:$E$11;MATCH(VALUE(LEFT(E2;SEARCH("-";E2)-1));$A$2:$A$11;0))

وعليكم السلام ورحمة الله وبركاته أخي الكريم بعد إذنك جرّب خاصية البحث في المنتدى فصل الأرقام عن الحروف --------> من هنا تقبل تحياتي والسلام عليكم مع الاعتذار من الأستاذ الكريم محمد صالح لأنني لم ألحظ مشاركته إلا بعد أن شاركت بها

إن شاء الله تفيدك معادلات البحث والاقتصاص هذه مع ضرورة ثبات قالب الرسائل على هذه الصيغة بالتوفيق رسائل كاش.xlsx

حسب فهمي للمطلوب جرب استعال هذه المعادلة =SUBTOTAL(103,A2:A1000) لعد الخلايا الظاهرة في العمود A بالتوفيق

وعليكم السلام أخي الكريم هذا الملف بعد التعديل فيه تم وضع كود لطباعة صفحة بذاتها ، وكود آخر لطباعة صفحات من رقم .... (الخلية O2)إلى رقم.....(الخلية P2) أما إذا أردت طباعة كل القائمة فامسح الخليتين المذكورتين أعلاه. وستتم طباعة كل الصفحات حسب معادلتين وضعتا في O1 & P1 اعتماداً على الخلية N5 في كل ماسبق بالتوفيق إن شاء الله والسلام عليكم ملاحظة: هذا الكود لأحد الأساتذة الفضلاء - وفقهم الله- آمين كود.xls

السلام عليكم اهداني اخي العزيز @حسونة حسين ملف اكسل يحتوي على جميع مواضيع منتدى اكسس وبروابط مباشرة اضعه بين ايديكم لا تنسونا من دعوات صالحات *********************** ( إضافات للموضوع - Moosak ) قمت بعمل تصميم بسيط لنموذج البحث وأضفته إلى الموضوع الرئيسي بعد أذن أستاذنا أبو خليل 🙂 بمجرد الكتابة تظهر النتائج .. لاستعراض الموضوع يتم الضغط على العنوان مباشرة النقر المزدوج على مربع البحث يعيد إظهار جميع النتائج 🙂 يمكن البحث بكلمات متفرقة في الجملة .. Search_Officena_Access.rar ********************************************** Access.rar

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

أخي الكريم أشكرك جزيل الشكر لكن لم ينجح معي في ملف آخر ... و المشكلة في زر طباعة الكل هل يمكن جعل التنسيق مثل زر طباعة الصفحةالحالية؟

تصدق حتى مع هذه الصور لم افهم بالضبط كل الصور تشير الى السجل كذا ... ومسألة الحقل ليس في قاموسك السجل عبارة عن سطر يحمل عدة حقول على كل حال وحسب مافهمت .. وحسب السهم الذي يشر الى الحقل الذي يحمل رقم 3 فهمت التالي : بناء على المعرف الرئيسي .. افتح النموذج الثاني على السجل الذي حقل الكود فيه = 3 DoCmd.OpenForm "tblTexts", acNormal, , "kod_alad5al=" & Me.kod_alad5al & " And LangCode=3" اذا غير ذلك زدني تفصيلا في الشرح سجل المحدد للتعديل2.rar

تم تعديل المثال ترحيل.rar

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

عليكم السلام اسمح لي ولا تؤاخذني اذا قلت ان المبرمج الذي وضع هذه البدائل وضعها وهو مشغول الفكر بشيء آخر لماذا لم يجعلها ارقام فقط ؟ طيب دعنا نسلم بان لديه فكرته الخاصة .... منظومة هذه البدائل غير متسقة سؤال او استفسار : هل من الممكن استبدال x بــــــــــ x1 من اجل اتساق المنظومة ؟

يوجد اختلاف بين العنوان ومضمون الموضوع فإذا كنت تريده عند إغلاق ورقة العمل يمكنك وضع الكود بدون أول وآخر سطر في حدث إلغاء تفعيل الشيت Private Sub Worksheet_Deactivate() End Sub ةإذا كان المفصود عند إغلاق الملق كله فيمكنك وضعه في حدث قبل إغلاق مصنف العمل thisworkbook Private Sub Workbook_BeforeClose(Cancel As Boolean) End Sub بالتوفيق

أ / محمد صالح شكرا جزيلا لك قد جربت الحلول التي ذكرها الاخوة وما صلحت ولم أشأ أن اقول ذلك تأدبا على كل حال لقد انتهت المشكلة بحل آخر ولكم جميعا جزيل الشكر

السلام عليكم أخي الكريم جرب الكود التالي في حدث المصنف ThisWorkbook Private Sub Workbook_NewSheet(ByVal Sh As Object) Dim R As Integer, G As Integer, B As Integer Randomize R = Int(Rnd() * 256) G = Int(Rnd() * 256) B = Int(Rnd() * 256) Sh.Tab.Color = RGB(R, G, B) End Sub سيعمل الكود فقط عند إضافة ورقة عمل جديدة

تفضل نموذج بحث - مثال.xlsm

ربما كان المطلوب Extract_num_Or_letters.rar