محمد علي سالم قام بنشر فبراير 8, 2016 مشاركة قام بنشر فبراير 8, 2016 اخواني ابائي الاساتذه الكرام ارجو مساعدتي في إجاد داله تعمل على حساب عدد الارقام الاقل من او تساوي 25 مع مراعة ان خط عريض مثلا احسب عدد الارقام الاقل من او تساوي 25 في النطاق التالي a2:a50 بشرط ان النطاق هذا تكون الارقام فيه بلود يعني خط عريض إذا كان خط غير عريض لا يحسبه ولكم الشكر والتقدير المصنف1.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 8, 2016 مشاركة قام بنشر فبراير 8, 2016 (معدل) جرب أخى هذا الكود Sub ragab() Dim x As Integer Dim cl As Range Dim Rng As Range Set Rng = Range("A2:A50") For Each cl In Rng If cl.Font.Bold = True And cl <= 25 Then x = x + 1 End If Next Range("C1") = x End Sub تم تعديل فبراير 8, 2016 بواسطه رجب جاويش 1 رابط هذا التعليق شارك More sharing options...
محمد علي سالم قام بنشر فبراير 8, 2016 الكاتب مشاركة قام بنشر فبراير 8, 2016 ممكن لو سمحت تطبقها على المصنف استاذ رجب رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 8, 2016 مشاركة قام بنشر فبراير 8, 2016 بعد اذن اخي وصديقي رجب هذا الملف المصنف1 salim.rar 1 رابط هذا التعليق شارك More sharing options...
محمد علي سالم قام بنشر فبراير 8, 2016 الكاتب مشاركة قام بنشر فبراير 8, 2016 اخي سليم دالتك تحسبب عدد الارقام التي خطها عريض فقط وانا اريد يان كون خطها عريض وايضاً اقل من او يساوي 25 ولك كل الشكر والتقدير رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 8, 2016 مشاركة قام بنشر فبراير 8, 2016 تم التعديل المصنف1 salim1.rar 1 رابط هذا التعليق شارك More sharing options...
محمد علي سالم قام بنشر فبراير 8, 2016 الكاتب مشاركة قام بنشر فبراير 8, 2016 شكرا جزيلاً اخي سليم حاصبيا انت مبدع جزاك الله خيرا وشكرا ايضاً للاخ رجب جاويش دالته كانت جميله ولكن تعمد على صف واحد رابط هذا التعليق شارك 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.