[Resolved] Escel beállítás lérdések

Szia!

Hogyne lenne. A Cellaformázás menüpontban, a Szegély fülön megadhatod a színt, a vonalvastagságot, és az elhelyezést is.

Kati

Valamikor régen kaptam a lenti makrót, amit ha a füzeted ThisWorkbook lapjához rendelsz, a füzeted minden lapján célkeresztbe teszi a kiválasztott cellát. 1 lap moduljába bemásolva csak azon a lapon működik.
Próbáld ki egy üres füzetben, és ha megfelel, alkalmazhatod a „cél” füzetben.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Cells.FormatConditions.Delete
    With Target
        With .EntireRow
            .FormatConditions.Add Type:=xlExpression, Formula1:="1"
            With .FormatConditions(1)
                With .Borders(xlTop)
                    .LineStyle = xlContinuous
                    .Weight = xlThin
                    .ColorIndex = 5
                End With
                With .Borders(xlBottom)
                    .LineStyle = xlContinuous
                    .Weight = xlThin
                    .ColorIndex = 5
                End With
                .Interior.ColorIndex = 20
            End With
        End With
        With .EntireColumn
            .FormatConditions.Delete
            .FormatConditions.Add Type:=xlExpression, Formula1:="1"
            With .FormatConditions(1)
                With .Borders(xlLeft)
                    .LineStyle = xlContinuous
                    .Weight = xlThin
                    .ColorIndex = 5
                End With
                With .Borders(xlRight)
                    .LineStyle = xlContinuous
                    .Weight = xlThin
                    .ColorIndex = 5
                End With
                    .Interior.ColorIndex = 20
                End With
        End With

        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:="1"
        .FormatConditions(1).Interior.ColorIndex = 36
    End With
End Sub