عبدالسلام ابوالعوافي

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

استاذنا ياسر لا اعلم لما تتخوف وتتحاشى الحلقات التكرارية بالرغم انها اساس العمل في الكثير من الدوال مثلا لو عملنا دالة Lookup او Sum او Index فإن الاكسل سيقوم بفحص كل الخلايا في النطاق .. يعني انه سيستخدم الحلقات التكرارية لو قمنا بالفلترة مثلا سيقوم الاكسل بفحص كل الخلايا في النطاق ومقارنتها بالشروط .. يعني ايضا انه يستخدم الحلقات التكرارية المثال السابق يحتوي فقط علي 5000 خلية .. يعني لاشي بالنسبة للحاسب الذي يقوم بمئات الملايين من العمليات في الثانية الواحدة بالرغم من ان الاكسل يعتبر من البرامج البطيئة في معالجة البيانات .. الا اني جرب الكود السابق علي نطاق يساوي عشر اضعاف النطاق السابق .. وكان الزمن المستغرق في حدود الثانية الواحدة فقط .. طبعا يختلف الزمن من جهاز لاخر ارفقت لك المثال لكي تجرب بنفسك اعذرني على الاطالة .. تحياتي ForLoop.rar

كود اسرع Sub AAA() Dim i As Integer With Application .Calculation = xlCalculationManual .ScreenUpdating = False .EnableEvents = False End With For i = 1 To 5000 Cells(i, 1) = Null Next With Application .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic End With End Sub

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

اضغط Esc

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

غير تنسيق الخلايا الي عام او رقم

هذا الكود يسمح الخلايا المخفية Sub AAA() Dim rng As Range For Each rng In Sheets("123").Range("A1:A500") rng = "" Next End Sub

المتاخرين عن الدفع.rar

هذه الدالة تستخدم في الاكسس وفي VBA .. اما في الاكسل فهي

هل يكفي التنسيق الشرطي ؟ =AND(SUMPRODUCT(--(D3:L3="");--((O3:W3)<TODAY()))<>0;C3<>"")

اسمحو لي بالمشاركة =IF(COLUMN()>COUNTA(5:5);"";INDIRECT(ADDRESS(5;COUNTA(5:5)+2-COLUMN())))

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

#,##0.00;-#,##0.00;""

=SUBSTITUTE(ADDRESS(MAX(IF(N4=($A$1:$H$12);ROW($A$1:$H$12);0));MAX(IF(N4=($A$1:$H$12);COLUMN($A$1:$H$12);0)));"$";"") مطلوب بحث عن رقم الخلية.rar

يوجد موضوع مشابه اخي الكريم ..

اضف دائما اندايركت

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

عد تكرار حرف أو كلمة في خلية.rar

شكرا اخي علي المعلومة .. لاني لا اتعامل الا بالانجليزية .. اما فيما يخص طلبك جرب هذا الكود =SUMPRODUCT(--(MID(A2;ROW($A$1:$A$100);LEN(D2))=D2))

HYPERLINK.rar

اخي ابوحمادة لا افضل استخدام الرسائل الا في عند الضرورة ولكي تبين شئ مهم .. مارائك بان يتم اخفاء الاوبشن بوتن كما في الكود الاتي Sub VisUnVis() OptionButton1 = False OptionButton2 = False OptionButton3 = False OptionButton4 = False OptionButton5 = False If CheckBox1 = False And CheckBox2 = False And CheckBox3 = False Then OptionButton1.Visible = False OptionButton2.Visible = False OptionButton3.Visible = False OptionButton4.Visible = False OptionButton5.Visible = False Else OptionButton1.Visible = True OptionButton2.Visible = True OptionButton3.Visible = True OptionButton4.Visible = True OptionButton5.Visible = True End If End Sub