niedziela, 16 grudnia 2007

Zaznaczanie wypełnionych komórek w wierszu / kolumnie

Zaznaczanie wypełnionych komórek w kolumnie
Sub ZaznaczPelneElementyWKolumnie()

 If IsEmpty(ActiveCell) Then
  Exit Sub
 End If

 On Error Resume Next

 Dim Gorna As Range
 Dim dolna As Range

 If IsEmpty(ActiveCell.Offset(-1, 0)) Then
  Set Gorna = ActiveCell
 Else
  Set Gorna = ActiveCell.End(xlUp)
 End If

 If IsEmpty(ActiveCell.Offset(1, 0)) Then
  Set dolna = ActiveCell
 Else
  Set dolna = ActiveCell.End(xlDown)
 End If

 Range(Gorna, dolna).Select

End Sub

Zaznaczanie wypełnionych komórek w wierszu
Sub ZaznaczWypelnioneElementywWierszu()

 If IsEmpty(ActiveCell) Then
  Exit Sub
 End If

 On Error Resume Next

 Dim lewa As Range
 Dim prawa As Range

 If IsEmpty(ActiveCell.Offset(0, -1)) Then
  Set lewa = ActiveCell
 Else
  Set lewa = ActiveCell.End(xlToLeft)
 End If

 If IsEmpty(ActiveCell.Offset(0, 1)) Then
  Set prawa = ActiveCell
 Else 
  Set prawa = ActiveCell.End(xlToRight)
 End If

 Range(lewa, prawa).Select

End Sub

Makra działają oczywiście dla danych przylegających - tzn, że obszary rozdzielone z bieżącym pustymi komórkami a spełniające warunek o tej samej kolumnie czy wierszu nie zostaną podświetlone.

1 komentarz:

  1. Super sprawa długo tego szukałem mała kombinacja i zaznacza całe pole:)

    OdpowiedzUsuń