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

• #13768 Fire/SOUL/CD félisten oxox #13766

  Új Válasz 2012-05-18 17:55:38 #13768

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

  Egy másik lehetséges megoldás: [link]

  Private Sub Worksheet_Change(ByVal Target As Range)
  
  Dim MyWidth As Range
  Dim MyHeight As Range
  
  Set MyWidth = Range("AA1")
  Set MyHeight = Range("AB1")
  
  Application.ScreenUpdating = False
  
  If Target.Address = MyWidth.Address Or Target.Address = MyHeight.Address Then
  Range("A1:Z26").Clear
  If MyWidth.Value Mod 5 Or MyHeight.Value Mod 5 Or IsEmpty(MyWidth.Value) Or IsEmpty(MyHeight.Value) Then
  MsgBox ("Az alábbi hibák egyike lépett fel, kérem javítsa!" & vbCrLf & vbCrLf & _
  "1. A szélesség és magasság értékének maradék nélkül oszthatónak kell lennie 5-el!" & vbCrLf & _
  "2. A szélesség vagy magasság érték nincs megadva!")
  Exit Sub
  End If
  
  For i = 0 To MyHeight.Value \ 5 - 1
  For j = 0 To MyWidth.Value \ 5 - 1
  Range("A1").Offset(i, j).Interior.ColorIndex = 3
  Range("A1").Offset(i, j).Borders.ColorIndex = 0
  Next j
  Next i
  End If
  
  Application.ScreenUpdating = True
  
  End Sub

  [ Módosította: #65675776 ]

• #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