وضع علامات مائله على ارقام معينه

محمد سامر · فبراير 9, 2018

السلام عليكم ورحمة الله وبركاته

اريد وضع علامات مائله على ارقام معينه بالضغط على الزر

هل من مساعده في ذلك!!!

تم تعديل فبراير 9, 2018 بواسطه محمد سامر

كريم الفلسطيني · فبراير 9, 2018

اتذكر مرة ان احد الاعضاء عمل كود ....(كود الدوائر الحمراء ) ....يعني الارقام التي تريدها تظهر فيها دوائر حمراء........ممكن تسال عنها يساعدونك...

محمد سامر · فبراير 9, 2018

بالفعل حاولت اطبق كود الدوائر عليه لكنه لم ينجح معي

Sub DrawRedCircles()
    Dim myArray     As Variant
    Dim Rng         As Range
    Dim Cel         As Range
    Dim Cell        As Range
    Dim L           As Long
    Dim T           As Long
    Dim W           As Long
    Dim H           As Long
    Dim X           As Long
    Dim rRow        As Long
    Dim startRow    As Long

    'ãÕÝæÝÉ ÈÃÓãÇÁ ÇáÃÚãÏÉ ÇáãÑÇÏ æÖÚ ÏæÇÆÑ ÍãÑÇÁ ÈåÇ
    myArray = Array("H", "K", "N")

    'ÑÞã ÇáÕÝ ÇáÐí íÍÊæí Úáì ÏÑÌÇÊ ÇáäåÇíÉ ÇáÕÛÑì
    rRow = 3

    'ÕÝ ÇáÈÏÇíÉ Ãí Ãæá ÕÝ Èå ÏÑÌÇÊ ÇáØáÇÈ
    startRow = 4

    Application.ScreenUpdating = False
        Call RemoveCircles
        
        With Sheets("Sheet1")
            For X = LBound(myArray) To UBound(myArray)
                Set Cel = .Range(myArray(X) & rRow)
                Set Rng = .Range(myArray(X) & startRow, .Range(myArray(X) & startRow).End(xlDown))
    
                For Each Cell In Rng
                    If Cell.Value < Cel Or Cell.Value = "Û" Then
                        L = Cell.Left: T = Cell.Top
                        W = Cell.Width: H = Cell.Height
    
                        With .Shapes.AddShape(msoShapeOval, L, T, W, H)
                            .Fill.Visible = msoFalse
                            .Line.ForeColor.RGB = RGB(255, 0, 0)
                            .Line.Transparency = 0
                            .Line.Weight = 1.5
                        End With
                    End If
                Next Cell
            Next X
        End With
    Application.ScreenUpdating = True
End Sub

تم تعديل فبراير 9, 2018 بواسطه محمد سامر