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

• #8072 Fire/SOUL/CD félisten Jarod1 #8071

  Új Válasz 2010-09-08 18:55:18 #8072

  Ú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 Jarod1 #8071 üzenetére

  Hali!

  15 napig ingyenesen használható, gondolom nincs annyi cella, amivel ennyi idő alatt ne végezne... [link]

  Fire.

  UI: Meg egy egyszerűbb makróval is megoldható, de most lusta vagyok...

  Szerk
  Mégsem vagyok ennyire lusta.
  Dobj egy commandbutton-t a munkalapra, duplaklikk

  Ez a munkalapon lévő összes cellát nagybetűsre varázsolja
  Private Sub CommandButton1_Click()
  UsedRange.Select
  For Each mycell In Selection
  mycell.Value = UCase(mycell.Value)
  Next mycell
  End Sub

  Ha kihagyod a UsedRange.Select sort, akkor meg azt a cellát amin állsz, vagy az általad kiválasztott cellákat.

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