أبو حنف

جرب الملف المرفق 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

آسف أخي أنا ظننتك تريد الالغاء كاملا انظر حل أخي بو عبد الباري جزاه الله خير فهو يفي بالغرض ولاثراء الموضوع هناك معادلتين للتقريب 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))