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

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

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

السلام عليكم ورحمة الله وبركاته من الله علي بطريقة لعمل Tool bar او Ribbon Bar مثل البرامج الاحترافية وهي كالتالي وأسأل الله ان تفيد الجميع عمل Tab control في رأس انموذج ثم اضافة التبويبات حسب التصنيف الذي ترغب فيه مثلا تبويب للعملاء وتضيف اليه جميع الازرار الخاصة بالنماذج والتقارير ثم تبويب اخر للموردين وتضيف اليه كذلك ما تريد من ازرار ثم بعد الانتهاء من اضافة التبويبات المطلوبة تذهب الي خصائص الTab Control وتذهب الي خاصية Back style وتجعلها Transparent وبدلا من الازرار التقليدية يمكنك اضافة صورة واضافة امر لها عند النقر ولاضافة خاصية اخري يمكنك جعل المؤشر عند المرور علي الصورة ان يظهر شكل اليد لتكون افضل شكلا مرفق مثال ومدرج به موديول خاص بتغيير شكل المؤشر لشكل اليد عند المرور علي الصورة اي استفسار انا تحت امر الجميع مع خالص الشكر لاعضاء المنتدي المحترمين واسال الله ان ينفع بهذا العمل وان يجعله خالص لوجهه الكريم مرفق المثال Test.rar

مرفق شيت قوائم الفصول عملته لمدرستى بالاستعانة باكواد اخذتها من موقعكم واخذنا الكثير وحان الوقت ان نعطى ما تعلمناه من موقعكم العظيم الشيت بسيط جدا سهل الاستعمال يعطى القوائم ببساطة ويتم طبعها وعند نهاية العام الدراسى وبداية عام جديد يتم اخذ نسخة من الشيت السابق ويتم حذف صفوف اخر سنة موجودة وعندى هنا الثانوية العامة ويتم الترحيل 1ولى ابتدائى (1) تصبح ثانية ب (2) وهكذا و KG2 ورقم 14 تصبح 1(اولى ب) و KG1 تصبح 14 ( KG2) يتبقى لك KG1 يتم ادخال الاسماء والبيانات فقط وباقى الصفوف يتم اضافة او حذف كما تريد ولو اردت تحويل طالب مثلا فى اولى اعدادى من فصل 4 الى 2 اذهب الى طلبة الصف 7 وغير الفصل يتم تغيره فورا فى القوائم ولكن اضغط على ذر النقل اولا قبل الطباعة عموما انا مستعد لاى سؤال وتحياتى الى الاخ ياسر ومنتظر ردودكم ولو هناك اقتراحات تعديل للاحسن يبقى خير وبركه وان هنا اكثر عدد فصول فى اى فرقة 6 ولو كان عندك اكثر ممكن يتم التعديل قوائم 2016-2017.rar

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

مجهودك الرائع مشكور اخي الكريم ابوحنين جزاك الله عنه خيراً

يا ريت ان اكدر اساعدك اخي ولكن لا افهم بالضبط شو بتريد

خذ طلبياتك مع بعض تغيير الفاتورة1.rar

اخي العزيز جميع الحقول تسميتها انجليزية والعربي مجرد وصف للحقول وانا بالخدمة Counter1.rar

ابحث في المنتدى عن تحويل الملف إلى ملف تنفيذي وستجد الشرح بالتفصيل ..

مرحبا اخي ابو حنف سؤالك لا يتوافق مع مع ما هو موجود بالكود اذا كان السؤال هو تسمية CommandButton حسب الخلايا الموجودة في العمود A:A فالكود يمكن ان يكون بهذا الشكل Sub iCaption() Dim C As Control x = 1 For Each C In Me.Controls If TypeOf C Is MSForms.CommandButton Then C.Caption = Range("A" & x) x = x + 1 End If Next End Sub

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

استاذنا القدير اعتذر والكود رائع جدا ادامك الرحمن لنا معينا وصبورا

إستاذي ومعلمي الاستاذ المحترم / ياسر خليل أبو البراء السلام عليكم ورحمة الله وبركاته اولا جزاك الله خيرا و أحسن الله إليك وأسعدك الله في و الدنيا و الاخرة و سدد خطاك وأسكنك الله الفردوس الاعلي من الجنة وزوجك الله من الحور العين اللهم أمين ثانيا أعتقدأن هذا الكود الرائع سيكون عون وفتح لكثير من مستخدمي الاكسيل في العالم العربي جعله الله في ميزان حسناتك ثالثا هل يمكن ان أطمع في كرم أخلاق أستاذي و معلمي إذا سمحي لي بسؤال و هو - هل يمكن في حالة عمل تعديل علي هذه البيانات و إعادة ترحيلها مرة أخري (بمعني يتم حذفها اولا من الشيتات الخاصة بها بحيث عند الترحيل مرة اخري و لاتتكر بحيث يكون كود الحذف يعمل اولا ثم كود الترحيل بعدالتعديل بعد ذالك ) أخيرا لك مني كل إعجاب و تقدير بمجهودك الرائع في نشر العلم و مساعدة الاخرين ( أسال الله العظيم رب العرش العظيم أن يحفظ لك النعم ويديم عليك نعمه أمين أمين أمين)

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

يمكن تجربة هذا الملف (ماكرو) Tarhil1.rar

الاخ طارق_طلعت هناك اربع بارميترات يجب تعديلهم في الكود اذا تم تعديل مكان الجدول او تغير ابعاده وهي '=================================================================== '=================================================================== First_Col_Tbl_1 = 1 رقم اول عمود في الجدول الاول First_Col_Tbl_2 = 6 رقم اول عمود في الجدول الثاني Col_Compare = 3 رقم عمود المقارنة في الجدولين بالنسبة الي الجدول وليس الاكسيل First_Row_Tbl_12 = 2 رقم اول صف في الجدول ( رأس الجدول ) '=================================================================== '=================================================================== شاهد المرفق Omar_2.rar

جرب هذا الملف مخزن salim.rar

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

جزاك الله خيرا

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

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

اكتب هذا الكود في حدث الصفحة(يعمل في كل الحالات) Private Sub Worksheet_SelectionChange(ByVal Target As Range) Static Salim As Range If Not Salim Is Nothing Then Salim.FormatConditions.Delete Set Salim = Target With Salim.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE") .Interior.PatternColorIndex = xlAutomatic .Interior.ColorIndex = 6 End With End Sub اليك الملف كنموذج format _target keep the original.rar

تفضل اخي الكريم محمد test1.rar

عَنْ أَبِي هُرَيْرَةَ قَالَ قَالَ رَسُولُ اللَّهِ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ مَنْ سَلَكَ طَرِيقًا يَلْتَمِسُ فِيهِ عِلْمًا سَهَّلَ اللَّهُ لَهُ طَرِيقًا إِلَى الْجَنَّةِ

من غشنا فليس منا ... بارك الله فيك أخي عمر من يحاول مساعدة إخوانه بأن يطرح الموضوع في المنتديات الأجنبية فهذا ليس بغش إنما هي محاولات للتعلم والاستزادة من ذوي الخبرات ، وفي نفس الوقت حل مشكلة أخ في الله ربما لا تساعدة اللغة على أن يقوم بذلك ولا يمكننا أن ننكر أن في المنتديات الأجنبية من يفوقونا في الإمكانيات لأنهم سبقونا ، وهذا لا يعني مطلقاً أننا ليس لدينا إمكانيات وقدرات .. يوجد منا الكثير ممن لديهم موهبة فذة (ومن أمثالهم معلمنا أبو تامر) ولي رجاء أن تفصح عما في صدرك فأنا لا أخفي سراً ، واسمي في المنتديات الأجنبية YasserKhalil (في كل المنتديات الأجنبية التي تخص الإكسيل) ، ولا أنكر أنني ربما أطرح أكثر من موضوع كل يوم ، وحتى في الموضوعات التي لدي حل لها طلباً للمزيد ولمزيد من الإفادة والاستفادة وها هو رابط الموضوع http://www.excelforum.com/excel-programming-vba-macros/1156481-gather-similar-data-in-two-tables.html تقبل تحياتي

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

كفيت ووفيت استاذ محمد ايمن وهذه بطريقة الفلترة : Private Sub txtSave_AfterUpdate() If IsNull(Me.txtSave) Then Me.FilterOn = False: Exit Sub Me.Filter = "[Opérateur] =" & [txtSave] Me.FilterOn = True End Sub وتظل ازرار التنقل بكود الاستاذ محمد ايمن كماهي وهي فعلا ماكنت اقصده من اوامر سهلة للاسف استاذ محمد ولا حتى الاحرف !! تحياتي للجميع

اذا سمح لي استاذي رمهان باضافة مرفق يعتمد على اكواد SQL في البحث و التصفية اخي الكريم عند فتح النموذج تكون كل البيانات موجودة ثم نطبق الكود الذي اقترحه استاذنا رمهان سؤال جانبي : هل لغتك الفرنسية جيدة ؟؟ Next2.rar

اخينا ابو عبدالله اسمح لي ان ابدي رايي في الاكواد السابقة وخصوصا قي اول مشاركة لك هذه الاكواد ذكرتني ببداياتي ومع الفيجول بيسك 4 هذه الاكواد فجول بيسكية بحته او ادق هي dao بحته فهل انت قادم للاكسيس من الفيجول بيسك ؟؟؟؟؟؟؟؟ ترى المحللين لديهم فراسة !!! مارايك ان اعمل لك اول مشاركة ولكن باكسس بحت ؟ وستلاحظ السهولة والفرق! وسيكون السناريو كالتالي: 1. يكتب المستخدم الرقم في المربع ثم انتر فتفلتر النموذج على هذه السجلات فقط 2. سيتم التنقل في لبيانات المفلتره بطريقة عادية واوامر معروفة سواء للخلف او للامام 3.عند مسح البحث ثم انتر تظهر جميع البيانات بالتوفيق

اخي الاستاذ ايمن في قراءة الكتب يتم وضع علامة عند السطر او الصفحة المراد الرجوع لها وهي قريبة لحد ما الى عمل ال bookmark فكاني اقول ضع الموشر بسجلات النموذج كما هو المؤشر لدى سجلات recodsetclone فانت تبحث وتذهب قدما ورجوعا في سجلات ا recordsetclone وعندما تستقر عند سجل معين تريد ان النموذج يظهر هذا السجل فتشير له بخاصية ال bookmark للنموذج ولابد ان تكون القيمة مناسبة فحتما سنسند قيمة ال bookmark ل recordsetclone لخاصية ال bookmark للنموذج وهنا سيظهر السجل الحالي في ال recordsetclone وهنا اوضح شي ما : كائن recodsetclone للنموذج ما هو الا كائن من نوع recordset وجميع خصائص وطرق كائن ال recordset يمكن تطبيق مع recodsetclone اتمنى ان الشرح مفهوم تحياتي

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

جرب اذا كانت لديك مثل هذه expr:[a]+[b]-[c] استخدم الدالة NZ لتصبح الجملة هكذا expr:Nz([a])+Nz([b])-Nz([c]) الدالة NZ تحول القيمة الفارغة الى صفر

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

السلام عليكم ===== اليوم ساقدم لكم استخدام مبهر للدالة VLOOKUP تعودنا ان الدالة VLOOKUP تبحث عن قيمة معينة فى نطاق محدد " فى صفحة محددة" اليوم ستقوم الدالة VLOOKUP بالبحث عن قيمة محددة فى عدة نطاقات وفى عدة صفحات الدالة اسمها multvlookup وهى من النوع U D F Option Explicit[/b] [b]Public Function MultVlookup( _[/b] [b] FindThis As Variant, _[/b] [b] LookIn As Range, _[/b] [b] SheetRange As String, _[/b] [b] OffsetColumn As Integer) _[/b] [b] As Variant[/b] [b]Dim Sheet As Worksheet[/b] [b]Dim strFirstSheet As String[/b] [b]Dim strLastSheet As String[/b] [b]Dim SheetArray() As String[/b] [b]Dim blnFirstSheet As Boolean[/b] [b]Dim rngFind As Range[/b] [b]Dim blnFound As Boolean[/b] [b]Dim n As Integer[/b] [b]'جعل نطاق البحث عمود واحد[/b] [b]If LookIn.Columns.Count > 1 Then[/b] [b] Set LookIn = LookIn.Resize(LookIn.Rows.Count, 1)[/b] [b]End If[/b] [b]'حجم الصفيف لاحتواء كافة أسماء ورقة عمل[/b] [b]ReDim SheetArray(ActiveWorkbook.Worksheets.Count)[/b] [b]'الحصول على أسماء ورقة العمل[/b] [b]strFirstSheet = Left(SheetRange, InStr(1, SheetRange, ":") - 1)[/b] [b]strLastSheet = Right(SheetRange, _[/b] [b] Len(SheetRange) - InStr(1, SheetRange, ":"))[/b] [b]'وضع أسماء ورقة عمل في "نطاق ورقة" مجموعة في صفيف[/b] [b]blnFirstSheet = False[/b] [b]n = 0[/b] [b]For Each Sheet In ActiveWorkbook.Worksheets()[/b] [b] If Sheet.Name = strFirstSheet Then[/b] [b] blnFirstSheet = True[/b] [b] End If[/b] [b] If blnFirstSheet = True Then[/b] [b] SheetArray(n) = Sheet.Name[/b] [b] n = n + 1[/b] [b] End If[/b] [b] If Sheet.Name = strLastSheet Then[/b] [b] blnFirstSheet = False[/b] [b] End If[/b] [b]Next Sheet[/b] [b]'نطاق البحث في كل ورقة عمل في مجموعة[/b] [b]blnFound = False[/b] [b]For n = 0 To UBound(SheetArray, 1)[/b] [b] With Worksheets(SheetArray(n)).Range(LookIn.Address)[/b] [b] Set rngFind = .Find(FindThis, LookIn:=xlValues, _[/b] [b] MatchCase:=False, LookAt:=xlWhole)[/b] [b] End With[/b] [b] If Not rngFind Is Nothing Then[/b] [b] 'ايجاد النتيجة[/b] [b] blnFound = True[/b] [b] End If[/b] [b] If blnFound = True Then Exit For[/b] [b]Next n[/b] [b]'عودة القيمة[/b] [b]If blnFound = True Then[/b] [b] MultVlookup = rngFind.Offset(0, OffsetColumn - 1)[/b] [b] Else[/b] [b] MultVlookup = "Not Found"[/b] [b]End If[/b] [b]End Function[/b] [b] وسوف لا اتكلم كثيرا فالدالة تتحدث عن نفسها المساعدة.rar