عادل حنفي قام بنشر يناير 22, 2009 مشاركة قام بنشر يناير 22, 2009 (معدل) السلام عليكم بناء علي طلب احد الاخوه معرفة عدد الارقام داخل خلية و تم العمل و لاهميته تم العرض بمشاركة مستقلة ارجو التجربة و اخباري بالنتيجة خالص تحياتي __________________________20____.rar تم تعديل يناير 22, 2009 بواسطه aah_aah2008 رابط هذا التعليق شارك More sharing options...
الســـــــاهر قام بنشر يناير 23, 2009 مشاركة قام بنشر يناير 23, 2009 اللـــه يجزاك خير استاذنا الفاضل عادل دائما تبهرنا بالجديد و الجميل ماشاء الله تبارك الله رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يناير 23, 2009 الكاتب مشاركة قام بنشر يناير 23, 2009 السلام عليكم اخي الساهر مشكور علي المرور بارك الله فيك خالص تحياتي رابط هذا التعليق شارك More sharing options...
خالد_محمد قام بنشر يناير 23, 2009 مشاركة قام بنشر يناير 23, 2009 السلام عليكم اخي aah_aah2008 شكرا لاهتمامك بالموضوع المطلوب اخي بالضبط اذا كانت الخلية فيها 10 ارقام او صفر او خليه فارغة ان تكون الخليه بدون لون واذا كانت الخليه اكبر او اصغر من 10 ارقام داخل الخلية ان يكون لون الخليه احمر المد المطلوب التطبيق عليه في العامود G من 8 إلى 150 ملاحظات الكود السابق 1- اهتزاز ملحوظ بالورقة 2- الكود مربوط بصفحة رقم2 وهذا مشكله عندي بسبب كثرة الاوراق داخل البرنامج الذي اعمل عليه وانا اريد التقليل من الاوراق داخل البرنامج الذي اعمل عليه لكي يقل حجمه وعدد اوراقه . 3- هل بالامكان أن يكون الكود مربوط بالعامود G فقط والغاء العامود H والغاءربطه بالورقة2 اذا امكن ملاحظة اكملت الموضوع مع اخي ابو اسامه بما انها تتعلق بالتنسيق الشرطي وانا يهمني الوصول الى النتيجة المطلوب عن طريق التنسيق الشرطي او الكود واي ملحظات ان مستعد واكرر شكري وتقديري لك واهتمامك بالموضوع رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يناير 23, 2009 مشاركة قام بنشر يناير 23, 2009 السلام عليكم ممكن يكون بهذه الطريقة ________________________________.rar رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يناير 23, 2009 الكاتب مشاركة قام بنشر يناير 23, 2009 (معدل) السلام عليكم اخي جرب هذا الملف تم التعديل للاخذ في الاعتبار 20 رقما بالنسبة للاهتزاز قد يحدث و هذا شئ طبيعي لعمل الكود جرب و اخبرني النتيجة تحياتي __________________________20____2.rar تم تعديل يناير 23, 2009 بواسطه aah_aah2008 رابط هذا التعليق شارك More sharing options...
خالد_محمد قام بنشر يناير 24, 2009 مشاركة قام بنشر يناير 24, 2009 السلام عليكم الاخ ابو أسامة شكراً لك على الكود الرائع بس فيه مشكلة بسيطه وهيا عند حذف الصفوف يعطي خطأ بالكود وكذلك عند مسح مجموعة خلايا بنفس العامود المعني يعطي خطأ. الكود عدلت عليه تعديل بسيطه ليتناسب مع طلبي Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("G4:G150")) Is Nothing Then Exit Sub Select Case Len(Target) Case Is > 10 Target.Interior.ColorIndex = 44 Target.Offset(0, 1) = Len(Target) Case 1 To 9 Target.Interior.ColorIndex = 44 Target.Offset(0, 1) = Len(Target) Case 10 Target.Interior.ColorIndex = xlNone Target.Offset(0, 1) = Len(Target) Case 0 Target.Interior.ColorIndex = xlNone Target.Offset(0, 1) = "" End Select End Sub تحياتي لك رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يناير 24, 2009 مشاركة قام بنشر يناير 24, 2009 (معدل) Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo omar If Intersect(Target, Range("a1:a100")) Is Nothing Then Exit Sub Select Case Len(Target) Case Is > 10 Target.Interior.ColorIndex = 44 Target.Offset(0, 1) = Len(Target) Case 1 To 9 Target.Interior.ColorIndex = 4 Target.Offset(0, 1) = Len(Target) Case 10 Target.Interior.ColorIndex = xlNone Target.Offset(0, 1) = Len(Target) Case 0 Target.Interior.ColorIndex = xlNone Target.Offset(0, 1) = "" End Select omar: End Sub هنا لا يظهر خطا تم تعديل يناير 24, 2009 بواسطه ابو اسامة العينبوسي رابط هذا التعليق شارك More sharing options...
خالد_محمد قام بنشر يناير 24, 2009 مشاركة قام بنشر يناير 24, 2009 السلام عليكم ابو اسامه شكراً لك وجعله الله في موازين حسناتك تحياتي وتقديري رابط هذا التعليق شارك More sharing options...
amoudi قام بنشر يناير 25, 2009 مشاركة قام بنشر يناير 25, 2009 السلام عليكم ورحمة الله حساب عدد الأرقام بدون كود عن طريق Array Formulas __________________________20____2.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.