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

• #15572 Delila_1 veterán Bobrooney #15571

  Új Válasz 2012-11-17 14:12:44 #15572

  Ú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

  

  Delila_1

  veterán

  válasz Bobrooney #15571 üzenetére

  A For Each - Next ciklussal végig lépkedhetsz a terület tagjain. A lenti példában a ciklusváltozó CV.

  Sub TeruletBejaras()
  Dim ter As Range, CV As Object
  Set ter = Range("A1:C15")
  
  For Each CV In ter
  MsgBox CV.Address
  MsgBox CV.Value
  If CV < 300 Then Cells(CV.Row, CV.Column).Font.ColorIndex = 3
  Next
  End Sub

  A két kiíratást csak azért tettem bele, hogy megmutassam, miket tud még ez a különleges ciklus.
  A For Each CV In ter helyett For Each CV In Range("A1:C15") is szerepelhet.

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