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

• #43885 Fferi50 Topikgazda oke #43884

  Új Válasz 2020-05-09 12:39:28 #43885

  Ú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

  

  Fferi50

  Topikgazda

  válasz oke #43884 üzenetére

  Szia!
  Kérdések:
  A D oszlop celláiban egy-egy feltétel (szó) szerepel? Mert akkor vagy kapcsolat van a feltételek között. Ezt ki lehet értékelni egyetlen kifejezéssel:
  If "alma,körte,eper,csoki,autó" Like "*" & Range("D1").Value & "*" then Range('"A1").Interior.Color=vbYellow
  Ha az egész oszlopot nézed, akkor pedig For Each ciklus használható:
  Dim cl as Range
For Each cl In Range("D1:D5000").Cells
If cl.Value="" Then Exit For 'ha nincs érték a cellában, kilépünk a ciklusból
If "alma,körte,eper,csoki,autó" Like "*" & cl.Value & "*" then cl.Offset(0,-3).Interior.Color=vbYellow
Next
  Az "alma,körte,eper,csoki,autó" helyére a szűrni kívánt szöveget írd be.
  A Like operátor a mintához hasonlót keresi, tehát az 5 közül bármelyik feltétel fennál, a színezés megtörténik.

  Üdv.

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