اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





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

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



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

اما ان اجعل الخط فيه صغير 

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

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

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


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







02-12-2017 01:38 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4618
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13274
الاعجاب : 4904
 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
المشاركات : 98
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 55
الاعجاب : 18
 offline 
look/images/icons/i1.gif اريد كود اضعه في جدول ما ، عندما تكون النتيجة صفر ان يصغر الرقم الى اصغر خط
احسنت استاذنا الغالي والخبير 

طيب لو اردت 

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

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


OTA0MTgx2017-12-02_135820
 
 






02-12-2017 02:14 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4618
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13274
الاعجاب : 4904
 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
المشاركات : 98
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 55
الاعجاب : 18
 offline 
look/images/icons/i1.gif اريد كود اضعه في جدول ما ، عندما تكون النتيجة صفر ان يصغر الرقم الى اصغر خط
لا يعمل معي بصورة صحيحة استاذي  





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





02-12-2017 08:03 مساء
مشاهدة مشاركة منفردة [6]
عبد الله السعيد
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 416
المشاركات : 98
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 55
الاعجاب : 18
 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
المشاركات : 4618
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13274
الاعجاب : 4904
 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
المشاركات : 98
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 55
الاعجاب : 18
 offline 
look/images/icons/i1.gif اريد كود اضعه في جدول ما ، عندما تكون النتيجة صفر ان يصغر الرقم الى اصغر خط
لم افهمك 

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





02-12-2017 11:12 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4618
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13274
الاعجاب : 4904
 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
المشاركات : 672
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 140
قوة السمعة : 2382
الاعجاب : 859
 offline 
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
المشاركات : 4618
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13274
الاعجاب : 4904
 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
المشاركات : 208
الجنس : ذكر
يتابعهم : 3
يتابعونه : 3
قوة السمعة : 262
الاعجاب : 116
 offline 
look/images/icons/i1.gif اريد كود اضعه في جدول ما ، عندما تكون النتيجة صفر ان يصغر الرقم الى اصغر خط
السلام عليكم
Come Easy Go Easy
من ضمن الاشياء التى تعلمتها من الاخ الجليل والمعلم القدير ياسر ابو الراء
جزاه الله كل الخير  والتقدير عما يقدمه لاخوانه فى المنتدى العظيم

 

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






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


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



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

أعلن هنا
أعلن هنا
أعلن هنا