أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مهند محسن ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تجميع العديد من الملفات في ملف واحد اكسيل اسئله واجابات


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


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





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

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



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




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

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


تقبل تحياتي




10-01-2018 02:48 مساء
مشاهدة مشاركة منفردة [2]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 733
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 69
قوة السمعة : 7713
الاعجاب : 31
 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
قوة السمعة : 627
الاعجاب : 3
 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
قوة السمعة : 627
الاعجاب : 3
 offline 
look/images/icons/i1.gif كود تكبير خط الخليه النشطه
===================
للرفع




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




11-01-2018 09:52 صباحا
مشاهدة مشاركة منفردة [6]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1248
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 53
قوة السمعة : 9184
الاعجاب : 38
موقعي : زيارة موقعي
 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

تحياتي



توقيع :Yasser Elaraby
663013020


11-01-2018 10:01 صباحا
مشاهدة مشاركة منفردة [7]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1248
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 53
قوة السمعة : 9184
الاعجاب : 38
موقعي : زيارة موقعي
 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


تحياتي



توقيع :Yasser Elaraby
663013020


11-01-2018 12:34 مساء
مشاهدة مشاركة منفردة [8]
malik
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 284
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 5
قوة السمعة : 303
الاعجاب : 0
 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
قوة السمعة : 627
الاعجاب : 3
 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
قوة السمعة : 627
الاعجاب : 3
 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
المشاركات : 1248
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 53
قوة السمعة : 9184
الاعجاب : 38
موقعي : زيارة موقعي
 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
المشاركات : 1248
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 53
قوة السمعة : 9184
الاعجاب : 38
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif كود تكبير خط الخليه النشطه
الكود الاول يقوم بتكبير ارتفاع الخلية او الصف عموما ليناسب حجم الخط لابد من تكبيره ويعود بعد ذلك الى طبيعته في حالة عدم تحديده
 



توقيع :Yasser Elaraby
663013020




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تكبير الخط فى القائمة المنسدلة zaki123
3 317 YasserKhalil
تكبير حجم الخط فى قائمة data validation طائع
6 2455 YasserKhalil
تكبير وتصغير ووضع يوزرفورم على شريط الادوات والتحكم بإغلاقة محمود ابو الدهب
44 3070 hony.wel
تكبير الخط للفجوال بيزك والتحكم فى مكان الكتابة للبحث عن الاسم مجدى يونس
6 648 مجدى يونس
تكبير وتصغير الفورم yosif
11 639 YasserKhalil

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


 







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

الساعة الآن 02:19 مساء

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