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



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





كود تكبير خط الخليه النشطه

بسم الله الرحمن الرحيم كرما منكم نريد كودا لتكبير خط الخليه النشطه .... حتى تكون واضحه عند الرصد وخاصه اذا كان اللي هاير ..



10-01-2018 02:08 مساء
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 449
الاعجاب : 170
 offline 
بسم الله الرحمن الرحيم
كرما منكم
نريد كودا لتكبير خط الخليه النشطه ....





حتى تكون واضحه عند الرصد
وخاصه اذا كان اللي هايرصد كبير السن






10-01-2018 02:44 مساء
مشاهدة مشاركة منفردة [1]
malik
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 248
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 4
يتابعهم : 14
يتابعونه : 4
قوة السمعة : 217
الاعجاب : 72
 offline 
look/images/icons/i1.gif كود تكبير خط الخليه النشطه
وعليكم السلام اخي طلبك غير مفهوم
ممكن ارفاق ملف للعمل عليه ووضع الكود الذي تريده 

ننتظر منك الرد وارفاق ملف 


تقبل تحياتي





10-01-2018 02:48 مساء
مشاهدة مشاركة منفردة [2]
محمد الدسوقى
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 360
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 40
يتابعهم : 7
يتابعونه : 228
قوة السمعة : 2379
الاعجاب : 592
 offline 
look/images/icons/i1.gif كود تكبير خط الخليه النشطه
الأخ الكريم / ناصر سعيد
جرب الكود التالى فى حث ورقة العمل المراد بها
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <>""  then
ActiveWindow.Zoom = 150
End If
End Sub

 


تم تحرير المشاركة بواسطة :محمد الدسوقى
بتاريخ:10-01-2018 02:49 مساء






10-01-2018 03:52 مساء
مشاهدة مشاركة منفردة [3]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 449
الاعجاب : 170
 offline 
look/images/icons/i1.gif كود تكبير خط الخليه النشطه
الاخ الكريم / محمد الدسوقي
جزاك الله خيرا
هذا الكود بيكبر حجم الخط في الصفحه كلها وكانك حددت الصفحه وجعلت مقاس الخط 150

 





10-01-2018 08:50 مساء
مشاهدة مشاركة منفردة [4]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 449
الاعجاب : 170
 offline 
look/images/icons/i1.gif كود تكبير خط الخليه النشطه
===================
للرفع





11-01-2018 08:40 صباحا
مشاهدة مشاركة منفردة [5]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 449
الاعجاب : 170
 offline 
look/images/icons/i1.gif كود تكبير خط الخليه النشطه
=========
للرفع رفع الله مقداركم





11-01-2018 09:52 صباحا
مشاهدة مشاركة منفردة [6]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 787
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 427
قوة السمعة : 5346
الاعجاب : 1397
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif كود تكبير خط الخليه النشطه
تفضل ضعه في الشيت المطلوب تكبير الخط به
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    FontSize = ActiveCell.Font.Size
    LargeSize = FontSize * 3
    Cells.Font.Size = FontSize
    ActiveCell.Font.Size = LargeSize
End Sub

تحياتي

أثارت هذه المشاركة إعجاب: ناصر سعيد1،


توقيع :Yasser Elaraby
663013020



11-01-2018 10:01 صباحا
مشاهدة مشاركة منفردة [7]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 787
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 427
قوة السمعة : 5346
الاعجاب : 1397
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif كود تكبير خط الخليه النشطه
او استخدم الكود التالي لعمل صورة مكبرة من الخلية افضل من تكبير الخط
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'حدد الزوم او عدد تكبير الخلية
    ZoomCell 2
End Sub
Private Sub ZoomCell(ZoomIn As Single)
    Dim s As Range
    Set s = Selection
    'Get rid of any existing zoom pictures
    For Each p In ActiveSheet.Pictures
        If p.Name = "ZoomCell" Then
            p.Delete
            Exit For
        End If
    Next
    'Create a zoom picture
    s.CopyPicture Appearance:=xlScreen, _
      Format:=xlPicture
    ActiveSheet.Pictures.Paste.Select
    With Selection
        .Name = "ZoomCell"
        With .ShapeRange
            .ScaleWidth ZoomIn, msoFalse, _
              msoScaleFromTopLeft
            .ScaleHeight ZoomIn, msoFalse, _
              msoScaleFromTopLeft
            With .Fill
                .ForeColor.SchemeColor = 9
                .Visible = msoTrue
                .Solid
            End With
        End With
    End With
    s.Select
    Set s = Nothing
End Sub


تحياتي

أثارت هذه المشاركة إعجاب: ناصر سعيد1،


توقيع :Yasser Elaraby
663013020



11-01-2018 12:34 مساء
مشاهدة مشاركة منفردة [8]
malik
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 248
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 4
يتابعهم : 14
يتابعونه : 4
قوة السمعة : 217
الاعجاب : 72
 offline 
look/images/icons/i1.gif كود تكبير خط الخليه النشطه
السلام عليكم اخواني الاساتذة لاحظت طلبات كثيرة حول تكبير خط الخلية النشطة

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

=index(a1:a20;b1;1)


هذا عمل حول عمل زر زيادة ونقصان للتمرير بدون كود انا جربتها هكذا ونجحت معي 

تقبل تحياتي
 





11-01-2018 12:56 مساء
مشاهدة مشاركة منفردة [9]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 449
الاعجاب : 170
 offline 
look/images/icons/i1.gif كود تكبير خط الخليه النشطه
المشاركة الأصلية كتبت بواسطة: Yasser Elaraby »
تفضل ضعه في الشيت المطلوب تكبير الخط به
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    FontSize = ActiveCell.Font.Size
    LargeSize = FontSize * 3
    Cells.Font.Size = FontSize
    ActiveCell.Font.Size = LargeSize
End Sub

تحياتي

فضلك الله بالجنه
هذا الكود مفيد لكنه يغير في عرض العمود
شوف له حل يابطل





11-01-2018 12:57 مساء
مشاهدة مشاركة منفردة [10]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 449
الاعجاب : 170
 offline 
look/images/icons/i1.gif كود تكبير خط الخليه النشطه
المشاركة الأصلية كتبت بواسطة: Yasser Elaraby »
او استخدم الكود التالي لعمل صورة مكبرة من الخلية افضل من تكبير الخط
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'حدد الزوم او عدد تكبير الخلية
    ZoomCell 2
End Sub
Private Sub ZoomCell(ZoomIn As Single)
    Dim s As Range
    Set s = Selection
    'Get rid of any existing zoom pictures
    For Each p In ActiveSheet.Pictures
        If p.Name = "ZoomCell" Then
            p.Delete
            Exit For
        End If
    Next
    'Create a zoom picture
    s.CopyPicture Appearance:=xlScreen, _
      Format:=xlPicture
    ActiveSheet.Pictures.Paste.Select
    With Selection
        .Name = "ZoomCell"
        With .ShapeRange
            .ScaleWidth ZoomIn, msoFalse, _
              msoScaleFromTopLeft
            .ScaleHeight ZoomIn, msoFalse, _
              msoScaleFromTopLeft
            With .Fill
                .ForeColor.SchemeColor = 9
                .Visible = msoTrue
                .Solid
            End With
        End With
    End With
    s.Select
    Set s = Nothing
End Sub


تحياتي

هذا الكود اكثر روعه لقراءه محتوى الخليه
اما اثناء الكتابه نفس حجم الخط الاصلي .. لو يكبر اثناء الكتابه ايضا





11-01-2018 12:57 مساء
مشاهدة مشاركة منفردة [11]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 787
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 427
قوة السمعة : 5346
الاعجاب : 1397
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif كود تكبير خط الخليه النشطه
المشاركة الأصلية كتبت بواسطة: ناصر سعيد1 »
المشاركة الأصلية كتبت بواسطة: Yasser Elaraby »
تفضل ضعه في الشيت المطلوب تكبير الخط به
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    FontSize = ActiveCell.Font.Size
    LargeSize = FontSize * 3
    Cells.Font.Size = FontSize
    ActiveCell.Font.Size = LargeSize
End Sub

تحياتي

فضلك الله بالجنه
هذا الكود مفيد لكنه يغير في عرض العمود
شوف له حل يابطل


جرب الكود التاني!؟



توقيع :Yasser Elaraby
663013020



11-01-2018 01:06 مساء
مشاهدة مشاركة منفردة [12]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 787
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 427
قوة السمعة : 5346
الاعجاب : 1397
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif كود تكبير خط الخليه النشطه
الكود الاول يقوم بتكبير ارتفاع الخلية او الصف عموما ليناسب حجم الخط لابد من تكبيره ويعود بعد ذلك الى طبيعته في حالة عدم تحديده
 



توقيع :Yasser Elaraby
663013020




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
اختصارات تكبير وتصغير الزوم للشاشه - حسام خطاب الصقر
3 297 محمد حسن المحمد
تكبير حجم خط شريط الصيغة بالاكسل مجدى يونس
9 346 مجدى يونس
كيف يمكن تكبير الخط داخل القائمه المنسدلة Osmanko
10 293 عبدالجيد
تكبير حجم الخط فى قائمة data validation طائع
4 538 YasserKhalil

الكلمات الدلالية
تكبير ، الخليه ، النشطه ،


 







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



الساعة الآن 10:07 مساء

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