وعليكم السلام ورحمة الله وبركاته
تفضل : يمكنك وضعه في حدث الحالي او الفتح للنموذج الموجود فيه الحقل الذي تريد ارجاعه لصفر
وتلقائيا عندما يكون تاريخ اليوم 1 يقوم بارجاعه لصفر
Dim txt0 As Date
txt0 = Format(Date, "dd")
If txt0 = 1 Then txt1 = 0
حقل txt1 هو الحقل الخاص بك الذي تريد ارجاعه لصفر
::
تحياتي
بارك الله فيك أخي أبو عبد الباري . كفيت و وفيت و أحسنت صنعا . حفظك الله و رعاك.
فقط دون أن أثقل عليك، إذا كان بالإمكان التفكير في حل دون المرور بالخلايا الوسيطة M5:M9.
جمعنا الله في جنة الرضوان و السلام عليكم و رحمة الله و بركاته.
السلام عليكم ورحمة الله
الشرط على التاريخ المكرر على الحقل نفسه يختلف عن الشرط الخاص بالأسماء لأن التاريخ المطلوب هو التاريخ المحصور بين التاريخين المحددين بالخلايا F1 و H1 بينما الشرط على الأسماء هو التطابق مع الاسمين المحددين بالخلايا J2 و J3 وهذا لا يتحقق في آن واحد في النطاق B:B... وفي هذه الحالة الدالة SUMIFS تعطي النتيجة 0... ولحل المشكلة يمكن استبدال معادلتك بالمعادلة التالية:
=SUMPRODUCT(($C$2:$C$1000)*($A$2:$A$1000>$F$1-1)*($A$2:$A$1000<=$H$1)*(($B$2:$B$1000=$J$2)+($B$2:$B$1000=$J$3)))
بن علية
وعليكم السلام أخي الكريم
هذا مثال فيه عدة طرق للترقيم التلقائي وهو من تصميم أحد الأخوة الأفاضل نسأل الله أن يجزيه عنا كل خير
وأتمنى أن يكون به ما تريد ::
11ترقيم في نموذج.rar
هذا الكود يسمح لك بتحديد الخلية المحمية فقط دون ان يسمح بأي اجراء عليها(حذف--- تعديل---نسخ ---الخ) و يخفي المعادلة ايضاً و لا يأخذ بالحسبان الا المعادلات ( جربه و اعطني رأيك)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect
If Target.HasFormula Then
With Target
.Locked = True
.FormulaHidden = True
End With
With ActiveSheet
.Protect
.EnableSelection = xllockedCells
End With
End If
End Sub
السلام عليكم و رحمة الله و بركاته
ما شاء الله عليك اخي ابو عبدالله
مبدع دائماً
في المرفق حل اخر دمجت فيه بين الكود و معادلات الصفيف لإستخراج عناوين الخلايا المكرره
======================
دمتم في حفظ الله
www.Excel4Us.com يحيى حسين.rar
أخي الحبيب / أبو البراء
أخي الحبيب / بن علية
لا أملك إلا أن أشكركم من أعماق قلبي وأدعو لكم بكل خير في دينكم ودنياكم ولي والمسلمين اللهم آمين .
ونزولاً على رغبة أخي الحبيب أبو البراء مرفق آخر ملف أرفقته بهذه المشاركة مع إضافة صفحة بها شرح الكود كما طلبت أخي العزيز .
وأود أن أوضح هنا أمران هامان :
الأمر الأول : هو أن هذا العمل ومعظم ما ييسر الله تعالى به على من مشاركات هي نتيجة شيئان الأول هو توفيق الله عز وجل وحده وليس مهارة أو خلافه مما يظن البعض من عوامل النجاح والشيئ الثاني هو تكرار المحاولة والإلحاح والتركيز فيها بعد الاستعانة بالله واستحضار ما تعلمته من هذا المنتدى ومن أساتذته الذين أدين لهم بالكثير .
الأمر الثاني : أرجو أن تعذروني في ربما عدم الدقة و الوضوح فيما قدمته من شرح ، وهذه هي المرة الأولى التي أقوم فيها بمثل هذا الأمر .
تقبلوا حبي وتحياتي
أبو عبدالله
قائمة بالمكرر وعدد مرات التكرار وعناوين المكرر مع شرح الكود.rar
عدد مرات التكرار
=SUMPRODUCT(--(A3:A19=A3))
محتوى الخلية المكررة " الاسم الكرر "
=IF(B3>1;A3;"")
b3 = عدد مرات التكرار
مكان الخلية
حل بدائي على عجالة
=IF(B3>1;"عمود"&COLUMN(B3)&"--"&"صف "&ROW(B3);"")
Test2.rar
أخي الحبيب / أبو البراء
إلى جانب الحلول الجميلة والمختلفة التي قدمها إخواني الأعزء ، هذا حل آخر لعله يضيف جديد للموضوع .
تقبل تحياتي
أبو عبدالله
قائمة بالمكرر وعدد مرات التكرار وعناوين المكرر.rar