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

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


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





تمييز الخلية النشطة بأكثر من طريقة

بسم الله الرحمن الرحيم اليوم نقدم لكم طريقة تمييز الخلية النشطة بأكثر من طريقة المثال الاول تكبير حجم الخط للخلية النشط ..



11-01-2018 01:25 مساء
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1293
الجنس : ذكر
الدعوات : 13
يتابعهم : 2
يتابعونه : 724
قوة السمعة : 9894
موقعي : زيارة موقعي
عدد الإجابات: 9
 offline 

بسم الله الرحمن الرحيم

اليوم نقدم لكم طريقة تمييز الخلية النشطة بأكثر من طريقة
المثال الاول
تكبير حجم الخط للخلية النشطة

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


المثال الثاني
عمل صورة مكبرة من الخلية المحددة
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

المثال الثالث
تغيير لون الخلية النشطة ولكن يجعل الخلايا كلها بدون لون اي نستخدمه في حالة عدم تلوين اي خلية داخل الشيت
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Cells.Interior.ColorIndex = 0
    Target.Interior.ColorIndex = 3
    Application.ScreenUpdating = True
End Sub



المثال الرابع
تغيير لون الخلية النشطة مع الحفاظ على الوان الخلايا الموجودة الملونة  مسبقا
Private objCurrentCell As Range
Private OrigColorIdx As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    On Error Resume Next
    If objCurrentCell Is Nothing Then
        Set objCurrentCell = Target
        OrigColorIdx = Target.Interior.ColorIndex
        Target.Interior.ColorIndex = 3
    Else
        objCurrentCell.Interior.ColorIndex = OrigColorIdx
        Set objCurrentCell = Target
        OrigColorIdx = Target.Interior.ColorIndex
        Target.Interior.ColorIndex = 3
    End If
    Application.EnableEvents = True
End Sub


تحياتي
 
توقيع :Yasser Elaraby
663013020


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

11-01-2018 01:56 مساء
مشاهدة مشاركة منفردة [2]
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1293
الجنس : ذكر
الدعوات : 13
يتابعهم : 2
يتابعونه : 724
قوة السمعة : 9894
موقعي : زيارة موقعي
عدد الإجابات: 9
 offline 
look/images/icons/i1.gif تمييز الخلية النشطة بأكثر من طريقة
المشاركة الأصلية كتبت بواسطة: ناصر سعيد1
اولا جزاك الله كل خير وبارك فيك استاذ ياسر العربي
جاري التجربه والافاده
والرد  ... ويارب يكون فيهم المطلوب --
والمطلوب هو تكبير مقاس الخط مع التلوين الخفيف اثناء الكتابه في الخليه النشطه وعند قراءه اي خليه
 
 


جرب الكوكتيل دا كدا
Private objCurrentCell As Range
Private OrigColorIdx As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    On Error Resume Next
    objCurrentCell.Interior.ColorIndex = OrigColorIdx
    Set objCurrentCell = Target
    OrigColorIdx = Target.Interior.ColorIndex
    Target.Interior.ColorIndex = 3
    Cells.Font.Bold = False
    ActiveCell.Font.Bold = True
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    ZoomCell 2
End Sub
Private Sub ZoomCell(ZoomIn As Single)
    Dim s As Range
    Set s = Selection
    For Each p In ActiveSheet.Pictures
        If p.Name = "ZoomCell" Then
            p.Delete
            Exit For
        End If
    Next
    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 01:56 مساء
مشاهدة مشاركة منفردة [3]
ناصر سعيد1
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 657
 offline 
look/images/icons/i1.gif تمييز الخلية النشطة بأكثر من طريقة
انا الاحظ انك تفضل المثال التاني
ربما يكون لسبب برمجي انا لااعرفه ولذلك سأركز على المثال 2
المثال 2
لايمكن اللصق في الصفحه
ومقاس الخط اثناء الكتابه مازال ضغيرا
بارك الله فيك

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

11-01-2018 02:02 مساء
مشاهدة مشاركة منفردة [5]
ناصر سعيد1
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 657
 offline 
look/images/icons/i1.gif تمييز الخلية النشطة بأكثر من طريقة
اقتبـاس ،،
جرب الكوكتيل دا كدا

جزاك الله كل خير وبعد
تمت اضافه اللون ولم تضاف ميزه تكبير الخط اثناء الكتابه

مثل التكبير عند الوقوف مره اخرى بعد الكتابه على الخليه


11-01-2018 02:19 مساء
مشاهدة مشاركة منفردة [6]
ناصر سعيد1
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 657
 offline 
look/images/icons/i1.gif تمييز الخلية النشطة بأكثر من طريقة
 
 
  تكبير الخط بعده طرق في الخليه النشطه.rar   تحميل rar مرات التحميل :(29)
الحجم :(15.356) KB





الكلمات الدلالية
تمييز ، الخلية ، النشطة ، بأكثر ، طريقة ،


 










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

الساعة الآن 05:22 مساء