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

• #909 lapa veterán Gh0sT #908

  Új Válasz 2006-02-01 23:39:52 #909

  Ú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

  

  lapa

  veterán

  válasz Gh0sT #908 üzenetére

  azt csak eventtel lehet megoldani (asszem sheetchange), mert az megkapja target cellként az éppen módosult cellát. azzal lehetne ügyködni, hogy ez a cella benne van-e a kívánt tartományban. ha gombozni akarsz:
  
  Option Explicit
  Sub feltetlenmashogy()
  Dim tartomany As Range, x As Long
  Set tartomany = Range(Cells(1, 1), Cells(20, 1))
  For x = 1 To tartomany.Cells.Count
  If Cells(x, 1) <> '''' Then
  tartomany.Interior.ColorIndex = x
  Cells(x, 1).Interior.ColorIndex = x + 1
  Else
  End If
  Next x
  End Sub
  
  
  ez attól függően színezi be, hogy melyik az uccsó nem üres cella. ''Erre aztán fölkiáltanak: ''Ó, milyen szép!''''

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