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

أخي الحبيب محمد تفضل الملف المرفق ...كل ما عليك أن تضع أوراق العمل المطلوب جلب البيانات منها في مصفوفة بالترتيب الذي ترغب التعامل معه Sub CollectDataFromSheets() Dim MyArray As Variant, Item Dim LR As Long MyArray = Array("خط التعبئة والتغليف", "خط الاستلام والتجهيز", "1", "2", "3") Application.ScreenUpdating = False Sheets("شيت مجمع").Range("A3:H1000").ClearContents For Each Item In MyArray With Sheets(Item) .Activate LR = .Cells(300, 2).End(xlUp).Row .Range("B5:H" & LR).Copy With Sheets("شيت مجمع") .Range("B" & .Cells(Rows.Count, 2).End(xlUp).Row + 1).PasteSpecial xlPasteValues .Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row + 1 & ":A" & .Cells(Rows.Count, 2).End(xlUp).Row) = Sheets(Item).Name End With End With Next Item Sheets("شيت مجمع").Activate: Range("A1").Select Application.CutCopyMode = False Application.ScreenUpdating = True End Sub ويتم ذلك من خلال السطر الرابع إليك الملف المرفق للتجربة ولا تنسى أن تحدد المشاركة التي تعجبك كأفضل إجابة ليظهر للأخوة الأعضاء أن الموضوع مجاب ، وعشان آخد نقطة (بعد التعب دا كله) تقبل تحياتي Collect Data From Sheets V2.rar

بعد اذن استاذنا وحبيبنا عبدالرحمن اخي الكريم هذه محاولة لتحقيق طلبك تم حصر تاريخ البداية والنهاية في الحقلين kUp.rar

اتفضل شريط التقديمي-UP-.rar

استعمل هذه المعادلة على فرض ان الخلية A1 هي المعنية =SUBSTITUTE(A1,".","") و اذا اردت ان تكون النتيجة عدداً و ليس نصاً استعمل =SUBSTITUTE(A1,".","")+0

3-1 مقدمة الي الاستعلامات 11-8-2003 3-2 إستعلامات الاختيار - 1 12-8-2003 3-3 استعلامات الاختيار - 2 + الاستعلام المحوري 19-8-2003 3-4 تقسيم لانواع الاستعلامات 25-8-2003 3-5 الاستعلام ذو المتغيرات 29-8-2003 3-6 إستعلام الحذف 5-9-2003 3-7 إستعلام التحديث 10-9-2003 3-8 استعلام الإلحاق14-9-03 3-8 استعلام إنشاء جدول ---17-9-2003 3-11 إستعلام التوحيد 24-9-2003 3-12 باقي استعلامات الاس كيو ال 20-10-2003 ---------------------------------------- وصلة دروس تصميم الجداول http://www.officena.net/ib/index.php?showtopic=2218

السلام عليكم أيها الاخوه , غالبا ما يكون لدينا جدول فيه أحد الحقول مرتبط بحقل آخر في جدول ثاني , و نريد أن نستعرض البيانات التابعه لهذا الحقل من الجدول الآخر ضمن نفس الجدول الذي نحن فيه , مثلا : لدينا قاعدة بيانات فيها جدولين : جدول اسماء الدبلومات الجامعيه - و يتألف من حقلين : رقم الدبلوم - اسم الدبلوم جدول حركة الطلاب و يحتوي الحقول التاليه رقم مسلسل - رقم الطالب - رقم الدبلوم الآن نريد من خلال حقل رقم الدبلوم من هذا الجدول استعراض اسم الدبلوم من الجدول الثاني و يتم ذلك كما يلي : ضع المؤشر على اسم الحقل المطلوب و هو هنا اسم الدبلوم ( بعد تغييره الى رقم ) , تجد في الأسفل مربعين الأول تنسيق – الثاني بحث , اضغط على زر البحث , ثم اختر مربع تحرير و سرد فتظهر مجموعة حقول من الحقل الثالث و الذي اسمه مصدر عناصر البيانات اضغط على النقاط الثلاث بجنب بعض فيظهر لك صفحة تصميم استعلام جديد , اختر منها الجدول دبلومات و اختر منه الحقلين : رقم الدبلوم – اسم الدبلوم ثم اغلق الاستعلام من مربع الاغلاق مباشرة و بدون حفظ , فتظهر رساله تفيد بأنه تم تغيير مصدر عناصر البيانات هل تريد الحفظ , اختر نعم , فيرجع المؤشر الى الحقول الأولى التي كنا فيها , من السطر الخامس , عدد الأعمده , اختر قيمتها تساوي 2 بدلا من 1 ثم من السطر السابع عرض الأعمده , اجعل القيمه كما يلي : 0cm;2.5cm ثم احفظ , الجدول افتح الآن جدول المواد في صفحة ادخال بيانات و حاول ادخال أي سجل جديد , تجد في حقل رقم الدبلوم يظهر لك اسم الدبلوم مباشرة مع أنه يحفظ رقم الدبلوم و فيما يلي بيان تفصيلي بالرسم للشرح أعلاه MakeFiledCombo.rar

السلام عليكم ورحمة الله وبركاته إخواني الكرام ..أحبابي في الله أقدم لكم اليوم كودين ، تعتمد الفكرة فيهما على تجميع القيم التي يتم إدخالها ، مع كل إدخال جديد في المرفق ستجد ملفين .. الملف الأول باسم Single Cell Accumulator أي التجميع للقيم في خلية واحدة فقط ويظهر الناتج في نفس الخلية .. قم بإدخال أي قيمة في الخلية A1 وليكن 5 ثم سهم لأسفل واكتب القيمة 4 ستجد أن ناتج الخلية أصبح 9 ، اكتب 3 ثم سهم لأسفل ستجد الناتج أصبح 12 وهكذا .. أعتقد أن فكرة الكود قد وصلتكم الآن .. لإعادة ضبط عملية التجميع قم بمسح محتويات الخلية A1 أو وضع نص بها .. الكود في الملف الأول بهذا الشكل (في حدث ورقة العمل) Private Sub Worksheet_Change(ByVal Target As Excel.Range) Static dAccumulator As Double With Target If .Address(False, False) = "A1" Then If Not IsEmpty(.Value) And IsNumeric(.Value) Then dAccumulator = dAccumulator + .Value Else dAccumulator = 0 End If Application.EnableEvents = False .Value = dAccumulator .Select Application.EnableEvents = True End If End With End Sub الملف الثاني باسم Two Cell Accumulator وفي هذا الملف تتم عملية الإدخال في الخلية A1 بينما تظهر النتائج في الخلية B1 ، ففي كل إدخال رقمي يتم تجميع القيمة إلى القيمة الموجودة في الخلية A1 ، وهنا إذا تم مسح محتويات الخلية A1 أو كتابة نص بها ، فإن الناتج في الخلية B1 يظل كما هو ، ولإعادة ضبط عملية التجميع من جديد قم بمسح محتويات الخلية B1 والكود في الملف الثاني يظهر بهذا الشكل (في حدث ورقة العمل) Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Address(False, False) = "A1" Then If IsNumeric(.Value) Then Application.EnableEvents = False Range("B1").Value = Range("B1").Value + .Value Application.EnableEvents = True .Select End If End If End With End Sub أرجو من الله أن يجعل أعمالنا صالحة ، ولوجهه خالصة .. دمتم في رعاية الله حمل الملف من هنا

السلام عليكم ورحمة الله وبركاته إخواني الكرام ..أحبابي في الله **************** أقدم لكم درس جديد ، لعله أن يكون مفيد ، ويعجب الأخ الغالي عادل أبو زيد ، والأخ الحبيب أبو عيد ، واللي ميعجبوش الدرس يبعد بعيد .. درس اليوم عن استخدام دوال الإكسيل أو معظم الدوال الموجودة في الإكسيل في محرر الأكواد .. أترككم مع الفيديو .. ولا تنسوا لايكات على اليوتيوب ولايكات على الموضوع ولايكات للمنتدى ولايكات للأعضاء (الليلة ليلة اللايكات) ولا تنسوا قبل كل ذلك والأهم من ذلك ..دعواتكم بظهر الغيب إليكم رابط الفيديو أرجو أن ينال الموضوع إعجابكم وتستفيدوا منه .. أخوكم أبو البراء WorksheetFunction VBA.rar

أخي الحبيب رشراش علي جزيت خيرا على هذه الكلمات الرائعة ... بالنسبة لاستفسارك أفضل أن يطرح في موضوع مستقل ليطلع عليه الجميع ويفضل أن توضح طلبك بشكل أكثر تفصيلاً .. لأني لم أفهم كيف تريد الترحيل لمحتوى خلية إلى محرر الأكواد !!؟

http://www.mediafire.com/download/llk1phh07p7c4lp/CreditTools+-+beta+%282%29.xlsm من منتدى مجااااور وهو معروض مجاااااااني ملفات مرفقه CreditTools - beta (2).rar .

جربي الملف التالي ولكن كما أخبرت ..يعتمد الكود على الرقم حتى يمكن للكود أن يجد الرقم ويقوم بالتعديل في المكان المناسب Update Data.rar

السلام عليكم ورحمة الله وبركاته.. الحمد لله، والصلاة والسلام على رسول الله، وعلى آله وصحبه، وسلم تسليماً كثيرا. أما بعد.. فهذه أول مشاركة فعلية لي، أرجو أن تتقبلوها. وهي عبارة عن تعديلات قمت بها على كود لفتح مصنف الإكسيل بكلمة مرور، وأصل الكود – كما أشار بعض الاخوة (وفقهم الله لكل خير) - لمعلمنا العزيز (عبد الله باقشير) حفظه الله من كل مكروه، وزاده علماً، ونفع به. بانتظار نصائحكم وإرشاداتكم، أسأل الله – تعالى – أن يبارك لكم في أوقاتكم، ويمدكم بالصحة والعافية. وجزاكم الله خيراً، ونفع بكم. وحياكم الله. فتح الإكسيل بكلمة مرور.rar

الأخ الحبيب اللبيب ياسر (أبو البراء) ومنكم نستفيد.. ومقبولة منك..ومساك الله بالخير وأدام الله ضحكاتك وابتساماتك الجميلة... يا معلمي. ما أحلى المعلومة التي تُقَدَّم مع المزحة الخفيفة الجميلة.

اخي عاشق الاسلام لقد\ خطرت على بالي فكرتك في الحل لكن هناك مشكلة اذا تساوي رقمين في اللائحة فان دالة Match لا تعطي الا الاسم الاول / لذا عدات عن هذه الفكرة للايضاح فقط

أخي الحبيب غسان هههههههه والله تعبت لك ..عديت لحد 18 سطر !! يا صبرك كان سهل تقوله في السطر ده ElseIf XX <> "123" Then ليه بنختار الطريق الصعب لما يكون فيه طريق سهل أنا مش بنتقدك أنا بس حبيت أمسي عليك تقبل مزحتي

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

تسلم الايادى اخى محمد بارك الله فيك

السادة الزملاء الافاضل احب ان اعرض هذا الموضوع للاستفادة منه حيث تم اقتباسة من موقع ميكروسوفت واليكم الرابط http://support.microsoft.com/en-us/kb/291308/ar ارجو ان ينال اعجابكم ولا تنسوا اللايكات على راى استاذى ياسر خليل تحديد خلايا ونطاقات واعمدة متجاورة او منقصلة او متقاطعة.rar

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

الأخ الحبيب اللبيب ياسر (أبو البراء) مرورك، وتعليقك، الأروع.. سلامي لك.

شكراً... بارك الله فيك.

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

اكرمك الله في الدارين وجعل لك نصيب من حوض و شفاعة حبيبنا صلي الله عليه وسلم

السلام عليكم تحية طيبة وبعد: كيف أنقل هذه الكلمة إلى ملف أستخدمه, وكيف أغيرها.مع شكري وامتناني. أخوكم أبو يوسف.

الأخ الحبيب اللبيب: ياسر (أبو البراء).. من خلال موضوعك المميز (افتح الباب وادخل عالم البرمجة) تعلمت الكثير؛ فلك مني عظيم الشكر والامتنان، ولخفة ظلك وتعليقاتك الجميلة المرحة لك مني ألف تحية.

بارك الله فيك فورم جميل ومفيد للجميع في انتظار المزيد والمزيد من ابداعاتك تقبل خالص تحياتي

السلام عليكم ورحمة الله جزاك الله خير

السلام عليكم اكواد جميلة وافكار اجمل يارك الله في عملك

الأخ الحبيب غسان بارك الله فيك وجزاك الله خيراً تسلم على المشاركة المفيدة والرائعة كلمة المرور 123 (خمنت ومن أول مرة صح ..بدون كسر)

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

يمكنك عمل نموذج لما تريد كما أشار الأستاذ ياسر ثم ضغطه ثم الضغط على زر المحرر الكامل الموجود أسف مكان كتابة المشاركة ثم اختيار الملف وإرفاقه قم مشاركة المشاركة ومن السؤال يتضح أنك سوف تستخدم Countif , Sumif

توصلت إلى الأرقام المستخدمة في كلمة المرور وبداية موفقة إن شاء الله ونتمنى من الأخ الفاضل تزويدنا بها للاستفادة

جرب المسابقة2.rar

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

ا / حسام اشكرك على الاهتمام

و الله انت الأستاذ اخ ياسر ماشاء الله عليك اتمنى لك مزيدا من التقدم و النجاحات ☆

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

أخي الفاضل رشراش علي بارك الله فيك وجزاك الله خيرا على كلماتك الرقيقة ودعائك الطيب .. تقبل تحياتي :fff:

انظر الى هذا الملف و لا حاجة الى عدة صفحات sum by name salim 1.rar

تم التعديل قليلاً مع الملف ليتعامل مع الانتاج sum by name salim 1.rar

السلام عليكم ورحمه الله وبركاته تفضل أخى الفورم أرجو ان يكون طلبك وأى ملاحظات أنا فى الخدمة نموزج ة+بحث 2.zip

يااختى الكريمه سهلى علينا مساعدتك بارسال ملف مرفق بالمطلوب . وخصوصا ان طلبك سيتم بابسط المعادلات البدائيه . لان علاقته ب cost accounting . اكبر من علاقته بالاكسيل وهذا ملف حسب مافهمت . تحياتى 66.rar

وعليكم السلام هل عامل فهرسة للحقول الاساسية في الجداول المستعملة (الحقول التي يكون لها معايير في الاستعلام)؟ اعملها وجرب جعفر

الأخ الكريم أحمد الشيخ تفضل الملف المرفق .. لا تنسى التوجيهات (أفضل إجابة للمشاركة التي تعجبك) Search Edit Delete UserForm.rar

تفضل أخي الكريم أكرم Private Sub CommandButton1_Click() TextBox1.Text = Application.WorksheetFunction.Trim(TextBox1.Text) End Sub

لو افترضنا أن مصدر النموذج الفرعي هو الجدول Sub_Tabl والحقل الأساسي الذي إذا كان فارغا وليس به بيانات فيحذف الصف بكامله هو txt.. فضع هذا الكود في حدث عند الإغلاق للنموذج الفرعي Dim sqlDELETE As String sqlDELETE = "DELETE Sub_Tabl FROM Sub_Tabl WHERE isnull([txt]) " DoCmd.SetWarnings False DoCmd.RunSQL sqlDELETE

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

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

السلام عليكم تم التعديل كما تم اضافة المريع الدائري بدل القائم الثالث.rar

استعلام انشاء جدول من هنا و المثال : Q7.rar