أكواد أعجبتنى

[قنديل الصياد]

كود لعمل ازالة للحدود لاى خلايا محددة

Sub RemoveAllBorders()
 Dim calcModus&, updateModus&, i
  Dim rng As Range, ar As Range
  Dim brd As Border
  If Selection Is Nothing Then Exit Sub
  
  calcModus = Application.Calculation
  updateModus = Application.ScreenUpdating
  Application.Calculation = xlManual
  Application.ScreenUpdating = False
  For Each ar In Selection.Areas
    For Each rng In ar
      For Each i In Array(xlEdgeTop, xlEdgeBottom, xlEdgeLeft, xlEdgeRight, xlDiagonalDown, xlDiagonalUp)
        rng.Borders(i).LineStyle = xlLineStyleNone
      Next i
      If rng.Column > 1 Then
        rng.Offset(0, -1).Borders(xlRight).LineStyle = xlLineStyleNone
      End If
      If rng.Column < 256 Then
         rng.Offset(0, 1).Borders(xlLeft).LineStyle = xlLineStyleNone
      End If
      If rng.Row > 1 Then
        rng.Offset(-1, 0).Borders(xlBottom).LineStyle = xlLineStyleNone
      End If
      If rng.Row < 65536 Then
         rng.Offset(1, 0).Borders(xlTop).LineStyle = xlLineStyleNone
      End If
    Next rng
  Next ar
  Application.Calculation = calcModus
  Application.ScreenUpdating = updateModus
End Sub

[قنديل الصياد]

كود لجعل الخلية باللون الاحمر اذا كانت قيمتها سالبة

Sub SelectiveColor2()
  Dim FormulaCells As Range
    Dim ConstantCells As Range

    Const REDINDEX = 3

    On Error Resume Next
    Application.ScreenUpdating = False

    Set FormulaCells = Selection.SpecialCells(xlFormulas, xlNumbers)
    Set ConstantCells = Selection.SpecialCells(xlConstants, xlNumbers)

    For Each cell In FormulaCells
        If cell.Value < 0 Then _
          cell.Font.ColorIndex = REDINDEX
    Next cell

    For Each cell In ConstantCells
        If cell.Value < 0 Then
           cell.Interior.ColorIndex = REDINDEX
        Else
           cell.Interior.ColorIndex = xlNone
        End If
    Next cell
End Sub

تم تعديل يناير 1, 2014 بواسطه قنديل الصياد

[قنديل الصياد]

مرفق ملف للتطبيق على الكوديين

 

 

قنديل.rar

[؛ أحمد النجار ؛]

أكواد رائعة ومفيدة

 

وان شاء الله الموضوع يستمر ونرى أجمل الاكواد على هذه الصفحة

 

جزاكم الله خيرا

[قنديل الصياد]

[عادل ابوزيد]

جزاك الله كل خير ونفع به فى الدنيا والاخره

وننتظر المزيد

[Yasser Fathi Albanna]

رائع أستاذى القدير / قنديل الصياد

فأنت بالفعل صياد كل ما هو رائع

كل عام وأنت بألف صحة وسلامة

[قنديل الصياد]

كل عام وحضراتكم بخير

وجزاكم الله خيرا