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

• lapa veterán

  #906

  #905 Gh0sT

  2006-02-01 22:41:37

  Új Válasz

  Ú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

  #905 Gh0sT

  #905 Gh0sT

  Szóval: van az alábbi kód:
  If Range(''A1'').Value <>'''' Then
  Range(''A1'').Select
  With Selection.Interior
  .ColorIndex = 6
  .Pattern = xlSolid
  End With
  Else
  End If
  End Sub
  
  Ez ugye azt csinálja, hogy ha beírok valamit az A1 cellába, akkor sárga lesz a cella színe.
  
  Hogyan terjesztem ezt ki A1-A200 cellatartományra? Valami FOR NEXT ciklusra gondoltam, csak nem tudom a helyes használatot.
  
  
  N=1
  For N=1 to 200
  If Range(''A[N]'').Value <>'''' Then
  Range(''A[N]'').Select
  With Selection.Interior
  .ColorIndex = 6
  .Pattern = xlSolid
  End With
  Else
  End If
  Next N
  End Sub
  
  Nah, ez biztos nem jó, csak érzékeltettem, hogy mire gondoltam.

  Option Explicit
  Sub feltetlen()
  Dim tartomany As Range
  Set tartomany = Range(Cells(1, 1), Cells(20, 1))
  If Cells(1, 1) <> '''' Then
  tartomany.Interior.ColorIndex = 6
  Else
  End If
  End Sub
  

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