jimsstreet قام بنشر يناير 2, 2012 مشاركة قام بنشر يناير 2, 2012 (معدل) بعد إذن حضراتكم ممكن حل لهذه المشكلة أنا جربت الأمر ده Option Explicit Sub Delete333Rows() Dim LR As Long, a As Long Application.ScreenUpdating = False LR = Cells(Rows.Count, 5).End(xlUp).Row For a = LR To 1 Step -1 If Cells(a, 5) = "15" Then Rows(a).Delete Next a Application.ScreenUpdating = True End Sub بس المشكلة إن ال cell موجود جواها الشكل ده "00:15" مثلا فالبرنامج مش قادر يحذف الصف اللى فية الخلية بالشكل ده من الآخر أنا عندى بيانات كل ربع ساعة عاوز أحذف الأربع دى (15و30و45) وأخلى الساعات الصحيحة زى ( 00:00و01:00و02:00) المشكلة فى الفورمات اللى موجوده بيه الساعة أرجو سرعة الرد الملف المرفق علشان يتفتح لازم يتعملوا فتح من خلال برنامج الإكسيل وليس open with tr3.rar تم تعديل يناير 2, 2012 بواسطه jimsstreet رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 2, 2012 مشاركة قام بنشر يناير 2, 2012 وش نوع الملف الذي انت مرسله لا يفتح نرجو ارفاق ملف اكسل واعمل عليه ضغط بااحد برامج الضغط winrar و winzeb رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يناير 2, 2012 مشاركة قام بنشر يناير 2, 2012 السلام عليكم جرب هذا الكود على اساس ان الوقت في العمود E بهذا الفورمات hh:mm:ss Sub Delete333Rows() Dim LR As Long, a As Long Application.ScreenUpdating = False LR = Cells(Rows.Count, 5).End(xlUp).Row For a = LR To 1 Step -1 If Minute(Cells(a, 5)) = "15" Or Minute(Cells(a, 5)) = "30" Or Minute(Cells(a, 5)) = "45" Then Rows(a).Delete End If Next a Application.ScreenUpdating = True End Sub رابط هذا التعليق شارك More sharing options...
jimsstreet قام بنشر يناير 2, 2012 الكاتب مشاركة قام بنشر يناير 2, 2012 (معدل) ألف شكر على سرعة الرد بس بتظهر رسالة type mismatch فى السطر ده If Minute(Cells(a, 5)) = "15" Or Minute(Cells(a, 5)) = "30" Or Minute(Cells(a, 5)) = "45" Then و الفورمات فى الخلية hh:mm تم تعديل يناير 2, 2012 بواسطه jimsstreet رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يناير 2, 2012 مشاركة قام بنشر يناير 2, 2012 اخي هلا ارفقت ملف اكسل رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يناير 2, 2012 مشاركة قام بنشر يناير 2, 2012 اخي الفاضل المشكلة انك واضع الارقام هكذا "09:00" ويفترض ان تكون هكذا 09:00 رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يناير 2, 2012 مشاركة قام بنشر يناير 2, 2012 هذا المرفق بعد ازالة " وتنفيذ الكود ابواحمد.rar رابط هذا التعليق شارك More sharing options...
jimsstreet قام بنشر يناير 2, 2012 الكاتب مشاركة قام بنشر يناير 2, 2012 أنا أرفقت الملف فى أول الموضوع بس علشان الملف يفتح لازم يتعملوا extract الأول وبعدين إفتح برنامج الإكسيل نفسه اللى متسطب مش الملف وبعدين من خلال البرنامج إختار file وبعدين open وبعدين إختار مكان الملف اللى حضرتك عملتله extract رابط هذا التعليق شارك More sharing options...
jimsstreet قام بنشر يناير 2, 2012 الكاتب مشاركة قام بنشر يناير 2, 2012 ألف شكر بس ممكن أعرف إزاى حضرتك عملت الساعة بالفورمات ده hh:mm رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يناير 2, 2012 مشاركة قام بنشر يناير 2, 2012 قمت بتحديد العمود E ثم قمت بعملية استبدال (Ctrl + F ) وضعت في خانة البحث عن " وتركت خانة استبدال ب فارغة ثم اضغط استبدال الكل رابط هذا التعليق شارك More sharing options...
jimsstreet قام بنشر يناير 2, 2012 الكاتب مشاركة قام بنشر يناير 2, 2012 ألف ألف ألف شكر وألف شكر على هذا التواصل الرائع رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 3, 2012 مشاركة قام بنشر يناير 3, 2012 السلام عليكم جزاك الله خير استاذ عبدالله المجرب تقبل مروري رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان