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

الأخوة الأفاضل بالنسبة لموضوع المقارنة بين بيانات عمودين واخراج البيانات الموجودة فى كل عمود وغير موجودة فى العمود الآخر من المعروف أن هذه المقارنة سهل عملها بالأكواد ويكون الملف أسرع فى العمل وأقل فى الحجم ولكن ماذا عن المعادلات هذه تجربة لعمل هذه المقارنة باستخدام المعادلات حيث تكون فعالة مع حجم البيانات الصغير لعها تكون مفيدة لبعض الإخوة اليكم الملف المرفق مقارنة بين عمودين بالمعادلات.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

السلام عليكم يا أحلى منتدى خلاصة استفادتي من المنتدى بتصميم وتطوير فاتورة مبيعات خاصة والتعامل مع الفورم في ترحيلها.. توجد مشاركات سابقة بنفس الموضوع إلا أنني لم ولن أبخل ما توصلت إليه من تجارب في تطوير النموذج ليعمل بكفاءة عالية ومرنة للجميع.. إلى أن يتم إضافة إمكانيات رائعة للنموذج مثل فاتورة مشتريات وتقارير أسبوعية وشهرية وربع سنوية وسنوية بالإضافة إلى متابعة المخزون وربطها بالمبيعات والمشتريات إليكم المرفق التالي: فاتورة ترحيل بفورم.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 بحيث ان لم يجد فى النطاق الذى نبحث فيه عن اصغر قيمة يعطينى فراغ

تفضل المرفق تم التطبيق عليه date2.zip

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

السلام عليكم أخي الكريم هناك مشكلتين الأولى في المعادلة والثانية في ترتيب الأعمدة في الشيت 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

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

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

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

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

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

جرب هذا الملف يجب تكملة العلامات لتنفيذ الباقي توزيع درجات قرارsalim.rar

تم التعديل حسب الطلب choose_number 1.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

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

Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("[field1]", "table1", "[field1]='" & Me!txt1 & "' AND [field2]='" & Me!txt2 & "'AND [field3]='" & Me!txt3 & "'") > 0 Then MsgBox "duplicated fields", vbExclamation Me.Undo Cancel = True End If End Sub

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

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

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

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

السلام عليكم حل بالإستعانه بدالة VLOOKAnyCol للاستاذ القدير ابو تامر حفظه الله تفضل المرفقات منظومة المخازن_ALI.rar

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

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

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