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

استخراج بيانات شهرية من بيانات يومية يحتاج الكود إلى 4 أو 5 ثواني لإنجاز عمله وذلك بسبب كثرة البيانات جرب المرفق book2.rar

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

في موضوع لاخي الكريم // مؤمن جمعة (عمل لوحه UserForm بترحيل بيانات) علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=49583&hl= وطلبه لتصميم برنامج لمتابعة حركة السيارات وتسجيل العمليات المتعلقة ونظرا لان عنوان الموضوع لا يدل علي محتواه وبعد اذن ادارة المنتدي طرحت الموضوع بشكل منفصل حتي يكون في متناول الجميع ولسهولة البحث بعد ذلك بالمنتدي الكريم ويمكن تعديل القاعدة لتتلائم مع شركات تاجير السيارات واضافة حساب كيلومترات السيارة وتكلفة الايجار علي حسب الحاجة وادعوا الله ان يكون الموضوع فيه الفائدة للسائل او الباحث شرح موجز لوظائف الفورم ولا تنسونا بدعوة بظاهر الغيب بصلاح الحال متابعة السيارات.rar

السلام عليكم ورحمة الله وبركاته ****************** نويت بإذن الله تعالى - والله الموفق - أن أقوم بالبدء في هذا المشروع الكبير الذي أطلقت عليه اسم (مكتبة الصرح .. زاخرة بالشرح) بحثت عن ملف الأستاذ الكبير عبد الله باقشير (محفظة الأكواد) للعمل عليه .. ** رجاء من الأخ عبد الله .. إضافة للفورم في هذا الملف أن تكون عملية البحث غير مقتصرة على عناوين الأكواد فقط ، بل تشمل عمليه البحث الـ ListBox الذي يحوي الأكواد نفسها ، وكذلك صفحة التعليمات ، حتى يسهل فيما بعد على الباحث أن يصل لمراده بسهولة .. الأمر مختلف قليلاً عما قدم من قبل ، إذ أن الأكواد ستكون مصحوبة بالشرح (على قدر استطاعتي ) ولمن أراد أن يزيد على الشرح فليفعل ولا يتردد.. من هنا بإذن الله ستكون الإنطلاقة الكبرى نحو المشروع الكبير .. وسأحاول جاهداً أن أبدأ عملية بناء المكتبة بشكل منظم يسهل على الباحث فيما بعد الوصول للكود الذي يرغبه ، ويعرف كيف يقوم بتطبيق الكود بنفسه دون الحاجة لغيره .. يعني مبدأ الاعتماد على النفس في تطبيق الأكواد.. وإليكم الملف المرفق به 5 أكواد فقط مدعومة بالشرح منها 3 اكواد بسيطة ، وكود صعب قليلا ، ودالة معرفة UDF كنقطة بداية .. ملحوظة الأكواد مدعومة بالشرح في صفحة التعليمات . أرجو أن ينال رضاكم ... ولا تنسوا التصحيح والتنقيح إخواني أولاً بأول ، حتى يخرج العمل في النهاية بشكل لائق يليق بمنتدانا .. يليق بالصرح العملاق ولذا أسميت المشروع (مكتبة الصرح والصرح المقصود به منتدانا الغالي .. وإن شاء الله تكون المكتبة زاخرة وممتلئة بالشرح بعون الله وتوفيقه ثم بجهودكم ومساندتكم للمشروع) Codes Library.rar

الاخ الفاضل // محمود كمال السلام عليكم تابع الرابط التالى لعله يفيد http://www.officena.net/ib/index.php?showtopic=49733&hl= وجزاكم الله خيرا

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

بناء على طلب الاخ لؤى الخزرجى تم تصميم الملف المرفق وحبيت انى اعمله بموضوع مستقل حتى يستفيد منه الجميع ودا رابط الموضوع الاصلى بكل مراحله http://www.officena.net/ib/index.php?showtopic=58642&hl= تقبلوا تحياتى اداره المخازن.zip

السلام عليكم أخى الكريم رائع و هذا هو المطلوب شكراً على الاهتمام و سرعة الرد

بالفعل موضوع اكثر من رائع وذو اهميه اخى الكريم يمكنك وضع الكود التالى فى حدث تغيير التحديد بورقة العمل كما هو بالملف المرفق تحويل المعادلات الى قيم.zip

ما شاء الله أ.حسام شغل رائع وعمل أكثر من ممتاز جعله الله في ميزان حسناتك وبارك لك في صحتك وأهلك ومالك لا حرمنا الله من ابداعاتك يا غالى تحياتي

1- هل أنت متأكد أنك قرأت الفقرة الخامسة من الموضوع ؟ لو قرأتها لعدلت الأسماء الى الانكليزية 2- الآن أعد بالتفصيل مالذي تريده من جدول الوقود ؟

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

اخى الكريم الكود بينسخ رءوس الاعمده لان مفيش بيانات ولتفادى ذالك قم باضافه هذه السطور فى اول الكود Dim ws As WorksheetFunction Set ws = WorksheetFunction If ws.CountA(Range("A3:A22")) < 1 Then MsgBox "لا يوجد بيانات للترحيل": Exit Sub تقبل تحياتى

ActiveCell.Resize(, 5).Select جرب هذا السطر ، قم بتحديد أي خلية ثم نفذ هذا السطر ، سيقوم بتحديد الخلية النشطة ومعها 4 خلايا أخرى

أستاذي الكبير عبد الباري ممكن أقولك حاجة بس توعدني متزعلش .. أقول وأتوكل على الله .. حقيقة الأمر برامج الكنترول برنامج هاااااااام جدا جدا جدا ، وبالتالي يراعى فيه ان يكون حجمه خفيف شغله خفيف وعملي إلى حد كبير .. بالتالي أرجح دائما البعد عن كل ما يسبب ثقل للملف أو يجعل حجمه يكبر ..!!! أنا من فترة من حوالي سنيتن عملت برنامج للصف السادس طلب مني وكان البرنامج يسع التعامل مع أكثر من ألف مدرسة ومرن جدا وبصراحة أنا مش عارف عملته إزاي .. كله بعون الله وتوفيقه ، والبرنامج وفيه بيانات أكثر من 3000 طالب كان حجمه لا يتعدى 2 ميجا كان 1.3 تقريبا لا أتذكر صراحة ... المقصد من كلامي أن يكون البرنامج خفيف بقدر الإمكان .. لأن معظم اللي بيستخدموا البرامج دول شغالين في أجهزة المدارس (اللي هفا عليها الزمن) ، ويهمهم دايما المخرجات بقدر ما يهمهم شكل البرنامج ، ومش معنى كلامي إننا هنتغاضى عن الشكل ، هذا ليس مقصدي ، إنما هدفي الأول أن يكون البرنامج عملي من الدرجة الأولى ... نشوف ايه اللي الناس محتاجاه ، ونركز عليه ، وفقط وبالنسبة للناس اللي بتطلب كشوف المنادة وأرقام الجلوس وخلافه من أعمال الكنترول ، لما لا تكون منفصلة عن برنامج الكنترول الأصلي حتى لا نسبب ثقل للملف هذا رأيي الشخصي ( وأنتم لكم حرية التعامل مع البرامج بالشكل الذي يحلو لكم) فأنا لست حكرا على رأي أحد وأكرر هذا رأي شخصي (ولا يعني رأيي أني أفرض رأيي على أحد والعياذ بالله ..هذا مجرد رأي ، وقد أكون أخطأت فيه) والله من وراء القصد وهو يهدي السبيل .. أعتذر للإطالة .تقبلوا تحياتي

مجهــــود رائع من خبراء المنتدى نشــــــكركم علية

تفضل أخي الفاضل تغيير الكود للصفحة الحالية.rar

إخواني الكرام إليكم الإصدار الأخير من مكتبة الصرح .. Codes Library v1.9.6.rar

جرب الكود : Sub ConvertAll() With Sheets("XYZ").Range("F4:F7") .Formula = "=SUMIF($B$4:$C$14,E4,$C$4:$C$14)" .Value = .Value End With With Sheets("XYZ").Range("G4:G7") .Formula = "=COUNTIF($B$4:$B$14,E4)" .Value = .Value End With With Sheets("XYZ").Range("I4:I7") .Formula = "=VLOOKUP(E4,$E$4:$H$7,4,0)" .Value = .Value End With End Sub

السلام عليكم كان لي رأي أرجوا أن تتقبلوه ما دام النقل في نفس الصفحة أعتقد المعادلات تكون أسهل تفضل أخي الحل بالمعادلات _____.rar

السلام عليكم هل تريد مثلا 455في العمود b و 789في العمود j يصير 789455في العمود m إذا كان كذلك فهاهو الحل ___________________.rar