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

• Gh0sT addikt

  #905

  #904 lapa

  2006-02-01 22:21:24

  Ú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

  

  Gh0sT

  addikt

  #904 lapa

  #904 lapa

  ööö mire gondolsz? kicsit elvesztettem a fonalat.

  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