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

• #13767 Delila_1 veterán oxox #13766

  Új Válasz 2012-05-18 17:40:33 #13767

  Ú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 oxox #13766 üzenetére

  A makró törli az előző színezést, bekéri a szélességet, majd a magasságot, és ennek megfelelően színezi a területet.
  Rosszul írtad, a 80 cm nem a T, hanem az X oszlopig tart.

  Sub Ter()
  Dim sz%, m%
  
  Range("1:255").Interior.ColorIndex = -4142
  sz% = Int(InputBox("Kérem a szélességet cm-ben", "Szélesség", Default) / 5)
  m% = Int(InputBox("Kérem a magasságot cm-ben", "magasság", Default) / 5)
  Range(Cells(1), Cells(m%, sz%)).Interior.ColorIndex = 5
  End Sub

  Kitehetsz hozzá egy gombot.

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