الدالة MATCH

[bachiri401]

السلام عليكم ورحمة الله وبركاته رمضان كريم

الرجاء من الاخوة بارك الله فيكم

كيف يمكن ان اجعل الاكسيل يكتب في قاءمة الاقسام اول قسم يوجد في التوقيت مرة واحدة فقط

Microsoft Office Excel Worksheet جديد ‫‬.xlsx

[سليم حاصبيا]

السؤال غير مفهوم

املأ الجدول يدوياً وارفع الملف من جديد لمعرفة المطلوب

[bachiri401]

شكرا على اهتمامك تفضل الملف

الملف مملؤ يدويا.xlsx

[سليم حاصبيا]

الحل هنا

 

My_count.xlsx

[bachiri401]

شكرا لكن الملف لا يعمل فقد قمت بادخال قسم جديد كما في الملف المرفق لكنه لم يعمل

My_count.xlsx

[سليم حاصبيا]

My_count1.xlsx

[bachiri401]

شكرا لك اخي سليم لكن يبدو انني لم اوفق في شرح ما اريده

انا اريد من الاكسيل ان يضع لي القسم انطلاقا من التوقيت ثم يقوم بحساب عدد الساعات

 

[bachiri401]

اخ سليم اليس هناك دالة تقوم باستخراج الاقسام من جدول الحراسة

[بن علية حاجي]

السلام عليكم ورحمة الله

تم عمل المطلوب بواسطة كود VBA ومعادلات...

بن علية حاجي

My_count.xlsm

[سليم حاصبيا]

رمضان كريم و مبارك على الحميع

بعد  اذن اخي بن علية

في حال استعمال الكود

يمكن عمل ذلك بدون أعمدة  مساعدة (  أقصد العامود T ) و حتى بدون معادلات Countif

الكود

Option Explicit
Sub Salim_Unique_Data_And_count()
Dim Rng As Range
[b9:i10].ClearContents
Dim dt As Object
Set dt = CreateObject("Scripting.Dictionary")
For Each Rng In [B2:I6]
    If Rng.Value <> vbNullString Then
     dt(Rng.Value) = _
     IIf(Not dt.exists(Rng.Value), 1, dt(Rng.Value) + 1)
    End If
Next
Range("b9").Resize(1, dt.Count) = dt.Keys
Range("b10").Resize(1, dt.Count) = dt.Items
dt.RemoveAll: Set dt = Nothing
End Sub

الملف مرفق

 

My_count_Salim.xlsm

[bachiri401]

بارك الله فيكم هذا ما اريده

ربي يجعلها في ميزان حسناتكم

صحا صيامكم

[bachiri401]

فقط بقي شيء واحد حفظكم الله

اقوم بجلب البيانات من ملف اخر عن طريق النسخ واللصق الارتباطي

مكان الفراغات دائما اصفار والملف الذي قمتم بانجازه لي يحسب الاصفار كما هو مبين في الملفين المرفقين حتى ولو قمت بالذهاب الى الخيارات المتقدمة و عدم اضهار القيم الصفرية الا انه يقوم بحسابتها

1صورة.docx 2صورة.docx

[بن علية حاجي]

السلام عليكم

تم عمل المطلوب في كل من ملفي وملف أخي الكريم سليم...

بن علية حاجي  

My_count_Salim.xlsm My_count_hben.xlsm

[bachiri401]

بارك الله فيك كفيت ووفيت

صحا فطورك وفطور الجميع  اعظاء وخبراء المنتدى