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

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

تسلم ايديك أخى سيف الدين

السلام عليكم ورحمة الله وبركاته اليك معادلة للترقيم التلقائى يعنى لو مسحت سطر يحتفظ بالترقيم التسلسلى يارب تنول اعجابكم ترقيم تلقائى.rar

أخى الفاضل تم تعديل كود اخى الحبيب ياسر ليناسب طلبك Sub CountCells() Dim Cel As Range, x Dim Total As Integer Application.ScreenUpdating = False For Each Cel In ActiveSheet.Range("d7:J7") x = GetCellColorForReals(Cel) If x <> 16777215 Then Total = Total + Cel.Value End If Next Cel Range("L7") = Total Application.ScreenUpdating = False End Sub Function GetCellColorForReals(R As Range) As Long GetCellColorForReals = R.DisplayFormat.Interior.Color End Function

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

تفضل حل آخر لعله يفي بالغرض Book166.rar

..... شاهدوا المرفق أخوكم عماد الحسامي

أخى الفاضل استعمل هذه المعادلة =OFFSET(st!$A$2;;;COUNTA(st!$A:$A);1)

السلام عليكم سيتم الحذف مع الإحتفاظ بالمسلسل حذف صف.rar

جرب الملف المرفق جمع اللون الاحمر.rar

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

If Nz(DLookup("id", "[tbl]", "[c]&[f]&[k]&[d]='" & c & f & k & d & "'"), 0) <> id Then Cancel = MsgBox("مكرر")

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

السلام عليكم الحمد لله الذى بنعمته تتم الصالحات شرح الفكرة تفصيلاً علها تمثل إضافه لاحد الاخوة التطبيق بالمرفق El RashedY_ VlookUp.rar

تفضل أخى Valeur Min.rar

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

مساهمة بسيطة مني Book166.rar استاذ سليم حاصبيا / كل يوم اتعلم من هذا المنتدي فكرة الحل رائعة جدا جعلها الله في ميزان حسناتك لك تقديري واحترامي

جزاكما الله كل خير اخواني محي الدين ابو البشر وخالد الرشيدي حفظكما الله وبارك فيكما

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

السلام عليكم استاذ خالد الرشيدي زادك اله علماً وذخراً اللهم علمني كما علمك أخجلتني بضعفي

تفضل أخى Private Sub ComboBox1_Change() ComboBox2_Change End Sub Private Sub ComboBox2_Change() Dim c As Range Dim cc As Range Dim LR As Integer If ComboBox1.Text = "" Or ComboBox2.Text = "" Then TextBox1 = "" TextBox2 = "" End If LR = Cells(Rows.Count, 1).End(xlUp).Row For Each c In Range("A5:A" & LR) For Each cc In Range("C4:O4") If c = ComboBox1.Text And cc = ComboBox2.Text Then TextBox1 = Cells(c.Row, 2) TextBox2 = Cells(c.Row, cc.Column) Exit For End If Next Next End Sub رجب.rar

تفضل أخى Valeur Min.rar

السلام عليكم أخي الكريم هناك مشكلتين الأولى في المعادلة والثانية في ترتيب الأعمدة في الشيت JOB أرجو الاطلاع على المرفقالاول مع تعدبل في الشيت JOB واذا كان لا بد من ترتيب الشيت JOB بالشكل الذي انت عليه فيفضل استخدام index& match (في المرفق الثاني) Vlookup Problem.rar Vlookup Problem.rar

أخى الفاضل عندك البديل وهو دالة SUMIFS لها أكثر من شرط

قم بتنسيق الخلايا على هذا الشكل # ??????/??????

السلام عليكم ورحمة الله الحل فى عجالة فلم اتابع منذ البداية ارجو ان يكون هذا هو الحل ولقاءنا صباحا ان شاء الله 2016-2.rar

وعليكم السلام ورحمة الله تفضل أخي الكريم، الملف وقد تمت إزالة حماية كل أوراقه... بن علية feuille-de-consommation-2013.rar

هذا رابط لموضوع يناقش مشكلتك

أستاذ جعفر .. والله بجد مش عارف من فرحتي أقولك إيه .. انا تقريبا أول مرة في حياتي أكتب كود .. والفضل في ذلك يرجع لله ثم لكم أخي الكريم .. بهذا الكود تغلبت على مشكلة الجوازات اللي تبدأ ب 0 و 00 و 000 و 0000 اصفر وفي نفس الوقت لغيت المسافات من الآخر آخد كام من عشرة يا أستاذ جعفر :) ولو عندك أي فكرة تانية ياريت تقولهالي حتى لو شايف انها ملهاش قيمة .. منها بإذن الله هستنتج حل لمشاكل تانية ممكن تواجهني شكرا مرة تانية يا أستاذي .. :)

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

تك تحميل الملف يرجى التجربة Book166.rar

السلام عليكم ورحمة الله اخى الحبيب اليك الحل عبارة عن ثلاثة اكواد كل واحد منها يختص بترحيل حالة معينة Book166.rar

الإخوة الكرام إستخدمت هذا الكود لمنع حفظ الملف أو حفظه باسم فهل هذا جيد أم أنه هناك طريقة أفضل جزاكم الله خيراً Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'This macro disables the "Save As" Feature in Excel 'This means that a user will not be able to save this 'workbook(file) under a different name or in a different location ' 'This MUST be placed in "ThisWorkbook" and NOT in a Module. ' Application.CommandBars("Standard").FindControl(ID:=3).Enabled = False If SaveAsUI = True Then Cancel = True End Sub

جزاكم الله خيرا وبارك فيكم يا استاذ وزادك من علمه وفضله وحلمه

جرب هذا الملف hide_j_rows.rar

فى ميزان حسناتك جزاكم الله خيرا

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

تم التعديل حسب الطلب choose_number 1.rar

دا مثال بسيط بدأته لك القى نظرة عليه واي تعديلات انا موجود والاخوة الخبراء طبعا كلمة المرور للمستخدم ياسر : 123 Yasser.rar

اخي الحبيب عبد العزيز ممكن إضافة بسيطة لكي لا يتوقف الماوس Private Sub CommandButton1_Click() If TextBox4 = "" Or TextBox4 = Val(TextBox2) * Val(TextBox3) Then TextBox4 = Val(TextBox2) + Val(TextBox3) Else TextBox4 = Val(TextBox2) * Val(TextBox3) End If End Sub يعني افضل اعمل كليك مرة يجمع ومرة يضرب ..

السلام عليكم و رحمة الله و بركاته جرّب أخي الغالي أكرم جلال هذا المرفق ربما يكون ما طلبته .. خالص احتراماتي مهمتين 2.rar

فك____رة 12 الاخوة الكرام فكرة اليوم كنت قد وضعتها فى وقت سابق على المنتدى ولكنى سأضعها ايضاً فى هذا الموضوع لكى يكون مجمع لكافة حالات الدالة قدر الامكان 12.rar ......................................... هذا الكود بسيط فقط ل -المعرفة المبدئية - بقى الان الملف المجمع لكافة الحالات وبة ستجدون باقى الافكار ان شاء الله

اعتذر رفعت مرفق خاطئ البرنامج مرفق المراسلة.rar

الاستاذ ابا خليل انبه فقط ان طريقة حساب عد السجلات مقارنة بقيم السجل الحالي لا تخرجك من فخ السجل الحالي وخاصة عند الحدث قبل التحديث وهو ما اسميته في اكثر من مكان "فخ السجل الحالي" . وقد وجدت اغلب الاخوان وفي اكثر من مكان يقعون في هذا الفخ ! وهنا وفي هذا الرابط شرح اكثر ومع مثال http://www.officena.net/ib/index.php?showtopic=61342&hl= تحياتي

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

في النموذج حقل لا نريد للمستخدم ان يتجاوزه فارغا يتم التنبيه بصريا ... باستخدام اللون في حدث عند الحالي او عند الخروج .... If IsNull(ContactTitle) = True Then ContactTitle.BackColor = vbRed Else ContactTitle.BackColor = vbWhite End If

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

اخي الفاضل جرب المرفق نموذج 1.rar

بسم الله الرحمن الرحيم ادرج اليكم ملف اكسل عن الإصدار الرابع من اعداد xlfdic و هو بالتأكيد مفيد جدا و إن شاء الله تستفيدوا منه و اردت اضافته و لما به من شرح جميل لعدد كبير من الدوال التي نحتاجها ملحوظه:- قد يكون ادرج في الموقع منذ زمن الإصدار الاول و لكن رأيت اعداد الموضوع لإستفاده الجميع او للتذكير به XLFDIC04.zip

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