محمد سامر قام بنشر فبراير 9, 2018 مشاركة قام بنشر فبراير 9, 2018 (معدل) السلام عليكم ورحمة الله وبركاته اريد وضع علامات مائله على ارقام معينه بالضغط على الزر هل من مساعده في ذلك!!! علامات.rar تم تعديل فبراير 9, 2018 بواسطه محمد سامر رابط هذا التعليق شارك More sharing options...
كريم الفلسطيني قام بنشر فبراير 9, 2018 مشاركة قام بنشر فبراير 9, 2018 اتذكر مرة ان احد الاعضاء عمل كود ....(كود الدوائر الحمراء ) ....يعني الارقام التي تريدها تظهر فيها دوائر حمراء........ممكن تسال عنها يساعدونك... رابط هذا التعليق شارك More sharing options...
محمد سامر قام بنشر فبراير 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 بواسطه محمد سامر رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر فبراير 10, 2018 مشاركة قام بنشر فبراير 10, 2018 هل ينفع معك هذا الملف ؟ علامات.xlsm 3 رابط هذا التعليق شارك More sharing options...
محمد سامر قام بنشر مارس 24, 2018 الكاتب مشاركة قام بنشر مارس 24, 2018 ممتاز جداااااااااااااااااااااا ما شاء الله جزاك الله حيرا 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها