أبو حنف

جرب الملف المرفق

1233.2.xlsm

هو نفس الكود أخي ولكن عدل عنوانه فقط كما يلي
وقم بادراج زر واربطه مع اسم الكود save

Sub save()
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Intersect(Range("A1:F8"), Target)
    If xRg Is Nothing Then Exit Sub
    Target.Worksheet.Unprotect Password:="123"
    xRg.Locked = True
    Target.Worksheet.Protect Password:="123"

End Sub

أرفق مثال واعرض به المطلوب للتوضيح أكثر

ضيف السطر ده في بداية الكود

Columns("G:G").ClearContents

vlp.zip

اخواني
هل الشرح غير واضح أم الموضوع صعب ؟
للرفع مرة أخرى !

هل من مساعدة ؟؟

للرفع

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

تقبل مروري

اخواني 

كما هو واضح بالعنوان عندي ملف يأتي التاريخ به على شكل تاريخ ولكنه ليس بتاريخ !!

أريد طريقة لتحويل الرقم في العامود الثاني إلى تاريخ كما هو موضح بالعامود الثالث 

مرفق الملف

تحويل الرقم الى تاريخ.rar

ممكن عن طريق اخفاء العامود 

انظر المرفق

Filter_Test nagy.rar

ما شاء الله أخي @الزباري 

شرح مبسط وسهل 
استمر ونحن معك

انظر هذه المشاركة لأخي الحبيب المبدع @الزباري  وخذ منها ما تريد 

https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=118806

تم أخي 

ملاحظات 
1- لتحديد بيانات السلسة اختر تحديد البيانات ثم اختر السلسلة وحدد البيانات المطلوب عرضه

2- لتسمية النطاقات اختر تحديد البيانات ثم اختر نطاق تسمية البيانات وحدد ما تريد

abohanaf(2).zip

13 ساعات مضت, mahmoudslah said:

شكر علي التفضل بالرد 

المعادلة تعطي صفر لا تقوم بالغاء كسر القرش

آسف أخي أنا ظننتك تريد الالغاء كاملا

انظر حل أخي بو عبد الباري جزاه الله خير فهو يفي بالغرض

ولاثراء الموضوع 

هناك معادلتين للتقريب 
1- int وهي تقوم بالتقريب لأقل رقم صحيح بدون كسور نهائيا 
=int(cell)
2- round  ولها أكثر من حالة 
round(cell;0)  وهي تقوم بالتقريب لأقرب رقم صحيح يعني "2.3 = 2 " ,, "2.5 = 3"  وهكذا   
round(cell;1)  وهي تقوم بالتقريب لقيمة عشرية واحدة      
round(cell;2)  وهي تقوم بالتقريب لقيمتين عشري       
round(cell;3)  وهي تقوم بالتقريب لثلاثة قيم عشرية     
وهكذا

استبدل المعادلة a9 
=INT((B7+A7/100+B8+A8/100)-INT(B7+A7/100+B8+A8/100))
 

طيب بعض الاستفسارات 
1- هل يتم الترصيد في أي من الشيتات ؟ بمعني عمليات الصرف والاستلام تسجل على الشيت أم يتم أخذ رصيد دفتري أول المدة ثم بعد فترة يتم الجرد وتتم المقارنة فقط ؟

2- هل يوجد عامود فريد تريد الفلترة عليه ؟ بمعني عامود رئيسي مثلا ( الصنف / الشركة / النقشة / المقاس .....

3- هل الغرض مطابقة كميات كل صنف أول المدة ووقت الجرد ؟ نعم أم لا 

ما الغرض من الفلترة ؟؟

أخبرنا وقد يكون هناك طريقة أفضل لما تريد

أخي اسامة 

من المعلوم أن الرسم البياني يعتمد كليا على أرقام وليس نصوص 
لذا إذا أردت تطبيقه على ملفك يجب أن يكون هناك أرقام يتم التعامل معها 

من المعادلات الجميلة والتي ستفيدك دالة countif ومن خلالها نقوم باحصاء نسبة تكرر كل بيان بالنسبة للاجمالي

انظر المرفق

estb1.rar

أخي قلل خيارات الأمان 

اذهب الى ملف ثم خيارات ثم مركز التوثيق ثم اختر الآتي :

1- اعدادات الماكرو ثم اختر تمكين جميع وحدات الماكرو

2- طريقة عرض محمية ثم أزل جميع علامات الصح

3- اعدادات التحكم المحسن في أنواع الملفات ثم أزل الصح من جميع الخيارات

4- خيارات الخصوصية ثم ضع علامة صح على ازالة المعلومات الشخصية

وإن شاء الله تتحل المشكلة

رجاء ارفاق ملف 

لم أفهم طلبك جيدا 
ولكن انظر المرفق قد يكون فيه بعض الافادة

Book1.rar

تم التعديل أخي 
هناك خطأ بسيط وهو أنك وضعت القيمة عند تحقق شرط المعادلة if بين علامتي تنصيص وبذلك تعامل معها الاكسيل كنص وليس كرقم
الحل ازالة علامتي التنصيص من الرقم فقط وستصبح المعادلة فعالة 

استبدل المعادلات بالمعادلة التالية
=IF(I6="s";3;IF(I6="E+";2;IF(I6="E";1;IF(I6="M";0;IF(I6="D";-1;"-")))))

نسخة من نسخة من abohanaf.zip

ما شاء الله 
آثرت الاطلاع على الفيديوهات قبل الرد 
وبعد مشاهدة أول 4فيديو ، فعلا شرح رااااائع جدا جدا جدا 
بارك الله فيك ونفع بك وزادك من علمه

ما شاء الله

كود ولا أروع ، وسرعة ما لها حل ....

وصدق أخي @قلم-الاكسل(عبدالعزيز) فلا ندري نشكر من صاحب الشرح أم صاحب الكود !

فالشكر للاثنين معا جزاهم الله خيرا وزادهما من علمه

هل من مساعدة ؟