أولاً استبدل كلمة sheets بكلمة Worksheets
ثانيًا الفورم الخاص بورقة العمل البيانات كان فيه تكست بوكس اسم تكست بوكس غير موجود بالفورم أي أن التكست بوكسات غير مرتبة فتم إعادة تسمية التكست بوكسات التي كانت في غير ترتيبها حتى يتم البحث بشكل سليم
ثالثًا مرفق الملف بعد التعديل
بيانات العملاء.xlsm
أولاً كان يجب عليك إرفاق ملف عمل لأنه لا يمكن العمل على التخمين
ثانيًا بعد إذن الأستاذ الفاضل حسين مأمون لأثراء الموضوع المعادلة التالية تفي بالغرض
=IF(B2="";"";SUBTOTAL(3;$B$2:B2))
ترقيم.xls
عليك السلام ورحمة الله وبركاته
لكي يقوم الإكسيل بالإرجاع للإعدادات الافتراضية عند غلق الملف
ضع هذا الكود في حدث ThisWorkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("MINE").Activate
With thisApplication
Application.ScreenUpdating = True
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",True)"
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHeadings = True
Application.DisplayScrollBars = True
Application.DisplayStatusBar = True
Application.ScreenUpdating = False
End With
End Sub
شرح الطريقة قمت بتحديد النطاق XEY2:XFA254
وذهب إلى مكن نهاية السهم الذي بالصورة المرفقة
فكلمة Ahmed تعني النطاق السابق وإذا أردت زيادته اضغط مفتاح كنترول + مفتاح F3
يظهر الشكل كما بالصورة الثانية
شرح الدالة =IFERROR(VLOOKUP(A2;Ahmed;2);"")
لو هناك خطأ في الدالة vlookup العثور على قيمة الخلية A2 في النطاق Ahmed العمود رقم 2 منه يكون الناتج فراغ
يعني ابحث عن القيمة الموجودة في الخلية A2 في العمود الثاني من النطاق المسمى Ahmed
شرح الدالة =IFERROR(VLOOKUP(A2;Ahmed;3);"")
لو هناك خطأ في الدالة vlookup العثور على قيمة الخلية A2 في النطاق Ahmed العمود رقم 3 منه يكون الناتج فراغ
يعني ابحث عن القيمة الموجودة في الخلية A2 في العمود الثالث من النطاق المسمى
وأخيرًا أتمنى أن قدرت أوصل الفكرة
لأن الأسماء المركبة في الدالة
("سيف", "عبد", "أبو", "ابو", "عز", _
"صدر", "نور", "فضل")
فأي اسم من هذه الأسماء يأتي معه الاسم الذي يليه
يمكنك حذف كلمة سيف إذا أردت
تفضل المطلوب في فورم اختر اسم ورقة العمل واختر تاريخ اليوم واختر الاسم وسجل حرف غ للغائب التكست بوكس لا يسمح بكتابة أي حرف أو رقم أو أي شيء سوى حرف ( غ ) فقط وبمجرد كتابته في التكست بوكس يتم تسجيل في ورقة العمل تلقائيًا وهذا الفورم من أستاذنا الفاضل / إبراهيم الحداد
555555555555.xlsm
شرح الكود
=IF(B2="";"";SUBTOTAL(3;$B$2:B2))
إذا كانت الخلية B2 فارغة يكون الناتج فراغ ، وإذا كانت غير فارغة استخدم الدالة SUBTOTAL
ورقم 3 هو كما بالصورة الدالة COUNTA لاحتساب الخلايا غير الفارغة بعد الرقم 3 فاصلة او فاصلة تبع إعدادات جهازك اكتب B2 : B2 ثم أغلق الأقواس كما ترى قوسين الأول لدالة if والثاني لدالة SUBTOTAL
بعد ذلك اختر أحد الرمزين B2 وقم بتظليله أو تحديده بالطريقة التي تناسبك ثم اضغط مفتاح F4 بعد ذلك قم بالسحب والنزول لأسفل حتى آخر خلية تريدها