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

• #905 Gh0sT addikt lapa #904

  Új Válasz 2006-02-01 22:21:24 #905

  Ú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

  

  Gh0sT

  addikt

  válasz lapa #904 üzenetére

  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.

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