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

• #7852 Fire/SOUL/CD félisten Delila_1 #7851

  Új Válasz 2010-08-04 19:37:58 #7852

  Ú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 Delila_1 #7851 üzenetére

  Hali!

  Hát én csak egy "kicsit" értelmeztem félre ezek szerint Sickboy25 első feladatát.

  Private Sub Worksheet_Change(ByVal Target As Range)
  
  Dim MyFxs As WorksheetFunction
  Set MyFxs = Application.WorksheetFunction
  Dim MyRange As Range
  Set MyRange = Range("A1:A10")
  Dim Nth As Integer
  Nth = 5
  
  If Not Intersect(MyRange, Range(Target.Address)) Is Nothing Then
  Application.ScreenUpdating = False
  MyRange.Select
  MyRange.Interior.ColorIndex = 0
  For i = 1 To Nth
  What = MyFxs.Large(MyRange, i)
  For j = 1 To MyRange.Cells.Count
  If MyRange.Cells(j, MyRange.Column) = What Then
  MyRange.Cells(j, MyRange.Column).Select
  Selection.Interior.ColorIndex = 37
  End If
  Next j
  Next i
  Range(Target.Address).Select
  Application.ScreenUpdating = True
  End If
  
  End Sub

  Fire.

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