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

• #11295 Delila_1 veterán mr.nagy #11294

  Új Válasz 2011-09-12 18:08:36 #11295

  Ú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 mr.nagy #11294 üzenetére

  A
  Select Case Len(Target.Value)

  sor helyett
  Select Case Len(cells(Target.row,5).Value)

  legyen. Az 5 az E oszlop, ahelyett annak az oszlopnak a számát írd be, ahol a hosszú szövegek megjelennek.

  A Case kezdetű sorokban a Range(Target.Address).Font.Size helyére cells(target.row,5) kerüljön.

  A
  Set ter = Intersect(Target, Range("A6:D6"))
  sorban az a terület legyen, ami előidézi a szövegek változását.

  Tehát ha az A6:D6 tartományt változtatod, és ennek hatására az E oszlopban változik a szöveg, akkor működik a most mutatott új sorral.

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