Új hozzászólás Aktív témák

  • válasz Fferi50 üzenetére #29247

    Hello!

    Közben összeraktam egy kis puskázással... Nem teljesen értem a logikát, de működik.

    És amiért nem értem: nem elég ennyi simán zárolni az összes cellát?

    For Each ws In ThisWorkbook.Worksheets
    ws.UsedRange.Cells.Locked = True

    For Each cella In ws.UsedRange.Cells
    If cella.Interior.Color = RGB(204, 236, 255) Then
    cella.Interior.Color = RGB(255, 255, 0)
    cella.MergeArea.Locked = False
    Next cella
    Next ws

    Tesztelgettem pár dolgot és úgy látom, hogy a cella.MergeArea.Locked = False lekezeli az egyesített és a nem egyesített cellát egyaránt, interior colortól függően. Jól látom, hogy nem kell bele külön kezelés normál és egyesített cellákra, valamint a FindFormat sincs így szükség?
    Vagy valamit benézek?

    üdv
    P.

Új hozzászólás Aktív témák