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

مميزات الفورم السحرى 1-الفورم يستكشف جميع الجداول المصممة فى اى ملف اكسل 2- التعامل مع تلك الجداول من حذف واضافة وبحث وترحيل 4- ضبط عرض أعمدة اليست بوكس من خلال ضبط أعمدة الجدول 3- الفورم يكتشف المعادلات ويحميها تلقائيا 5- الفورم السحرى يكتشف اعمدة التواريخ تلقائيا 6- الفورم يقبل تدعيم الجداول بالصور تلقائيا 7- الفورم يحدد اوتوماتيكيا المكان الجغرافى للجداول داخل ملف الاكسل وهناك كثير للميزات ستكتشفها بنفسك عند العمل على الفورم السحرى هذا شرح مصور الاخ الرائع عماد الغازي بالمناسبة أشكره من كل قلبي على هذا الشرح جزاه الله خيرا الفورم_السحرى.rar

اخواني الكرام هذه بعض الاكواد المنفصلة و البسيطة التي قد تهم البعض وخاصة المبتدئين مثلي وارجوا من الاخوة الكرام كل من لديه كود يضيفه وأجر الجميع على الله وتسهيلاً على اخواننا في متابعة الموضوع اردت وضع فهرس بالمشاركات التي تحتوي على الاكواد وهنا الفهرس مقسم على ثلاثة أجزاء يحتوي على هذه المشاركات وهذه الملفات من النوع (Pdf) ............................................................ الجزء الأول من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الأول.rar ............................................................ الجزء الثاني من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الثاني.rar ............................................................ الجزء الثالث من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الثالث.rar ............................................................ و هذه النسخة الاولى من برنامج محفظة الاكواد جمعت فيها جميع اكواد هذه الحلقات من هذا الموضوع المحفظة المفرغة من تصميم الاستاذ الكبير خبور جزاه الله خيرا محفظة اكواد_النسخة1.rar أخوكم محمد يحياوي

شيت الصف الاول الابتدائى 2019 الرقم السرى 1111 .. Admin. اضغط هنا للتحميل ============================================================================ كنترول شيت ابتدائى 2019 الرقم السرى للدخولAdmin 1111 سرى التصفير والصحلاحيات 6666 اضغط هنا للتحميل ============================================================================ كنترول شيت اعدادى 2019 الرقم السرى للدخول 1111 Admin سرى التصفير والصلاحيات 6666 اضغط هنا للتحميل

الأخوة المبدعين بالمنتدي السلام عليكم بالمرفق أحد أعمال الأخ المبدع والخبير أبو البراء الأستاذ ياسر خليل - جزاه الله عني كل خير - وكانت وظيفة العمل الرائع هي القيام بحصر الجمل النصية المكررة غير المتماثلة تماماً فهي مكرره أ متشابهة ولكن بتغير بسيط في بنيه الجملة. ولقد دعت الضرورة عند التفاعل مع عمل الملف في حصر الكثير من النصوص لإجراء تعديلين هامين أحتاج لإهتمام أحد الأخوة الخبراء للقيام به حتي يتكامل الأمر بإذن الله 1- أريد نقل نتيجة حصر التكرار في صغحة جديدة بها المكرر فقط دون بقية البيانات الأصلية حتي يسهل تميزها والتقاطها سريعاً دون البحث عنها بين بقية البيانات لأن التميز باللون لا يعمل بشكل دقيق. 2- أريد تسريع عمل الكود إن أمكن ذلك لأن الكود يأخذ ساعتين تقريباً لحصر ما يقارب 5 آلاف صف. وشكرا مقدماً لكل من يساهم بعلم ويتعامل بحلم Highlight Similar Sentences Using Similarity UDF YasserKhalil LOF.rar

تفضل Tab_Ali.xlsx

تفضل نفس كود استاذنا الكبير سليم له منا كل المحبة والإحترام frais de miss ion 019.xlsm

وعليكم السلام اهلا بك فى المنتدى-تفضل Tab_Ali.xlsx

أين هو المرفق أخي إبراهيم؟

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

انظر قد يفيدك ..... طلب_صرف_مواد2.accdb

بارك الله فيك يا أستاذ

السلام عليكم اتبع الخطوات الموجودة بالصورة أدناه: و هذا المرفق بعد التعديل: Database11.rar

اذا البرنامج مفتوح المصدر .. ارفقه هنا وستجد المساعدة من اخوتك الاعضاء اما ان كان غير ذلك فهو ممنوع لكونه مخالف لحقوق الملكية الفكرية

أحسنت استاذ سليم بارك الله فيك كود ممتاز

هذا لكيفية جلب المجموع للخلايا الظاهرة فقط دون المخفية

وعليكم السلام تفضل لك ما طلبت Book2.xlsx

بعد اذن استاذنا الكبير سليم هذه معادلة أخرى لإثراء الموضوع أوفيسنا.xlsx

جرب هذه المعادلة =CHOOSE((F2="")+(I2="")+1,CHOOSE((I2="")+1,I2),F2,C2) اذا لم تعمل معك استبدل الفاصلة بفاصلة منقوطة لتبصح هكذا =CHOOSE((F2="")+(I2="")+1;CHOOSE((I2="")+1;I2);F2;C2)

تفضل هذا الملف وجدته عندى لعله يفيدك ترحيل الى دفتر اليومية القيود.xlsm

تفضل الاستيك.12xlsm.rar

تفضل الاستيك.12xlsm.rar

لعل هذا يفيدك( اضف اسمائك تترتب ابجديا ثم من القائمة المنسدلة يستخرج المتقارب والمتطابق) match-2-columns.xlsm

السلام عليكم تفضل كود سريع Sub distrib() [A9999].End(xlUp).Select Range(ActiveCell, Selection.End(xlUp)).Select For i = 1 To Selection.Rows.Count Step 2 [B9999].End(xlUp).Offset(1, 0) = Selection(i) [C9999].End(xlUp).Offset(1, 0) = Selection(i + 1) Next i Selection.Clear [A6].Select End Sub أنظر المرفق به الكود مع زر تشغيل أخي الكريم/ علي محمد علي جزاك الله خيرا أصبح وقتي بالعمل والأسرة ضيق .. دعواتك توزيع بيانات عمود علي عمودين.xlsm

الأخ الفاضل هذا الشرح يحتاج لبعض التوضيح مثل Range("RN").AutoFilter أي ان اتصفية تكون في النطاق A3:D75 الذي سميناه RN RN كيف يتم تحديده داخل الكود ورجاءاً ممكن شرح الطريقة خطوة بخطوة حتي يتسني لنا فهم كيفية عمل مثل هذا البحث أخي الفاضل أ.محمود الموضوع ببساطة كالتالي أولاً : نحدد النطاق الذي سنعمل عليه ومن مربع الاسم الموجود على يسار شريط الصيغة نكتب اى اسم نريده وليكن كما تفضل ابو حنين RN ونضغط انتر .. وهناك طريقة اخرى لعمل ذلك بأن نذهب الى القائمة صيغ Formulas ثم نختار ادارة الأسماء Name Manager واختيار جديد New ثم نكتب الاسم الذي نريده للنطاق ونحدد خلايا هذا النطاق من Refers to ونضغط موافق في هذه الخطوة حددنا النطاق الذي سنعمل عليه وهو مثلا من A5:D75 واعطيناه اسما وليكن كما في المثال RN .... تمام ثانيا : نذهب الى المطور Developer ونختار ادراج Insert ونحدد مربع نص TextBox ونضيفه بداخل الورقة عن طريق السحب والإفلات .. تمام كده جددنا النطاق وأضفنا مربع النص اللى هنكتب فيه معيار البحث .. وطبعا يفضل انك تضع مربع النص اعلى العمود اللى هيتم فيه البحث .. تمام نيجي على الورقة بتاعتنا تحت نضغط Right-Click ونختار اظهار التعليمات البرمجية او View Code ومن اعلى اليسار نفتح القائمة المنسدلة ونختار اسم مربع النص بتاعنا ونتاكد ان المربع على اليمين مكتوب فيه Change بمعني ان الكود هيتنفذ في حالة تغير مربع النص وهيكون شكلها في البداية كده Private Sub TextBox1_Change() End Sub تبدأ بقي تقف بالماوس في وسط ال sub دي وتكتب الكود بتاعك اللى هو ايه .. اللى هو ده If TextBox1 = "" Then AutoFilterMode = False Else Range("RN").AutoFilter , field:=2, Criteria1:=TextBox1.Text End If معناه ايه ده في السطر الاول بنقول لو مربع النص بتاعى فاضي ايه اللى يحصل السطر الثاني نقوله الغي الفلتر خالص .. علشان كل البيانات تبقي ظاهرة وواضحة طالما لم نكتب شئ في مربع النص الخاص بالبحث طب لو مش فاضي والمستخدم كتب فيه اى حاجة نقوله النطاق اللى اسمه RN ده اللى احنا سمناه في الخطوة الأولى اللى هو من A5:D75 اعمل فلتر ليه كويس بس النطاق ده اكثر من عمود هيعمل فلتر على اساس اى عمود نقوله Field:=2 ويبقي الفلتر بتاعك على العمود الثاني في النطاق .. تمام طب لو انت عاوز العمود الأول غيرها خليها 1 لو عاوز العمود الرابع غيرها خليها 4 وهكذا طب شرط التصفيه او الفلتر ايه نقوله النص المكتوب في مربع النص بتاعنا Criteria1:=TextBox1.Text ونفس الكلام بقي على الاربع مربعات نص الموجودين في ملف الأستاذ أبو حنين أرجو انى اكون وفقت .. تحياتي

ادخل على excell option من شعار اوفيس وبعدين ادخل على formulas ثم من اليمين خلى workbook calculation automatic وان شاء المشكلة هتتحل

الاخ يحياوي الاخوة الاعضاء يقوم هذا الكود يقوم باظهار اوراق العمل المخفية بكلمة مرور منقول من موقع : EXCEL4US للاستاذ الكبير يحيى حسين اتمنى ان يعجبكم وفقك الله ياسر الحافظ إخفاء وحماية اوراق العمل.rar

وهذا كود لمنع طباعة الشيت وآخر لمنع طبع بعض الورق اكواد خاصة بالطباعة.rar

عدم عمل المعادلات الابعد حفظ الملف او اعادة التنشيط سببه انك قمت بتحويل الملف من Automatic calculation formula الى manuual اي انك اخترت القيام بالحساب بطريقة يدوية ولمعالجة هذا الامر اضغط على شعار الاوفيس على يسار الشاشة اختر excel option خيارات اكسل في القائمة التي تظهر على يسار الشاشة اختر منها Formula او معادلات ثم اختر automatic من قائمة calculation option على يمين الشاشة ثم ok