Temat: Zakres wierszy VBA Excel do zaznaczenia

Cześć wszystkim, mam mały problem z dodaniem zakresu wierszy do makra.
To makro dodaje mi obramowanie do zaznaczonego wiersza, ale ja chciałbym by działało ono tylko w obrębie tabeli. Od wiersza 42 do 305

  If w > 0 Then

    With Rows(w)

      .Borders(xlEdgeBottom).LineStyle = xlNone

    End With

  End If



  With Target(1).EntireRow

    w = .Row



    With .Borders(xlEdgeBottom)

      .LineStyle = xlContinuous

      .Weight = xlThin

      .Color = RGB(217, 217, 217)

    End With



  End With

Pomożecie? ;)

Temat: Zakres wierszy VBA Excel do zaznaczenia

Zmienna (w) może być częścią pętli - zmień zakres aby zyskać potrzebne granice.

for w = 42 to 305

' pierwsza część twojego kodu

next

np tak

Sub lk()

For w = 42 To 305

      With Rows(w)

        With .Borders(xlEdgeBottom)

            .LineStyle = xlContinuous

            .Weight = xlThin

            .ColorIndex = 1 'inna by coś widać było.

            '.Color = RGB(217, 217, 217)

          End With

      End With

Next

End Sub

Ten post został edytowany przez Autora dnia 01.08.17 o godzinie 10:33

Temat: Zakres wierszy VBA Excel do zaznaczenia

Zrobiłe tak:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Static w As Long

For w = 42 To 305



  If w > 0 Then

    With Rows(w)

      .Borders(xlEdgeBottom).LineStyle = xlNone

    End With

  End If

  

      With Rows(w)

        With .Borders(xlEdgeBottom)

            .LineStyle = xlContinuous

            .Weight = xlThin

            .ColorIndex = 1 'inna by coś widać było.

            '.Color = RGB(217, 217, 217)

          End With

      End With

Next

End Sub

Ale generuje mi obramowanie od razu na całym zakresie i nie usuwa go po zaznaczeniu na inny wiersz.