أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





اريد كود اضعه في جدول ما ، عندما تكون النتيجة صفر ان يصغر الرقم الى اصغر خط

اما ان اجعل الخط فيه صغير او ان اجعله يحذف نهائياً وتكون فارغه او ان احعل الخط رمادي غير واضح مرفق مثال بذلك لمش ..



02-12-2017 01:28 مساء
عبد الله السعيد
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 416
المشاركات : 43
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 18
الاعجاب : 4
 offline 
اما ان اجعل الخط فيه صغير 

او ان اجعله يحذف نهائياً وتكون فارغه 

او ان احعل الخط رمادي غير واضح 

مرفق مثال بذلك


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  QQ1.rar   تحميل rar مرات التحميل :(5)
الحجم :(6.647) KB





02-12-2017 01:38 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 152
قوة السمعة : 4937
الاعجاب : 1403
 offline 
look/images/icons/i1.gif اريد كود اضعه في جدول ما ، عندما تكون النتيجة صفر ان يصغر الرقم الى اصغر خط
السلام عليكم أخي الكريم عبد الله (أفشوا السلام بينكم)

جرب الكود التالي في حدث ورقة العمل .. كليك يمين على اسم ورقة العمل ثم اختر View Code والصق الكود التالي
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E5:H12")) Is Nothing Then
        If Target.Value = 0 Then
            Target.Font.Size = 8
        Else
            Target.Font.Size = 15
        End If
    End If
End Sub

أثارت هذه المشاركة إعجاب: Yasser Elaraby، عبد الله السعيد، ahmed moh،



02-12-2017 01:53 مساء
مشاهدة مشاركة منفردة [2]
عبد الله السعيد
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 416
المشاركات : 43
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 18
الاعجاب : 4
 offline 
look/images/icons/i1.gif اريد كود اضعه في جدول ما ، عندما تكون النتيجة صفر ان يصغر الرقم الى اصغر خط
احسنت استاذنا الغالي والخبير 

طيب لو اردت 

ان انفذ الإختياريين الثانيين  ان تحذف نهائيا او يكون الخط رمادي 

وهناك ملاحظة على الحل السابق ان تكرمت  عند لصق نتيجة من جدول اخر الى هذا الجدول اجد يعطيني ايرور ولا يعمل الكود كما في الصورة  ، او لو مسحت مافي الجدول


OTA0MTgx2017-12-02_135820
 
 





02-12-2017 02:14 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 152
قوة السمعة : 4937
الاعجاب : 1403
 offline 
look/images/icons/i1.gif اريد كود اضعه في جدول ما ، عندما تكون النتيجة صفر ان يصغر الرقم الى اصغر خط
جرب التعديل التالي عله يفي بالغرض
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E5:H12")) Is Nothing Then
        Application.EnableEvents = False
            If Target.Value = 0 Then
                Target.Font.Size = 8
            Else
                Target.Font.Size = 15
            End If
        Application.EnableEvents = True
    End If
End Sub




02-12-2017 03:46 مساء
مشاهدة مشاركة منفردة [4]
عبد الله السعيد
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 416
المشاركات : 43
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 18
الاعجاب : 4
 offline 
look/images/icons/i1.gif اريد كود اضعه في جدول ما ، عندما تكون النتيجة صفر ان يصغر الرقم الى اصغر خط
لا يعمل معي بصورة صحيحة استاذي  




02-12-2017 07:43 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 152
قوة السمعة : 4937
الاعجاب : 1403
 offline 
look/images/icons/i1.gif اريد كود اضعه في جدول ما ، عندما تكون النتيجة صفر ان يصغر الرقم الى اصغر خط
ارفق ملفك بعد وضع الكود ووضح الخطأ الذي يحدث معك بالضبط حيث أن الكود يعمل معي بشكل صحيح على المرفق في أول مشاركة




02-12-2017 08:03 مساء
مشاهدة مشاركة منفردة [6]
عبد الله السعيد
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 416
المشاركات : 43
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 18
الاعجاب : 4
 offline 
look/images/icons/i1.gif اريد كود اضعه في جدول ما ، عندما تكون النتيجة صفر ان يصغر الرقم الى اصغر خط
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


تم حل مشكلة عند عمل مسح لكل الجدول لا تظهر الخطأ


ولكن الخطأ يظهر عند لصق ارقام من عمود الى اي عمود في الجدول كما هو مرفق


 
 
 
  QQ11.rar   تحميل rar مرات التحميل :(1)
الحجم :(7.147) KB





02-12-2017 08:42 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 152
قوة السمعة : 4937
الاعجاب : 1403
 offline 
look/images/icons/i1.gif اريد كود اضعه في جدول ما ، عندما تكون النتيجة صفر ان يصغر الرقم الى اصغر خط
الخطأ سببه هو التعامل مع أكثر من خلية في نفس الوقت ...
لذا يمكنك وضع سطر في بداية الكود لتجنب الخطأ
If Target.Cells.CountLarge > 1 Then Exit Sub




02-12-2017 09:19 مساء
مشاهدة مشاركة منفردة [8]
عبد الله السعيد
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 416
المشاركات : 43
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 18
الاعجاب : 4
 offline 
look/images/icons/i1.gif اريد كود اضعه في جدول ما ، عندما تكون النتيجة صفر ان يصغر الرقم الى اصغر خط
لم افهمك 

برجاء كتابة الكود كاملاً للتجربة




02-12-2017 11:12 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 152
قوة السمعة : 4937
الاعجاب : 1403
 offline 
look/images/icons/i1.gif اريد كود اضعه في جدول ما ، عندما تكون النتيجة صفر ان يصغر الرقم الى اصغر خط
ضع السطر في مشاركتي الأخيرة بعد هذا السطر 
Private Sub Worksheet_Change(ByVal Target As Range)




03-12-2017 12:46 صباحا
مشاهدة مشاركة منفردة [10]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 335
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 7
قوة السمعة : 892
الاعجاب : 319
 Online 
look/images/icons/i1.gif اريد كود اضعه في جدول ما ، عندما تكون النتيجة صفر ان يصغر الرقم الى اصغر خط
وهذا هو الكود كامل مع انى عارف ان استاذ ياسر بيحب يخلى صاحب الطلب يتعب في الطلب حتى تصل له المعلومة كاملة 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("E5:H12")) Is Nothing Then
        Application.EnableEvents = False
            If Target.Value = 0 Then
                Target.Font.Size = 8
            Else
                Target.Font.Size = 15
            End If
        Application.EnableEvents = True
    End If
End Sub


عفوا ثانيتا استاذ ياسر
 

أثارت هذه المشاركة إعجاب: YasserKhalil، الصقر،


توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

وكم أتمنى من الله ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير 

 

تحياتى وتقدير للجميع / محمود ابوالدهب



03-12-2017 06:41 صباحا
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 152
قوة السمعة : 4937
الاعجاب : 1403
 offline 
look/images/icons/i1.gif اريد كود اضعه في جدول ما ، عندما تكون النتيجة صفر ان يصغر الرقم الى اصغر خط
جزاك الله خيراً أخي العزيز محمود ومشكور على وضعك للكود بشكل كامل
أنت تعرف المبدأ Come Easy Go Easy يا عزيزي .. وهذا لا يعني التخاذل عن إخواننا بل محاولة دفعهم للأمام
تقبل تحياتي

أثارت هذه المشاركة إعجاب: elskary2010، الصقر، ahmed moh، عبد الله السعيد،



03-12-2017 10:33 صباحا
مشاهدة مشاركة منفردة [12]
ahmed moh
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 183
الجنس : ذكر
يتابعهم : 3
يتابعونه : 2
قوة السمعة : 193
الاعجاب : 87
 offline 
look/images/icons/i1.gif اريد كود اضعه في جدول ما ، عندما تكون النتيجة صفر ان يصغر الرقم الى اصغر خط
السلام عليكم
Come Easy Go Easy
من ضمن الاشياء التى تعلمتها من الاخ الجليل والمعلم القدير ياسر ابو الراء
جزاه الله كل الخير  والتقدير عما يقدمه لاخوانه فى المنتدى العظيم

 

أثارت هذه المشاركة إعجاب: YasserKhalil،






الكلمات الدلالية
اريد ، اضعه ، جدول ، عندما ، تكون ، النتيجة ، يصغر ، الرقم ، اصغر ،


 







الساعة الآن 02:58 صباحا