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

• #10387 Delila_1 veterán motinka #10384

  Új Válasz 2011-05-25 08:41:22 #10387

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz motinka #10384 üzenetére

  Kicsit megvariálva, hogy két oszlop adatait is lehessen szűrni:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Krit
  If Target.Address = "$G$1" Then
  Krit = Range("G1").Value & "*"
  ActiveSheet.Range("$A:$B").AutoFilter Field:=1, Criteria1:=Krit
  End If
  If Target.Address = "$I$1" Then
  Krit = Range("I1").Value & "*"
  ActiveSheet.Range("$A:$B").AutoFilter Field:=2, Criteria1:=Krit
  End If
  End Sub

  Szűretlen:
  

  "A" oszlopra szűrt:
  

  "A" és "B" oszlopra szűrt:
  

  A szűrést a G1, ill. az I1 cella adatának törlésével megszüntetheted.

• #10386 Delila_1 veterán motinka #10384

  Új Válasz 2011-05-25 08:15:29 #10386

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz motinka #10384 üzenetére

  Kiegészítve Fire válaszát:

  A szűrésnél a "Szövegszűrők"-et választod, ott pedig a "Kezdete..." almenüt. Ott beírod a keresendő adat kezdetét.

  Másik megoldás, hogy a laphoz rendeled a következő makrót:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Krit
  If Target.Address = "$F$1" Then
  Krit = Range("F1").Value & "*"
  ActiveSheet.Range("$A:$A").AutoFilter Field:=1, Criteria1:=Krit
  End If
  End Sub

  Az F1 cellába beírod a keresendő adat kezdetét. Az Enter leütése után az A oszlopot szűri az F1 cella értéke szerint.

• #10385 Fire/SOUL/CD félisten motinka #10384

  Új Válasz 2011-05-25 06:38:29 #10385

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz motinka #10384 üzenetére

  Sima filterrel megoldható, mert a keresés mezőbe azt írsz be, amit csak szeretnél(a szűrés eredménye egyből látható is lesz a listában), illetve használhatóak az ún Asterix (helyettesítő) karakterek is, úgy mint a csillag (*) és kérdőjel (?)

  Példák
  keresőbe->123, összes olyan sor, amiben megtalálható az 123
  keresőbe->123*, összes olyan sor, ami 123-al kezdődik
  keresőbe->*123, összes olyan sor, ami 123-ra végződik
  keresőbe->*123?, összes olyan sor, ami 123 és bármilyen +1 karakterre végződik (pl aa1234, bb123a)
  keresőbe->*123??, összes olyan sor, ami 123 és bármilyen +2 karakterre végződik (pl aa12398, bb123ab, cc1236a)

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