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

• #22100 Delila_1 veterán King Unique #22099

  Új Válasz 2014-06-23 15:43:19 #22100

  Ú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 King Unique #22099 üzenetére

  If CV.Value Like ("[AEIOU]") Then -> ha a ciklusváltozó (CV) egyenlő a LIKE kulcsszó utáni valamelyik karakterrel, akkor...

  Az A ASCII értéke 65. Le tudod kérdezni a KÓD függvénnyel. Az i itt egy 1 és 26 közötti véletlen egész szám. A Chr(i+64) egy 65 és 90 közötti értéknek megfelelő karaktert adja, A-tól Z-ig.

  A kis a betű ASCII kódja 97, ott az i-hez 96-ot kell adni.

  Kulcsszavakat nem adhatunk változónévként, ezért a maxx.

  Minden maxx-szal azonos értékű cella színezése:

  Range("A1").Select
  hely = Selection.CurrentRegion.Address
  maxx = Application.Max(Range(hely))
  
  For Each CV In Range(hely)
  If CV = maxx Then Range(CV.Address).Font.ColorIndex = 5
  Next

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