• اضافة إهداء
    (المعذره .. غير مسموح للزوار بإضافة الإهداءات, الرجاء التسجيل في المنتدى)


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




11-01-2018 01:56 مساء
مشاهدة مشاركة منفردة [2]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 549
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 285
قوة السمعة : 3534
الاعجاب : 834
موقعي : زيارة موقعي
 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




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