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

• #20842 bteebi veterán z123456789 #20834

  Új Válasz 2014-03-08 19:16:12 #20842

  Ú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

  

  bteebi

  veterán

  válasz z123456789 #20834 üzenetére

  Ez elvileg azt csinálja, amit szeretnél. Jobb gomb a munkalapra → Kód megjelenítése. Oda másold be ezt:

  Sub osszead()
  Dim szum As Long, i As Long
  szum = 0
  For i = 1 To 200 'Rows.Count
  If Cells(i, 2).Interior.ColorIndex = 6 Then
  szum = szum + Cells(i, 2).Value
  End If
  Next i
  Cells(2, 3).Value = szum
  If Cells(2, 3).Value > 50 Then
  Cells(2, 3).Interior.ColorIndex = 4
  Else
  Cells(2, 3).Interior.Pattern = xlNone
  End If
  End Sub

  A Cells(i, 2)-nél a 2 helyére annak az oszlopnak a számát írd, amiben az összeadást szeretnéd (A=1, B=2, stb.). A Cells(2, 3)-ba teszi az összeget, ami a 3. oszlop, 2. sor cellája (vagyis C2). Az első 200 sorra végzi az összeadást, ezt tetszőlegesen változtathatod. Ha a Rows.Count elől kiveszed az aposztrófot, akkor megcsinálja mind a 65536 sorra, de az már elég lassú .

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