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

جزيت خيرا حياك الله استاذ صحيح 100 %

استبدل الكود بهذا (هذا الكود يعمل اينما كانت الاوراق غير المرغوبة) Option Explicit Sub Give_ALL_Data() Dim Arr_sh(), i%, m%: m = 2 Dim Arr_counte(), k%: k = 1 For i = 1 To Sheets.Count If InStr(Sheets(i).Name, "شهر") Then ReDim Preserve Arr_sh(1 To k) ReDim Preserve Arr_counte(1 To k) Arr_sh(k) = Sheets(i).Name Arr_counte(k) = Application.Max(Sheets(i).Range("a:a")) k = k + 1 End If Next Sheets("تجميع").Range("b2:i500").ClearContents For i = LBound(Arr_sh) To UBound(Arr_sh) Sheets("تجميع").Range("b" & m).Resize(Arr_counte(i), 8).Value = _ Sheets(Arr_sh(i)).Range("b2").Resize(Arr_counte(i), 8).Value m = m + Arr_counte(i) + 1 Next Erase Arr_sh: Erase Arr_counte End Sub او استبدل في الكود القديم هذا السطر (شرط وجود الاوراق غير المرغوبة في الأخر) For i = 1 To Sheets.Count-1 بهذا For i = 1 To Sheets.Count-3 الملف مرفق Tajmi3.xlsm

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

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

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

السلام عليكم ورحمة الله اعذرني للتأخر في الرد لأنه كان عندي مشكل في المنتدى وقت تم حله الآن... الملف قمت بالتعديل عليه منذ الصباح وأدرجه لك الآن في المرفقات... أرجو أن تفي هذه التعديلات الغرض المطلوب... بن علية حاجي Table (1).xlsx

أهلا محمد.. يمكن بالنموذج الفرعي، وبدونه إذا أرت.. لكن ما الخطوة التالية بعد عرضها حسب الإدارة؟

تفضل اخى الكريم بعد اذن الأستاذ مصطفى-فلابد ان تعلم اخى الكريم ابو العلاء ان هذه معادلات صفيف وليس معادلات عادية فلابد من الضغط على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات Book1 TEST.xls

أهلا محمد.. أعتذر في تأخر الرد.. هذا مثال بسيط على الفكرة، إذا أردت إضافة أشياء أخرى، أو إجراءات معينة.. أعلمني بذلك. Photo.zip

اتفضل المطلوب Book1 TEST.xls

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

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

السلام عليكم لم افهم شيئا من الموضوع... الشرح غير وافي... ماذا تريد بالضبط؟ هل تريد أن تدمج الملفين مع بعض أم تريد أن يكونا بالتنسيق نفسه؟ بن علية حاجي

السلام عليكم ورحمة الله مساعدة أولى بالمعادلات... أرجو أن تفي الغرض المطلوب.. بن علية حاجي sample.xlsx

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

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

Me.km![التاريخ] = UmR2L(Me.km![تاريخه]) قاعدة بيانات2.rar

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

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