اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

  1. الرائد77

    الرائد77

    الخبراء


    • نقاط

      13

    • Posts

      238


  2. عفرنس

    عفرنس

    04 عضو فضي


    • نقاط

      9

    • Posts

      1069


  3. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      8

    • Posts

      9937


  4. سليم حاصبيا

    سليم حاصبيا

    أوفيسنا


    • نقاط

      8

    • Posts

      8723


Popular Content

Showing content with the highest reputation on 05/28/20 in all areas

  1. بعد اذن حبيبي سليم معادلة صفيف. أكتب فقط السنة في الخلية g1 =IFERROR(INDEX($A$2:$A$170; MATCH(0;COUNTIF($G$3:G3; IF(($G$1=YEAR($B$2:$B$170)); $A$2:$A$170; $G$3)); 0)); "") إدراج الاسماء تلقائي.xlsx
    4 points
  2. السلام عليكم اخي الفاضل محمد ابو انس كما نبهك اخونا فايز.. ( ياليت تجعل أسماء الحقول في الجداول باللغة الإنجليزية .. حتى يسهل عليك التعامل مع الأكواد بسهولة .) تم عمل اجماليات الفاتورة كما طلبت جرب وشوف واي حاجة ناقصاك لا تتردد في السؤال برجاء تعديل عنوان المشاركة الي اجمالي الفاتورة مثلا وعندما تطلب طلب اخر اجعله في موضوع جديد بعنوان يدل عليه لتسهل علي غيرك الوصول للمعلومة وربنا يوفقك في اكمال برنامجك فهو حقا جميل _برنامج محاسبي لنقاط البيع الاصدار الاول - نسخة.rar
    4 points
  3. السلام عليكم استعمال دالة المنوال MODE يفي بالغرض... ايجاد الرقم الاكثر تكراراً.xlsx
    3 points
  4. مرحبا استاذ ازهر الهدف الاساسي من تقسيم قاعدة البيانات عمل اكثر من مستخدم على القاعدة في نفس الوقت في حالة تعطل جهاز مستخدم او تعطل القاعدة الامامية لديه يستمر المستخدمون الاخرون في اداء عملهم اي تعديل او اضافة للبيانات تظهر للمستخدمين الاخرين يمكن تحديد نماذج وتقارير معينه للمستخدم وفقا لطبيعة عمله سهول تطوير القاعدة الامامية حسب فهمي للموضوع ان الجداول على الفلاشة وعند نهاية ساعات العمل يقوم المدير بفصل الفلاش ? ماذا لو تلفت الفلاشة او تاخر المدير عن العمل او فقدت الفلاشة ايضا ماذا لو كان العمل اكثر من فترة في اليوم هل سيكون اكثر من فلاشة وكيف سيتم مزامنة البيانات في الفلاشات الاخرى كيف سيتم حماية الجداول بعد توصيل الفلاشة وهل الجهاز الموصول بالفلاشة محمي ؟ هل القاعدة الامامية محمية بشكل جيدة حتى لا يتمكن المستخدم من تجاوز صلاحياته مواضيع الحماية تفاصيلها متعددة ولا اعتقد ان التقسيم هو الحل النهائي كما اشرتم والموضوع السابق وان كان مختلف الا انه يعطي مؤشر الى انه الحماية قد تكون جيدة ولكن ليست نهائية ايضا قد تكون القاعدة محمية ظاهريا ولكن لوجود خطأ في تقييد بعض الرموز يؤدي الى امكانية تنفيذ استعلامات تسمح بالدخول للبرنامج او حذف او تعديل الخ في جميع الاحوال الحماية امر نسبي ولا يوجد حل نهائي تحياتي وكل عام وانتم بخير
    3 points
  5. تفضل اخي العزيز ارجو ان يكون طلبك Database10.rar
    3 points
  6. جرب هذا الكود Option Explicit Sub get_Prof_names() Dim sh As Worksheet, Rg As Range Dim i%, Yer% Dim Salim As Object Set Salim = CreateObject("Scripting.Dictionary") Set sh = Sheets("sheet1") Set Rg = sh.Range("G3").CurrentRegion If Rg.Rows.Count > 1 Then _ Rg.Offset(1).Resize(Rg.Rows.Count - 1).Clear Yer = sh.Range("G1"): i = 2 Do Until sh.Cells(i, 1) = vbNullString If Year(Cells(i, 2)) = Yer Then Salim(Cells(i, 1).Value) = vbNullString End If i = i + 1 Loop If Salim.Count Then With sh.Range("G4").Resize(Salim.Count) .Value = Application.Transpose(Salim.Keys) .Borders.LineStyle = 1 .Font.Bold = True: .Font.Size = 16 .InsertIndent 1: .Interior.ColorIndex = 35 End With End If End Sub الملف مرفق Prof_names.xlsm
    3 points
  7. أخي محمد .. ياليت تجعل أسماء الحقول في الجداول باللغة الإنجليزية .. حتى يسهل عليك التعامل مع الأكواد بسهولة ..
    3 points
  8. بعد ادن اخي بن علية العدد الاكثر تكررارا مع اضافة عدد مرات التكرار و اضافة تنسيق شرطيي لتلوين الرقم الاكثر تكرارا ايجاد الرقم الاكثر تكراراً.xlsx
    2 points
  9. ممتازة منك صديقي رائد (لكنها تدرج المكرر في حال وجوده) هذه معادلة احرى (بردو تدرج المكرر في حال وجوده) (سبق وان قلت ان استعمال الدالة IFERROR ) يفضل عدم استعمالها =IF(ROWS($A$1:A1)>SUMPRODUCT(--(YEAR($B$2:$B$50)=$G$1)),"",INDEX($A$2:$A$50,SMALL(IF($A$2:$A$50<>"",IF(YEAR($B$2:$B$50)=$G$1,ROW($A$2:$A$50)-ROW($A$2)+1)),ROWS($A$1:A1)))) اذا لم نتعمل معك استبدل الفاصلة "," بفاصلة منقوطة ";" مع (Ctrl+Shift+Enter) Prof_names.xlsm
    2 points
  10. تهنئة من قلبى لكل من / @اشرفو @Gamal.Saad الف الف مبروك تستاهلون كل خير وكل عام ونتم بألف خير
    2 points
  11. 2 points
  12. 2 points
  13. لا يمكن عمل هذا في النموذج المستمر ، اما اذا كان النموذج فردي ، فتستطيع ان تعمل نموذج فرعي للحقول الباقية (نوع الاعانة ، تحديد .... ، ولكن يمكن عمل هذا في التقرير ، بحيث تعمل تجميع وفرز بالرقم ، وهذا الرابط يشرح طريقة العمل : جعفر
    2 points
  14. اخى الفاضل عمر مشاركه مع اخوانى واساتذتى الافاضل اشرف وابوفريد جزاهم الله خيرا 💐 وكما تم التوضيح لك منهم لايوجد لديك تكرار لماذا بارك الله فيك انت تعتقد بان السجلات الخاصه بنائب العريف مكرره التكرار يشمل جميع الحقول الاساسيه والمرتبطه وطالما يوجد اختلاف فى رقم المستند وهما 4478 و 4458 غير اى رقم فيهم فى جدول Tbl_WheelUsers اجعلهم رقم واحد اى 4478 او 4458 وافتح الاستعلام ستجد بانه لايظهر معك الا سجلات فريده وغيره مكرره جرب ووافنا بالنتيجه بالتوفيق
    2 points
  15. 2 points
  16. وعليكم السلام اتفضل هل هذا ماتريد بالتوفيق اخى cars.rar
    2 points
  17. السلام عليكم اخي الفاضل omarAbdalrazaq اين التكرار في الاستعلام المذكور هل تقصد ما تم تدويره بالاحمر في الصورة ان كان نعم فيا اخي الفاضل لا يوجد تكرار فهذه السيارة لها ثلاثة اذون صرف بارقام محتلفة
    2 points
  18. شيت اكسيل به معادلة لحساب الضريبة اعتبار من 1 / 7 / 2020 بعد القانون 26 لسنة 2020 حسبة الضريبة.xls
    2 points
  19. السلام عليكم قد واجهتني هذه المشكلة ولم أعثر لها علي حل - ولكن توجد حيلة للتحايل وللخروج من هذا المأزق قمت بعمل جدول مشابه لحقول استعلام التجميع - قمت باضافة بيانات استعلام التجميع الي الجدول - فالتجميع يمكن أن يتحول الي اضافة- ثم ننشأ الآن استعلام تحديث من خلال البيانات التي تم اضافتها بالجدول. وانتهي الأمر جرب هذا لعله يفيدك ولا تنسي اخبارنا عن النتائج.
    2 points
  20. السلام عليكم و رحمة الله تعالى وبركاته إخوتي الكرام حياكم الله. إليكم هذا البرنامج الصغير الذي يقوم بإظهار شريط طباعة مع كل تقرير و بإستعمال أكواد قليلة يقوم شريط الطباعة بضبط إعدادات الصفحة ، طباعة الصفحة الحالية، طباعة الصفحات التي تريدها حسب الإختيار، التكبير و التصغير ، الإنتقال بين السجلات، عرض مجموعة من الصفحات في التقرير. رغم أنه يوجد مثال من قبل للأستاذة زهرة حفظها الله. إلا أنني في هذا المثال إستعملة طريقة مغايرة قليلا و بإستعمال أسطر أقل. إنشاء شريط طباعة.rar
    1 point
  21. في الخدمة اخي العزيز واستاذي الفاضل د.محمد حلبي وعيدكم مبارك التفاصيل وتفاصيل التفاصيل مهمة دائما لعمل ناجح تحياتي استاذ ازهر وعيدكم مبارك
    1 point
  22. وعليكم السلام ورحمة الله وبركاته جرب الملف ربما يكون فيه طلبك لا تنسى تفعيل الماكرو لكي تشتغل الازرار تحياتي Test1.xlsm
    1 point
  23. اخى عمر وحد الرتب طالما تستطيع ذلك وسوف تنتهى مشكلتك باذن الله بالتوفيق
    1 point
  24. استاذي ومعلمي اللغالي والحبيب kha9009lid يشرفني ويسعدني مرورك واهتمامك بالموضوع و طبعا النقاط التي اشرت اليها في غايت الاهمية ولا اخفيي عليك لم تكن بالحسبان وهو ما يدل على حسك العالي بالنسبة بالنسبة للجهاز محمي لانة غير متصل بالانترنت وكانت المخاوف من الموظفين وبعض الامور التي يطيل شرحها شكرا مرة ثانية لك
    1 point
  25. معك كل الحق أعتذر انا صراحة لم أجربها
    1 point
  26. اكرم الله استاذنا / @kha9009lid بهذا تكون الصورة وضحت اكثر تحليل رائع منك استاذ / خالد كما تعودنا
    1 point
  27. اشكركم شكرا جزيلا لاستعادة كلمة المرور التي نسيتها👍
    1 point
  28. وعليكم السلام 🙂 حيا الله اخوي محمد ، صار لنا زمن ما شفناك 🙂 نعمل الترقيم في النموذج : يمكن ترك الكائنات في مكانها في تصميم التقرير ، ولكن: نغير اسماء الحقول ، حتى يسهل علينا ، مثل lbl_11 و lbl_12 و lbl_13 للسطر الاول ، وطبعا نفس الترتيب للأسطر الاخرى ، نخفي الحقول الغير مطلوبة (في الكود) ، والحقول المطلوبة ، نعطيها موقع (ابعاد) حقول السطر الاول ، Top و Left (في الكود) ، ونعمل الكود في حدث "عند تنسيق" القسم Report Header : . Option Compare Database Option Explicit Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer) 'خطوة مؤقته لإخفاء جميع الكائنات ، وتحريكهم الى السطر العلوي 'Line 1 Me.lbl_11.Visible = False Me.lbl_12.Visible = False Me.lbl_13.Visible = False 'Line 2 Me.lbl_21.Visible = False 'اخفاء Me.lbl_21.Left = Me.lbl_11.Left 'مكانه من يسار التقرير Me.lbl_21.Top = Me.lbl_11.Top 'مكانه من علو التقرير Me.lbl_22.Visible = False Me.lbl_22.Left = Me.lbl_11.Left Me.lbl_22.Top = Me.lbl_11.Top Me.lbl_23.Visible = False Me.lbl_23.Left = Me.lbl_11.Left Me.lbl_23.Top = Me.lbl_11.Top 'Line 3 Me.lbl_31.Visible = False Me.lbl_31.Left = Me.lbl_11.Left Me.lbl_31.Top = Me.lbl_11.Top Me.lbl_32.Visible = False Me.lbl_32.Left = Me.lbl_11.Left Me.lbl_32.Top = Me.lbl_11.Top Me.lbl_33.Visible = False Me.lbl_33.Left = Me.lbl_11.Left Me.lbl_33.Top = Me.lbl_11.Top '----------------------------- Dim L L = Forms!Form1!lst_Line 'نأخذ رقم السطر من النموذج ونختصره في المتغير L '----------------------------- 'اظهار السطر الصحيح ، وتحريكه الى مربعات السطر الاول Me("lbl_" & L & "1").Visible = True Me("lbl_" & L & "2").Visible = True Me("lbl_" & L & "3").Visible = True Me("lbl_" & L & "1").Left = Me.lbl_11.Left Me("lbl_" & L & "1").Top = Me.lbl_11.Top Me("lbl_" & L & "2").Left = Me.lbl_12.Left Me("lbl_" & L & "2").Top = Me.lbl_12.Top Me("lbl_" & L & "3").Left = Me.lbl_13.Left Me("lbl_" & L & "3").Top = Me.lbl_13.Top 'تغيير ارتفاع القسم في التقرير Me.ReportHeader.Height = Me.Label11.Height * 2 End Sub . والنتيجة : . جعفر 1228.R_MultiHead.accdb.zip
    1 point
  29. اتفضل اخى @ازهر عبد العزيز هل هذا ما تريد ؟ بالنسبه للتواريخ تم تنسيقها بالجدول والقيمه الافتراضيه Now DEL(2).accdb
    1 point
  30. تسلم اخي فايز ان شاء الله نتعلم نحسن البرنامج بفضل تعاونكم
    1 point
  31. تسلم استاذ أحمد الفلاحجى بارك الله فيك هذا هو المطلوب اجمل تحية وتقدير
    1 point
  32. السلام عليكم بعد اذن استاذ اشرف تجد اختلاف في حقل الرتبة (رئيس عرفاء ، نائب عريف) و جميع سجلات منفردة و لايوجد تكرار
    1 point
  33. وعليكم السلام-يمكنك استخدام هذه المعادلة =INDEX($P$6:$P$20,MATCH("مؤكد",$F$7:$F$21,0)) الحالات المؤكدة1.xlsx
    1 point
  34. يتم نسخ المعادلة الموجودة فى الخلبة b1 الى اخر العمود شرط وجود بيانات فى العمود a تفضل اخى عسى يفيدك copy formula.xlsm
    1 point
  35. اين الاجابة اخي الكريم ؟؟؟؟؟
    1 point
  36. وعليكم السلام 🙂 يجب ان تعطي الامر بالكامل علشان تحصل على النتيجة المطلوبة ، وعلشان الكود ينكتب بالطريقة الصحيحة ، خلينا نستخدم هذه الاسماء بالانجليزي كمثال: حالة الخدمة= H_Service منقطع = Temp فيكون الكود : Sum_Filed: Sum(iif([H_Service]="Temp",1,0) يعني اذا قيمة الحقل = Temp اجمع لنا 1 (لأن العدد واحد لكل شخص) ، بالعربي المعادلة تنقلب (لهذا السبب فإنه لا يُنصح بإستخدام مسميات عربية في اي من كائنات الاكسس) : . والنتيجة بعد التعديل: . . جعفر AA1.zip
    1 point
  37. الف مبروك للأساتذة @Gamal.Saad و@اشرف على الترقية موفقين ان شاء الله 🌹🌹.
    1 point
  38. يا فرحة العيد الف مبروك للاساتذه @Gamal.Saadو @اشرف
    1 point
  39. شكراً لاستاذنا جعفر على العيدية المميزة والف مبروك للاخوة الافاضل @اشرف و @Gamal.Saad على الترقية راجياً من الله للجميع دوام التوفيق تحياتي
    1 point
  40. الف مبروك لكل من :- استاذ Gamal.Saad استاذ اشرف دوام يارب التوفيق و التقدم كل تحياتى
    1 point
  41. عيدية جميلة ..... مبارك @Gamal.Saad و @اشرف دوام التوفيق ...
    1 point
  42. وعليكم السلام 🙂 اعمل نسخة احتياطية قبل العمل !! انزل هذا البرنامج المجاني : http://www.skrol29.com/us/vtools.php وبعد التنصيب ، استعمل خاصية . . جعفر
    1 point
  43. برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 2007 - اكسيل 2010 اليوم بمشيئة الله هو الانطلاق الرسمى لهذة النسخه وبعد انتهاء مرحلة التجربة التى دامت اكثر من شهرين خطوات استخدام البرنامج لأول مره تسجيل البيانات الجديدة داخل البرنامج لعمل فواتير البيع و الشراء و الحركات المالية 1- تسجيل اسماء مناديب البيع وهى خطوه مهمه مطلوبة لتسجيل اسم عميل جديد 2- تسجيل و ادخال العملاء (يتم ربط كل عميل باسم مندوب) 3- تسجيل و ادخال الموردين 4- تسجيل و ادخال اسماء لفئة الصنف وهى خطوه مهمه مطلوبة لتسجيل صنف جديد 5- تسجيل و ادخال الاصناف (ولابد من وجود فئة مدخله مسبقا لكى تستطيع ادخال الصنف) 6- ولا تنسى تسجيل رصيد اول المده فى شاشة البيانات و الجرد الجديد فى هذا الاصدار * واجهة تطبيقية كاملة * برنامج كامل مخزون فواتير ذمم عملاء وموردين واستحقاقات خلال الفترات الزمنية المختلفة * اختصارات سريعة لتنفيذ العمليات و التقارير بسرعة عالية * كشف حساب بطريقة جديدة بمعنى نفترض انه هناك عميل ما علية مديونية بفيمة 15000 فالبرنامج يعطيك كشف حساب تفصيلى للمديونية المستحقة خلال فترات 30 يوم 60 يوم 90 يوم و اكثر من 90 يوم فمثلا فى المثال السابق يكون استحقاق المديونية على حسب فواتير العميل مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 و فى اكثر من 90 يوم 2000 فيكون اجمالى المديونية هم ال 15000 لكن الاستحقاق فى فترات مختلفه وهذا الكشف يفيد كل من يتعامل بالاجل لمعرفة المستحق خلال الفترة التى يريدها وعندما يقوم العميل بسداد جزء من المستحق يتم خصمه من المديونية القديمه بمعنى ان العميل فى المثال السابق قد قام بسداد 1500 فيتم خصمها من ال 2000 وهى مديونية الاكثر من 90 فيصبح كشف حسابة كالتالى مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 وفى اكثر من 90 يوم 1500 فيكون اجمالى المديونية هم ال 13500 * شاشة فواتير جديده تحوى الكثير و الكثير من الاختصارات للعملاء و الاصناف وتوصلك الى عدة تقارير بضغطة زر واحده عرض معلومات عن الصنف و رصيده الحالى داخل المستودع و اخر سعر شراء بمجرد اختيارك للصنف وادخاله داخلة الفاتوره سهولة الغاء وتعديل الصنف داخل الفاتورة عن طريق الدبل كليك ذهاب مباشره الى تقرير صنف معين بمجرد اختياره وضغط تقرير الصنف اكتشف المزيد............ *شاشة لتقرير المديونية خلال الفترات الزمنية المختلفة يجب عليك قراءة ومراجعة شرح البرنامج جيدا حيث توجد العديد و العديد من الاختصارات السريعة التي تنقلك من شاشة الى اخرى بسرعه عالية ولتوفير وقتك داخل البرنامج. كما توفر لك سرعة الحصول على المعلومة المطلوبة. * لتحميل نسخة من الشرح وهى عبارة عن ملف تنفيذي اضغط على الرابط التالى شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) * او الذهاب الى موضوع شرح البرنامج و مناقشات مشرفى و اعضاء المنتدى داخل المنتدى على الرابط التالى شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) كما احببت ان اقدم مناقشة ونصائح مديري و اعضاء المنتدى للبرنامج لكى يستفيد منها الجميع وهذه المواضيع تم مناقشتها في موضوع شرح البرنامج داخل المنتدى انظر المشاركة التالية لمشاهدة النصائح و المناقشات حول البرنامج واخيرا اقدم لكم البرنامج حجم البرنامج 1.2 MB اختر اسم المستخدم المدير كلمة السر 123 محرر الاكواد 85211 لاتترد فى الاستفسار عن اى شيى داخل البرنامج ضع مشاركتك وسوف يتم الرد عليها كما يمكن مراسلتى على الايميل التالى amroomo@gmail.com اخيرا اتمنى ان يكون هذا البرنامج اضافة الى برامج المخزون و الفواتير وتغيير مسارها على الاكسيل فهذا العمل جديد بكل المقاييس فى افكاره التى اتمنى ان اكون قدمتها بصورة جيدة ويستقيد بها الجميع وَقُلْ رَبِّ زِدْنِي عِلْمًا ========================================================= المرفق المحدث الاخير: SIS 3.152 (Add City).rar
    1 point
  44. الأساتذة الافاضل السلام عليكم ورحمة الله وبركاته لدي برنامج يحتاج من سيادتكم مشكورين التدخل في حله ... حاولت جاهداً منذ أيام ولكن صعب علي تنفيذه .... اليكم البرنامج مضغوط ان الله في عون العبد مادام العبد في عون أخيه والسلام عليكم ورحمة الله وبركاته TRANSFER-CELL.rar
    1 point
  45. كلمات الشكر لاتفى حقك فبهذا المجهود الذى تثاب عليه قد وفر عنى عمل 75000 خليه كتابه احسنت عملا وصنعا وضعها الله فى ميزان حسناتك مشكور جدا جدا جدا وهذا ما نامله من معلمينا بمنتدنا الرائع
    1 point
  46. 030-Hide Show Columns Based On Specific Value YasserKhalil.rar أستاذي الفاضل ياسر خليل أبو البراء وجدت كوداً جميلاً في أحد أعمالك ,ووجدت أنه باعتقادي يمكن تطبيقه على عملي المرفق في بداية الموضوع . وأردت إذا كان في الإمكان أن تشرحه لي وهل بالإمكان تطبيقه فعلاً على ملفي بنفس طريقتك أو بنفس الفكرة مع تغيير اللازم. Option Explicit Sub HideShowColumns() If Not IsEmpty(Range("A1")) And IsNumeric(Range("A1")) And Range("A1") <> 1 And Range("A1") < 13 Then Dim iMon As Integer iMon = Range("A1").Value + 1 iMon = Range("b1").Value + 1 Columns("C:N").Hidden = False Range(Cells(1, 3), Cells(1, iMon)).EntireColumn.Hidden = True Else MsgBox "Cell A1 Should Be Numeric And Not Emtpy" & Chr(10) & "You Should Type From 2 To 12 Only", 64 Columns("C:N").Hidden = False If Not IsEmpty(Range("A1")) And IsNumeric(Range("A1")) And Range("A1") <> 1 And Range("A1") < 13 Then Columns("m:z").Hidden = False Range(Cells(1, 3), Cells(1, iMon)).EntireColumn.Hidden = True Else MsgBox "Cell b1 Should Be Numeric And Not Emtpy" & Chr(10) & "You Should Type From 2 To 12 Only", 64 Columns("o:z").Hidden = False End If End If End Sub 030-Hide Show Columns Based On Specific Value YasserKhalil.rar
    1 point
  47. السلام عليكم ورحمة الله وبركاته البغض منا قد يرغب فى ازالة التنسيق الشرطى عن خلية أو نطاق لسبب ما مع ازالة أو ابقاء آثاره من تنسيقات مثل لون الخلايا و لون و حجم الخط .... الخ و بإذن الله تعالى سأعرض عليكم ــ اخوتى ــ كودين يؤديان هذه المهمة الأول : يقوم بازالة التنسيق الشرطى مع ازالة آثاره من نطاق محدد : Sub RemovingCFandEffects() ' Removing Conditional Formats and the Effects Dim Rng As Range Set Rng = Sheets("Sheet1").Range("A1:C10") Application.ScreenUpdating = False Rng.FormatConditions.Delete Application.ScreenUpdating = True MsgBox ("The Conditional Formats in The Range " & Rng.Address & vbCrLf & " has been Removed and The Effects") End Sub الثانى : يقوم بازالة التنسيق الشرطى من نطاق محدد مع ابقاء آثاره من تنسيقات كما هى أو بعبارة أخرى تحويل التنسيقات الشرطية الى تنسيقات عادية : Sub RemovingCFbutNotEffects() ' Removing Conditional Formats but not the Effects Dim Rng As Range, C As Range Set Rng = Sheets("Sheet1").Range("A1:C10") Application.ScreenUpdating = False For Each C In Rng ' Rng.SpecialCells(xlCellTypeAllFormatConditions) With C .Interior.Color = .DisplayFormat.Interior.Color .Font.FontStyle = .DisplayFormat.Font.FontStyle .Font.Color = .DisplayFormat.Font.Color .FormatConditions.Delete End With Next Application.ScreenUpdating = True MsgBox ("The Conditional Formats in the Range " & Rng.Address & vbCrLf & "has been removed but Not the Effects ") End Sub أتمنى أن يكون موضوعا سهلا وخفيفا ونافعا لكم ... تقبل الله منا و منكم صالح الأعمال والسلام عليكم ورحمة الله وبركاته Removing Conditional Formats.rar
    1 point
  48. بعد إذن أستاذى ( أبو حنين ) إللى نور المشاركة واضح جدا إن هذا المرفق محظوظ لأنه جمع كل العباقرة مرة واحدة lookup مع ثلاثة ,وأربع شروط.rar
    1 point
×
×
  • اضف...

Important Information