Ú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 ]

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